DERIVE for Windows version 5.06 DfW file saved on 24 Apr 2003 vigenere_dec(c, k):=MOD(c - k, 26) vigenere_enc(p, k):=MOD(p + k, 26) beispiel_c:=[21, 10, 7, 7, 18, 8, 23, 12] beispiel_k:=[0, 2, 1, 3, 5, 4, 6, 8] beispiel_p:=[21, 8, 6, 4, 13, 4, 17, 4] CExpnObj8 xBenutzer "Vigenre"8$00Benutzer!"p ... Klartext (A=0, ..., Z=25)"8<8HBenutzer""k ... Schlssel (A=0, ..., Z=25)"8T`Benutzer"c ... Verschlsselter Text"8lXxBenutzervigenere_enc(p,k):=MOD(p+k,26)8XBenutzervigenere_dec(c,k):=MOD(c-k,26)8Benutzer[[a,0],[b,1],[c,2],[d,3],[e,4],[f,5],[g,6],[h,7],[i,8],[j,9],[k,10],[l,11],[m,12],[n,13],[o,14],[p,15],[q,16],[r,17],[s,18],[t,19],[u,20],[v,21],[w,22],[x,23],[y,24],[z,25]]8 Benutzer "Beispiel:"8$0Benutzer 0"Schlsseltext='vigenere', Schlssel='acbdfegi'"8<HBenutzer  beispiel_p:=[21,8,6,4,13,4,17,4]8Th`Benutzer beispiel_k:=[0,2,1,3,5,4,6,8]8lxBenutzer "Verschlsselung:"User=Simp(User) :vigenere_enc(beispiel_p,beispiel_k)=[21,10,7,7,18,8,23,12]8Benutzer"beispiel_c:=[21,10,7,7,18,8,23,12]8Benutzer"Entschlsselung:"User=Simp(User)Mb`?8vigenere_dec(beispiel_c,beispiel_k)=[21,8,6,4,13,4,17,4]