[Script] Criptografar strings com rotação de caracteres

// string_encrypt_fast(string, password);
// Author: BrendanLS - 640kbworld.forum.st

var Encrypt, Password, Characters, Subst, PSize, ChrLen, Ch, PN;

Encrypt := argument0;
Password := argument1;
PSize := string_length(Password);
Characters := ' -!$%&()*,./:;?@[\]_{|}+<=>0123456789aABbcCdDeEFfGgHhIijJkKLlmMnNOopPQqRrsSTtUuVvWwXxYyZz';
Subst := 'r[\@:<LQM%AbHpqx&_ZYT16jG;OiRw38P0,IEC{k=m?dB-l957$+v2sVNJ)oy/S]FWh>Kf4.etU(u}cXg*Dz|na! ';
Returned := '';
ChrLen := string_length(Characters);

for (n = 0; n < PSize; n += 1)
begin
PN[n] := string_pos(string_char_at(Password, n + 1), Characters);
end;

for (n = 1; n <= string_length(Encrypt); n += 1)
begin
Ch := string_pos(string_char_at(Encrypt, n), Characters) + PN[(n - 1) mod PSize];
Returned += string_char_at(Subst, (Ch mod ChrLen) + 1);
end;

return (Returned)

// string_decrypt_fast(string, password);
// Author: BrendanLS - 640kbworld.forum.st

var Decrypt, Password, Characters, Subst, PSize, ChrLen, Ch, PN;

Decrypt := argument0;
Password := argument1;
PSize := string_length(Password);
Characters := ' -!$%&()*,./:;?@[\]_{|}+<=>0123456789aABbcCdDeEFfGgHhIijJkKLlmMnNOopPQqRrsSTtUuVvWwXxYyZz';
Subst := 'r[\@:<LQM%AbHpqx&_ZYT16jG;OiRw38P0,IEC{k=m?dB-l957$+v2sVNJ)oy/S]FWh>Kf4.etU(u}cXg*Dz|na! ';
Returned := '';
ChrLen := string_length(Characters);

for (n = 0; n < PSize; n += 1)
begin
PN[n] := string_pos(string_char_at(Password, n + 1), Characters);
end;


for (n = 1; n <= string_length(Decrypt); n += 1)
begin
Ch := string_pos(string_char_at(Decrypt, n), Subst) - 1;
Ch -= PN[(n - 1) mod PSize];
if Ch < 1 then Ch += ChrLen;
Returned += string_char_at(Characters, Ch);
end;

return (Returned)