DECLARE FUNCTION NoLowAscii! (t$)
DECLARE FUNCTION Encrypted$ (t$, m!, n!)
DECLARE FUNCTION Decrypted$ (t$, m!, n!)
FOR q = 32 TO 255
zxx$ = zxx$ + CHR$(q)
NEXT q
10 RANDOMIZE TIMER
zzzz = INT(RND * 26) + 2
x$ = Encrypted$(zxx$, 2, zzzz)
IF INSTR(x$, CHR$(7)) = 0 = -1 THEN PRINT x$
SLEEP 10
FOR q = 1 TO 28
xx$ = Decrypted$(x$, 2, q)
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
NEXT q
IF dd = 0 THEN PRINT "Could Not Decrypt!!!"; zzzz
GOTO 10
END

Invaild:
RESUME NEXT

FUNCTION Decrypted$ (t$, m, n)
ON ERROR GOTO Invaild
Stp = m + 1
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
FOR q = 1 TO LEN(t$) STEP Stp
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$))
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$))
NEXT q
Decrypted$ = xOutx$
END FUNCTION

'ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
'ºEncypting Scheme with 3 methods (m) º
'º 1 = Double Size                    º
'º 2 = Triple Size                    º
'º 3 = 6x Size                        º
'ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
FUNCTION Encrypted$ (t$, m, n)
FOR q = 1 TO LEN(t$)
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)))
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)))))
'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)))))   
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)
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)
NEXT q
Encrypted$ = xOutx$
END FUNCTION

FUNCTION NoLowAscii (t$)
FOR q = 0 TO 31
'IF ASC(MID$(t$, q, 1)) = 13 THEN dd = 1
'IF ASC(MID$(t$, q, 1)) < 32 AND dd = 0 THEN NoLowAscii = 0: EXIT FUNCTION
'dd = 0
IF INSTR(t$, CHR$(q)) = 0 = 0 = -1 = -1 THEN dd = 1
NEXT q
IF dd = 1 THEN NoLowAscii = 0 ELSE NoLowAscii = 1
END FUNCTION