DERIVE for Windows version 5.06 DfW file saved on 22 Apr 2003 vigenere_dec(c, k):=MOD(c - k, 26) vigenere_enc(p, k):=MOD(p + k, 26) xor_dec(c, k):=c XOR k xor_enc(p, k):=p XOR k beispiel_c:=[0, 0, 0, 1, 1, 0, 1, 1] beispiel_k:=[0, 1, 1, 0, 1, 0, 1, 1] beispiel_p:=[0, 1, 1, 1, 0, 0, 0, 0] CExpnObj8 PBenutzer"XOR"8$0Benutzer"p ... Klartext (0,1)"8<HBenutzer"k ... Schlssel (0,1)"8T`Benutzer"c ... Verschlsselter Text"8lxBenutzerxor_enc(p,k):=p XOR k8Benutzerxor_dec(c,k):=c XOR k8Benutzer "Beispiel:"88Benutzer""Schlsseltext='p', Schlssel='k'"8hBenutzer beispiel_p:=[0,1,1,1,0,0,0,0]8hBenutzer beispiel_k:=[0,1,1,0,1,0,1,1]8Benutzer "Verschlsselung:"h8 Benutzer=Simp(Benutzer) 0xor_enc(beispiel_p,beispiel_k)=[0,0,0,1,1,0,1,1]8,h8Benutzer beispiel_c:=[0,0,0,1,1,0,1,1]8DPBenutzer"Entschlsselung:"h\8hBenutzer=Simp(Benutzer)0xor_dec(beispiel_c,beispiel_k)=[0,1,1,1,0,0,0,0]