SCREEN 2: SCREEN 0: CLS
Menu:
LOCATE 1, 15: PRINT "CRYPTOR v1.0"
LOCATE 2, 15: PRINT "by ADAM PERRY & MATT OCHS"
LOCATE 3, 13: PRINT "      Main Menu          "
LOCATE 5, 10: PRINT "E]ncrypt message"
LOCATE 7, 10: PRINT "D]ecrypt message"
LOCATE 9, 10: PRINT "Q]uit Cryptor"
Loop1:
GOSUB GetKey: IF A$ = "E" THEN GOTO Encrypt ELSE IF A$ = "D" THEN GOTO Decrypt ELSE IF A$ = "Q" THEN GOTO Quit ELSE GOTO Loop1
GetKey:
A$ = UCASE$(INKEY$): IF A$ = "" THEN GOTO GetKey
RETURN
Encrypt:
CLS
PRINT "All information except for the file name is capitalization-snsitive."
PRINT "This means that capitalization will affect the message."
INPUT "Recipiant name"; N$
INPUT "File name"; F$
INPUT "Encrypt code"; C$
CLS
INPUT "Message text: ", M$
OPEN F$ + ".CPT" FOR OUTPUT AS #1
A = 0: B = 0: C = 0: CR$ = ""
DO WHILE A < LEN(M$)
A = A + 1
B = B + 1: IF B > LEN(N$) THEN B = 1
C = C + 1: IF C > LEN(C$) THEN C = 1
D = ASC(MID$(M$, A, 1)) + ASC(MID$(N$, B, 1)) + ASC(MID$(C$, C, 1))
Loop2:
IF D > 255 THEN D = D - 255: GOTO Loop2
CR$ = CR$ + CHR$(D)
LOOP
WRITE #1, CR$: CLOSE
CLS : GOTO Menu:
Decrypt:
CLS
PRINT "All information exept the file name is capitalization-sensitive."
PRINT "This means that capitalization will affect the message."
INPUT "Recipiant name"; N$
INPUT "File name"; F$
INPUT "Encypt code"; C$
CLS : CR$ = ""
OPEN F$ + ".CPT" FOR INPUT AS #1
INPUT #1, CR$
CLOSE
A = 0: B = 0: C = 0: M$ = ""
DO WHILE A < LEN(CR$)
A = A + 1
B = B + 1: IF B > LEN(N$) THEN B = 1
C = C + 1: IF C > LEN(C$) THEN C = 1
D = ASC(MID$(CR$, A, 1)) - (ASC(MID$(N$, B, 1)) + ASC(MID$(C$, C, 1)))
Loop3:
IF D < 1 THEN D = D + 255: GOTO Loop3
M$ = M$ + CHR$(D)
LOOP
Menu2:
CLS
LOCATE 1, 15: PRINT "Cryptor v1.0"
LOCATE 2, 15: PRINT "by ADAM PERRY & MATT OCHS"
LOCATE 3, 13: PRINT "Decryption Complete"
LOCATE 5, 10: PRINT "V]iew message"
LOCATE 7, 10: PRINT "S]ave message"
LOCATE 9, 10: PRINT "Main menu"
Loop4:
GOSUB GetKey: IF A$ = "V" THEN GOTO ViewMessage ELSE IF A$ = "S" THEN GOTO Save
IF A$ = "M" THEN GOTO Menu ELSE GOTO Loop4
ViewMessage:
CLS : PRINT M$: GOSUB GetKey: GOTO Menu2
Save:
OPEN F$ + ".TXT" FOR OUTPUT AS #1
WRITE #1, M$
CLOSE : GOTO Menu2
Quit:
CLS : SYSTEM