24 lines
665 B
Plaintext
24 lines
665 B
Plaintext
TextWindow.Write("Enter a 1-25 number key (-ve number to decode): ")
|
|
key = TextWindow.ReadNumber()
|
|
TextWindow.Write("Enter message: ")
|
|
message = text.ConvertToUpperCase(TextWindow.Read())
|
|
caeser = ""
|
|
For n = 1 To Text.GetLength(message)
|
|
letter = Text.GetSubText(message,n,1)
|
|
code = Text.GetCharacterCode(letter)
|
|
If code = 32 Then
|
|
newCode = 32
|
|
Else
|
|
newCode = code + key
|
|
If newCode > 90 Then
|
|
newCode = newCode - 26
|
|
ElseIf newCode < 65 then
|
|
newCode = newCode + 26
|
|
EndIf
|
|
EndIf
|
|
codeLetter = Text.GetCharacter(newCode)
|
|
caeser = Text.Append(caeser,codeLetter)
|
|
EndFor
|
|
TextWindow.WriteLine(message)
|
|
TextWindow.WriteLine(caeser)
|