17 lines
659 B
Plaintext
17 lines
659 B
Plaintext
function caesarCipher rot phrase
|
|
local rotPhrase, lowerLetters, upperLetters
|
|
put "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz" into lowerLetters
|
|
put "ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ" into upperLetters
|
|
repeat for each char letter in phrase
|
|
get charTonum(letter)
|
|
if it >= 65 and it <= 90 then
|
|
put char ((it + rot) - 64) of upperLetters after rotPhrase
|
|
else if it >= 97 and it <= 122 then
|
|
put char ((it + rot) - 96) of lowerLetters after rotPhrase
|
|
else
|
|
put letter after rotPhrase
|
|
end if
|
|
end repeat
|
|
return rotPhrase
|
|
end caesarCipher
|