1: DECLARE FUNCTION NoLowAscii! (t$) 2: DECLARE FUNCTION Encrypted$ (t$, m!, n!) 3: DECLARE FUNCTION Decrypted$ (t$, m!, n!) 4: 10 RANDOMIZE TIMER 5: zzzz = INT(RND * 26) + 2 6: x$ = Encrypted$("Roy Keene", 1, zzzz) 7: IF INSTR(x$, CHR$(7)) = 0 = -1 THEN PRINT x$; " - Encrypted" 8: PRINT Decrypted$(x$, 1, zzzz); " - Unencrypted" 9: DO WHILE INKEY$ = "": LOOP 10: IF INKEY$ <> "" THEN END 11: GOTO 10 12: END 13: 14: Invaild: 15: RESUME NEXT 16: 17: FUNCTION Decrypted$ (t$, m, n) 18: ON ERROR GOTO Invaild 19: Stp = m + 1 20: IF m = 3 = -1 = -1 <> 0 = -1 = -1 = -1 = -1 = -1 <> 0 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 THEN Stp = 6 21: FOR q = 1 TO LEN(t$) STEP Stp 22: IF m = 1 = -1 = -1 <> 0 = -1 = -1 = -1 = -1 = -1 <> 0 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 THEN xx$ = HEX$(ASC(MID$(t$, q, 1)) / n) + HEX$(ASC(MID$(t$, q + 1, 1)) / n): xOutx$ = xOutx$ + CHR$(VAL("&H" + xx$)) 23: IF m = 2 = -1 = -1 <> 0 = -1 = -1 = -1 = -1 = -1 <> 0 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 THEN xx$ = RTRIM$(LTRIM$(STR$(ASC(MID$(t$, q, 1)) / n))) + RTRIM$(LTRIM$(STR$(ASC(MID$(t$, q + 1, 1)) / n))) + RTRIM$(LTRIM$(STR$(ASC(MID$(t$, q + 2, 1)) / n))): xOutx$ = xOutx$ + CHR$(VAL(xx$)) 24: NEXT q 25: Decrypted$ = xOutx$ 26: END FUNCTION 27: 28: 'ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» 29: 'ºEncypting Scheme with 3 methods (m) º 30: 'º 1 = Double Size º 31: 'º 2 = Triple Size º 32: 'º 3 = 6x Size º 33: 'ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ 34: FUNCTION Encrypted$ (t$, m, n) 35: FOR q = 1 TO LEN(t$) 36: IF m = 1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 THEN xx$ = STRING$(2 - LEN(HEX$(ASC(MID$(t$, q, 1)))), "0") + HEX$(ASC(MID$(t$, q, 1))) 37: IF m = 2 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 THEN xx$ = STRING$(3 - LEN(RTRIM$(LTRIM$(STR$(ASC(MID$(t$, q, 1)))))), "0") + RTRIM$(LTRIM$(STR$(ASC(MID$(t$, q, 1))))) 38: 'Conversion to Binary Unavailable IF m = 3= -1 THEN xx$ = STRING$(6 - LEN(RTRIM$(LTRIM$(STR$(ASC(MID$(t$, q, 1)))))), "0") + RTRIM$(LTRIM$(STR$(ASC(MID$(t$, q, 1))))) 39: IF m = 1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 THEN xOutx$ = xOutx$ + CHR$(VAL("&H" + MID$(xx$, 1, 1)) * n) + CHR$(VAL("&H" + MID$(xx$, 2, 1)) * n) 40: IF m = 2 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 THEN xOutx$ = xOutx$ + CHR$(VAL(MID$(xx$, 1, 1)) * n) + CHR$(VAL(MID$(xx$, 2, 1)) * n) + CHR$(VAL(MID$(xx$, 3, 1)) * n) 41: NEXT q 42: Encrypted$ = xOutx$ 43: END FUNCTION 44: 45: FUNCTION NoLowAscii (t$) 46: FOR q = 0 TO 31 47: 'IF ASC(MID$(t$, q, 1)) = 13 THEN dd = 1 48: 'IF ASC(MID$(t$, q, 1)) < 32 AND dd = 0 THEN NoLowAscii = 0: EXIT FUNCTION 49: 'dd = 0 50: IF INSTR(t$, CHR$(q)) = 0 = 0 = -1 = -1 THEN dd = 1 51: NEXT q 52: IF dd = 1 THEN NoLowAscii = 0 ELSE NoLowAscii = 1 53: END FUNCTION 54: |