Derive version 6.10 DfW file saved on 17 Dec 2007 caesar(s, text):=PROG(i 2254 1, LOOP(IF(i = DIM(text) + 1, RETURN text), text2193i 2254 MOD(text2193i + 3, 26), i 2254 i + 1)) dlog(n, g, p):=PROG(i 2254 0, LOOP(IF(MOD(g^i, p) = n, RETURN i), i 2254 i + 1)) vigenere(schluessel, text):=PROG(i 2254 1, LOOP(IF(i = DIM(text) + 1, RETURN text), k 2254 MOD(i - 1, DIM(schluessel)) + 1, text2193i 2254 MOD(text2193i + schluessel2193k, 26), i 2254 i + 1)) i:=3 k:=5 schluessel:= text:= Precision:=Exact PrecisionDigits:=10 Notation:=Rational NotationDigits:=10 Branch:=Principal Exponential:=Auto Logarithm:=Auto Trigonometry:=Auto Trigpower:=Auto Angle:=Radian CaseMode:=Insensitive VariableOrder:=[x,y,z] OutputBase:=Decimal InputBase:=Decimal InputMode:=Character DisplayFormat:=Normal TimesOperator:=Dot DisplaySteps:=false CExpnObj8 Benutzer MOD(18+10,26)0@Simp(#1)28PHBenutzergcaesar(s,text):=PROG(i:=1,LOOP(IF(i=DIM(text)+1,RETURN(text)),text SUB i:=MOD(text SUB i+3,26),i:=i+1))80BenutzerHcaesar(10,[22,5,18,19,3,8,12,21,5,19,19,5,12,14,9,19,20,19,3,8,15,5,14])@Simp(#4)@[25,8,21,22,6,11,15,24,8,22,22,8,15,17,12,22,23,22,6,11,18,8,17]8 Benutzervigenere(schluessel,text):=PROG(i:=1,LOOP(IF(i=DIM(text)+1,RETURN(text)),k:=MOD(i-1,DIM(schluessel))+1,text SUB i:=MOD(text SUB i+schluessel SUB k,26),i:=i+1))8Benutzer[vigenere([11,18,25,16,20,15],[22,5,18,19,3,8,12,21,5,19,19,5,12,14,9,19,20,19,3,8,15,5,14])0 Simp(#7)<[7,23,17,9,23,23,23,13,4,9,13,20,23,6,8,9,14,8,14,0,14,21,8]80PBenutzer  MOD(5^17,23)`pSimp(#9) 158HBenutzer SELECT(MOD(5^x,23)=10,x,0,22) Simp(#11) [3]8@Benutzer ?dlog(n,g,p):=PROG(i:=0,LOOP(IF(MOD(g^i,p)=n,RETURN(i)),i:=i+1))8P`Benutzer dlog(10,5,23)p Simp(#14)38`Benutzer VECTOR([x,MOD(5^x,23)],x,0,22,1) Simp(#16)[[0,1],[1,5],[2,2],[3,10],[4,4],[5,20],[6,8],[7,17],[8,16],[9,11],[10,9],[11,22],[12,18],[13,21],[14,13],[15,19],[16,3],[17,15],[18,6],[19,7],[20,12],[21,14],[22,1]]8@BenutzerVECTOR(MOD(22^x,23),x,0,22,1)( Simp(#18):[1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1]