Data update
This commit is contained in:
parent
35bcdeebf8
commit
74c69a0df6
2427 changed files with 31826 additions and 3468 deletions
15
Task/Caesar-cipher/EasyLang/caesar-cipher.easy
Normal file
15
Task/Caesar-cipher/EasyLang/caesar-cipher.easy
Normal file
|
|
@ -0,0 +1,15 @@
|
|||
func$ crypt str$ key .
|
||||
for c$ in strchars str$
|
||||
c = strcode c$
|
||||
if c >= 65 and c <= 90
|
||||
c = (c + key - 65) mod 26 + 65
|
||||
elif c >= 97 and c <= 122
|
||||
c = (c + key - 97) mod 26 + 97
|
||||
.
|
||||
enc$ &= strchar c
|
||||
.
|
||||
return enc$
|
||||
.
|
||||
enc$ = crypt "Rosetta Code" 4
|
||||
print enc$
|
||||
print crypt enc$ -4
|
||||
Loading…
Add table
Add a link
Reference in a new issue