DERIVE for Windows version 5.06 DfW file saved on 22 Apr 2003 caesar_dec(c, k):=MOD(c - k, 26) caesar_enc(p, k):=MOD(p + k, 26) beispiel_c:=[6, 4, 8, 22, 4, 21] beispiel_k:=[4, 4, 4, 4, 4, 4] beispiel_p:=[2, 0, 4, 18, 0, 17] CExpnObj8 hBenutzer"Caesar"8$00Benutzer!"p ... Klartext (A=0, ..., Z=25)"8<HBenutzer"k ... Schlssel (0-25)"8T`Benutzer"c ... Verschlsselter Text"8lHxBenutzercaesar_enc(p,k):=MOD(p+k,26)8HBenutzercaesar_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  "Klartext='caesar', Schlssel=4"8<HHBenutzer beispiel_p:=[2,0,4,18,0,17]8T8`Benutzer beispiel_k:=[4,4,4,4,4,4]8lxBenutzer "Verschlsseln:"h0Benutzer=Simp(Benutzer) 1caesar_enc(beispiel_p,beispiel_k)=[6,4,8,22,4,21]8HBenutzerbeispiel_c:=[6,4,8,22,4,21]8 Benutzer"Verschlsselter Text='GEIWEV'"8Benutzer"Entschlsseln:"h0Benutzer=Simp(Benutzer)1caesar_dec(beispiel_c,beispiel_k)=[2,0,4,18,0,17]