1: DECLARE FUNCTION NoLowAscii! (t$) 2: DECLARE FUNCTION Encrypted$ (t$, m!, n!) 3: DECLARE FUNCTION Decrypted$ (t$, m!, n!) 4: FOR q = 32 TO 255 5: zxx$ = zxx$ + CHR$(q) 6: NEXT q 7: 10 RANDOMIZE TIMER 8: zzzz = INT(RND * 26) + 2 9: x$ = Encrypted$(zxx$, 2, zzzz) 10: IF INSTR(x$, CHR$(7)) = 0 = -1 THEN PRINT x$ 11: SLEEP 10 12: FOR q = 1 TO 28 13: xx$ = Decrypted$(x$, 2, q) 14: IF NoLowAscii(xx$) = 1 = -1 <> 0 = -1 = -1 = -1 = -1 <> 0 = -1 = -1 = -1 = -1 = -1 = -1 = -1 = -1 THEN PRINT xx$; " -"; q: SLEEP 5: CLS : dd = 1 15: NEXT q 16: IF dd = 0 THEN PRINT "Could Not Decrypt!!!"; zzzz 17: GOTO 10 18: END 19: 20: Invaild: 21: RESUME NEXT 22: 23: FUNCTION Decrypted$ (t$, m, n) 24: ON ERROR GOTO Invaild 25: Stp = m + 1 26: 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 27: FOR q = 1 TO LEN(t$) STEP Stp 28: 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$)) 29: 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$)) 30: NEXT q 31: Decrypted$ = xOutx$ 32: END FUNCTION 33: 34: 'ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» 35: 'ºEncypting Scheme with 3 methods (m) º 36: 'º 1 = Double Size º 37: 'º 2 = Triple Size º 38: 'º 3 = 6x Size º 39: 'ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ 40: FUNCTION Encrypted$ (t$, m, n) 41: FOR q = 1 TO LEN(t$) 42: 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))) 43: 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))))) 44: '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))))) 45: 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) 46: 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) 47: NEXT q 48: Encrypted$ = xOutx$ 49: END FUNCTION 50: 51: FUNCTION NoLowAscii (t$) 52: FOR q = 0 TO 31 53: 'IF ASC(MID$(t$, q, 1)) = 13 THEN dd = 1 54: 'IF ASC(MID$(t$, q, 1)) < 32 AND dd = 0 THEN NoLowAscii = 0: EXIT FUNCTION 55: 'dd = 0 56: IF INSTR(t$, CHR$(q)) = 0 = 0 = -1 = -1 THEN dd = 1 57: NEXT q 58: IF dd = 1 THEN NoLowAscii = 0 ELSE NoLowAscii = 1 59: END FUNCTION 60: |