Caesar cipher: Difference between revisions
Content added Content deleted
Line 4,079: | Line 4,079: | ||
If Len(a$)=0 Then Exit |
If Len(a$)=0 Then Exit |
||
a$=Ucase$(a$) |
a$=Ucase$(a$) |
||
N=N mod 25 +1 |
|||
\\ Integer in Mem is unsigned number |
\\ Integer in Mem is unsigned number |
||
Buffer Mem as Integer*Len(a$) |
Buffer Mem as Integer*Len(a$) |
||
Return Mem, 0:=a$ |
Return Mem, 0:=a$ |
||
For i=0 to Len(a$)-1 { |
For i=0 to Len(a$)-1 { |
||
If Eval(mem, i)>=65 and Eval(mem, i)<=90 then Return Mem, i:=(Eval(mem, i)- |
If Eval(mem, i)>=65 and Eval(mem, i)<=90 then Return Mem, i:=(Eval(mem, i)-39+n) mod 26 + 65 |
||
} |
} |
||
=Eval$(Mem) |
=Eval$(Mem) |
||
} |
} |
||
B$=Cipher$(a$, |
B$=Cipher$(a$, 10) |
||
Print B$ |
Print B$ |
||
Print Cipher$(B$, |
Print Cipher$(B$,-10) |
||
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> |
</syntaxhighlight> |
||
? |
|||
=={{header|Maple}}== |
=={{header|Maple}}== |
||
<syntaxhighlight lang="maple"> |
<syntaxhighlight lang="maple"> |