Delphi [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