Caesar cipher: Difference between revisions
m
→{{header|M2000 Interpreter}}
Line 4,079:
If Len(a$)=0 Then Exit
a$=Ucase$(a$)
\\ Integer in Mem is unsigned number
Buffer Mem as Integer*Len(a$)
Return Mem, 0:=a$
For i=0 to Len(a$)-1 {
If Eval(mem, i)>=65 and Eval(mem, i)<=90 then Return Mem, i:=(Eval(mem, i)-
}
=Eval$(Mem)
}
B$=Cipher$(a$,
Print B$
Print Cipher$(B$,
n=1 ' n negative or positive or zero
for i=65 to 65+25
a=(1+(i -64)+n+24) mod 26 + 65
? chr$(a),
next
</syntaxhighlight>
?
=={{header|Maple}}==
<syntaxhighlight lang="maple">
| |||