CLS
SCREEN 9
COLOR 1, 8
LOCATE 3, 22
PRINT "My Encryption Code Is Better Than Guy's!!"
6
INPUT "Enkript/Uninkript [e/u]"; e$
IF e$ = "e" THEN GOTO 2
IF e$ = "u" THEN GOTO 3
GOTO 6
PRINT
PRINT
PRINT
2
PRINT "Please enter secret message in need of protection"
INPUT "Message "; mes$
le = LEN(mes$)
FOR i = 1 TO le
a$ = MID$(mes$, i, 1)
IF a$ = "c" THEN a$ = "24"
IF a$ = "d" THEN a$ = "23"
IF a$ = "e" THEN a$ = "22"
IF a$ = "f" THEN a$ = "21"
IF a$ = "g" THEN a$ = "20"
IF a$ = "h" THEN a$ = "19"
IF a$ = "i" THEN a$ = "18"
IF a$ = "j" THEN a$ = "17"
IF a$ = "k" THEN a$ = "16"
IF a$ = "l" THEN a$ = "15"
IF a$ = "m" THEN a$ = "14"
IF a$ = "n" THEN a$ = "13"
IF a$ = "o" THEN a$ = "12"
IF a$ = "p" THEN a$ = "11"
IF a$ = "q" THEN a$ = "10"
IF a$ = "r" THEN a$ = "9"
IF a$ = "s" THEN a$ = "8"
IF a$ = "t" THEN a$ = "7"
IF a$ = "u" THEN a$ = "6"
IF a$ = "v" THEN a$ = "5"
IF a$ = "w" THEN a$ = "4"
IF a$ = "x" THEN a$ = "3"
IF a$ = "y" THEN a$ = "2"
IF a$ = "z" THEN a$ = "1"
'IF INT(RND * 5) + 1 = 1 THEN a$ = a$ + "kloon"
'IF INT(RND * 5) + 1 = 2 THEN a$ = a$ + "nuub"
'IF INT(RND * 5) + 1 = 3 THEN a$ = a$ + "chooop"
'IF INT(RND * 5) + 1 = 4 THEN a$ = a$ + "frumple"
'IF INT(RND * 5) + 1 = 5 THEN a$ = a$ + "quantup"

mef$ = mef$ + a$
NEXT i
PRINT
PRINT
PRINT mef$
PRINT
PRINT
INPUT "Save file as"; file$
OPEN file$ FOR OUTPUT AS #1
PRINT #1, mef$
CLOSE
3
PRINT
PRINT
PRINT
INPUT "Open file"; opem$
OPEN opem$ FOR INPUT AS #2
INPUT #2, mef$
CLOSE #2
FOR i = 1 TO LEN(mef$)
a$ = MID$(mef$, i, 1)

IF a$ = "26" THEN a$ = "a"
IF a$ = "25" THEN a$ = "b"
IF a$ = "24" THEN a$ = "c"
IF a$ = "23" THEN a$ = "d"
IF a$ = "22" THEN a$ = "e"
IF a$ = "21" THEN a$ = "f"
IF a$ = "20" THEN a$ = "g"
IF a$ = "19" THEN a$ = "h"
IF a$ = "18" THEN a$ = "i"
IF a$ = "17" THEN a$ = "j"
IF a$ = "16" THEN a$ = "k"
IF a$ = "15" THEN a$ = "l"
IF a$ = "14" THEN a$ = "m"
IF a$ = "13" THEN a$ = "n"
IF a$ = "12" THEN a$ = "o"
IF a$ = "11" THEN a$ = "p"
IF a$ = "10" THEN a$ = "q"
IF a$ = "9" THEN a$ = "r"
IF a$ = "8" THEN a$ = "s"
IF a$ = "7" THEN a$ = "t"
IF a$ = "6" THEN a$ = "u"
IF a$ = "5" THEN a$ = "v"
IF a$ = "4" THEN a$ = "w"
IF a$ = "3" THEN a$ = "x"
IF a$ = "2" THEN a$ = "y"
IF a$ = "1" THEN a$ = "z"
meb$ = meb$ + a$
NEXT i
PRINT
PRINT
PRINT
PRINT meb$