Function Decrypt$ (t$, ky$, o)
Key$ = ky$
For q = 1 To Len(t$)
If q Mod o = 0 Then Key$ = Right$(Key$, 1) + Left$(Key$, Len(Key$) - 1)
mm$ = mm$ + Chr$(InStr(Key$, Mid$(t$, q, 1)) - 1)
Next q
Decrypt$ = mm$
End Function

Function Encrypt$ (t$, ky$, o)
Key$ = ky$
If Len(Key$) < 256 Then Exit Function
For q = 1 To Len(t$)
If q Mod o = 0 Then Key$ = Right$(Key$, 1) + Left$(Key$, Len(Key$) - 1)
mm$ = mm$ + Mid$(Key$, (Asc(Mid$(t$, q, 1))) + 1, 1)
Next q
Encrypt$ = mm$
End Function


Function GenerateKey$ ()
Do Until Len(c$) = 256
Randomize Timer + (Abs((Len(c$) + 1) - (Len(c$) ^ 2))) + (Rnd * 11)
10 ac$ = Chr$(Int(Rnd * 1024) Mod 256)
If InStr(c$, ac$) = 0 Then c$ = c$ + ac$ Else GoTo 10
Loop
GenerateKey$ = c$
End Function