Lost Makers
Últimos assuntos
» Melody raiser
Sex Nov 18, 2016 8:52 am por Finalshare

» Shiginima Launcher SE V2.0
Ter Out 20, 2015 6:08 pm por Finalshare

» [Extensão] Easy 3D
Qua Set 23, 2015 6:14 pm por Cyisthat

» Acoustica Mixcraft 6.0 + crack
Ter Set 15, 2015 8:32 pm por Finalshare

» Várias Sugestões
Ter Set 15, 2015 7:59 pm por Finalshare

» [Álbum] Abyss
Dom Set 13, 2015 10:12 pm por Cyisthat

» [Extensão] Easy Motion
Sex Set 11, 2015 11:04 pm por Finalshare

» Rpg Maker Vx Ace + Crack
Sex Set 11, 2015 4:33 pm por Finalshare

» [Minecraft] Shiginima Launcher
Sex Set 11, 2015 2:42 pm por Finalshare

Painel do usuário
Carregando avatar...
Parceiros

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

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

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

Mensagem por Cyisthat em Dom Jun 24, 2012 2:05 pm

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

É um jeito modesto de criptografar. Não dá muito trabalho. :D


String encrypt:

Spoiler:
// 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:

Spoiler:
// 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)

Cyisthat
avatar
.:Admin:.
.:Admin:.

Mensagens : 78
Idade : 19

Ver perfil do usuário http://lostmakers.web-rpg.com

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum