Have you cracked a 128-bit cryptographic code yet?
telsys 1 year ago 2
@telsys Yes. I PM'ed you the algorithm.
martymusatov 1 year ago
Encrypts (or decrypts) the specified text string. Enter with: txt -- the text string to be encrypted (or decrypted) mode -- +1=encrypt, -1=decrypt Returns the encrypted (or decrypted) text string Text coder (Int mode, Text txt)
martymusatov 11 months ago
s = "" Do k = 0, length(txt)-1 ch=ascii(extract(txt,k,k)) If (ch>47 And ch<58) ch=48+cycle(ch+mode*random(10)-48,10)
If (ch>64 And ch<91)
@martymusatov ch=65+cycle(ch+mode*random(26)-65,26) If (ch>96 And ch<123) ch=97+cycle(ch+mode*random(26)-97,26) s = s + char(ch) Loop k Return s
:-)
werewindwolf 1 year ago
Might be too complex for you to understand. Pure Theory of Computation.
Jeancsanchez 1 year ago
what going on here?
kj369kj 1 year ago
Have you cracked a 128-bit cryptographic code yet?
telsys 1 year ago 2
@telsys Yes. I PM'ed you the algorithm.
martymusatov 1 year ago
Encrypts (or decrypts) the specified text string. Enter with: txt -- the text string to be encrypted (or decrypted) mode -- +1=encrypt, -1=decrypt Returns the encrypted (or decrypted) text string Text coder (Int mode, Text txt)
martymusatov 11 months ago
s = "" Do k = 0, length(txt)-1 ch=ascii(extract(txt,k,k)) If (ch>47 And ch<58) ch=48+cycle(ch+mode*random(10)-48,10)
martymusatov 11 months ago
If (ch>64 And ch<91)
martymusatov 11 months ago
@martymusatov ch=65+cycle(ch+mode*random(26)-65,26) If (ch>96 And ch<123) ch=97+cycle(ch+mode*random(26)-97,26) s = s + char(ch) Loop k Return s
martymusatov 11 months ago
:-)
werewindwolf 1 year ago
Might be too complex for you to understand. Pure Theory of Computation.
Jeancsanchez 1 year ago
what going on here?
kj369kj 1 year ago