DIM r(10) ON ERROR GOTO errorcode PRINT "(E)ncrypt (D)ecrypt" INPUT o$ IF o$ = "E" OR o$ = "e" THEN PRINT "What is the source file name" INPUT file$ PRINT "What is the destination file name" INPUT file2$ OPEN file$ FOR INPUT AS #1 OPEN file2$ FOR OUTPUT AS #2 PRINT #2, "THIS FILE HAS BEEN ENCRYPTED BY CRYPT FROM STRATEGY SURPLUS" FOR x = 1 TO 10 RANDOMIZE TIMER r(x) = INT(RND * 75) + 50 PRINT #2, r(x) NEXT x WHILE NOT EOF(1) INPUT #1, j$ je$ = "" FOR z = 1 TO 80 m = 256 m$ = MID$(j$, z, 1) m = ASC(m$) IF m = 256 THEN GOTO 1 q = q + 1 IF q = 11 THEN q = 1 m = m + r(q) - 48 IF m > 255 THEN m = m - 255 m$ = CHR$(m) 1 je$ = je$ + m$ NEXT z PRINT je$ PRINT #2, je$ WEND END IF IF o$ = "D" OR o$ = "d" THEN PRINT "What is the source file name" INPUT file$ PRINT "What is the destination file name" INPUT file2$ OPEN file$ FOR INPUT AS #1 OPEN file2$ FOR OUTPUT AS #2 INPUT #1, j$ FOR x = 1 TO 10 INPUT #1, r(x) NEXT x WHILE NOT EOF(1) INPUT #1, j$ je$ = "" FOR z = 1 TO 80 m = 256 m$ = MID$(j$, z, 1) m = ASC(m$) IF m = 256 THEN GOTO 2 q = q + 1 IF q = 11 THEN q = 1 m = m - r(q) + 48 IF m > 255 THEN m = m - 255 m$ = CHR$(m) 2 je$ = je$ + m$ NEXT z PRINT je$ PRINT #2, je$ WEND END IF CLOSE #1 CLOSE #2 END errorcode: IF ERR = 5 THEN RESUME NEXT