Locked [Cifrado] ROTn Metal

[Expermicid]

Hola a todos.

 

Aqui les dejo este algoritmo.

Autor: Metal_Kingdom

 

Encriptar:

 

[lenguaje=delphi]function EncROTn(Cadena: string; NumRot: integer): string;

var

i: integer;

begin

for i:= 1 to length(Cadena) do

Result:= Result + chr(ord(Cadena) + NumRot mod 256);

end;[/lenguaje]

 

Desencriptar:

 

[lenguaje=delphi]function DecROTn(Cadena: string; NumRot: integer): string;

var

i: integer;

begin

for i:= 1 to length(Cadena) do

Result:= Result + chr(ord(Cadena) + (256 - NumRot) mod 256);

end;[/lenguaje]

 

Ejemplo de cada una:

 

[lenguaje=delphi]Showmessage(EncROTn('putón', 12)); //muestra un msgbox con la string 'putón' encriptada con rot12 = |€ÿz

Showmessage(DecROTn('|€ÿz', 12)); //muestra un msgbox con la string '|€ÿz' desencriptada con rot12 = putón[/lenguaje]

 

Creditos: Slek

 

Saludos

Edited February 16, 2014 by Expermicid