Hola a todos.

Aqui les dejo este algoritmo.
Autor: Metal_Kingdom

Encriptar:

Código:

function EncROTn(Cadena: string; NumRot: integer): string;
var
i: integer;
begin
for i:= 1 to length(Cadena) do
Result:= Result + chr(ord(Cadena[i]) + NumRot mod 256);
end;

Desencriptar:

Código:

function DecROTn(Cadena: string; NumRot: integer): string;
var
i: integer;
begin
for i:= 1 to length(Cadena) do
Result:= Result + chr(ord(Cadena[i]) + (256 - NumRot) mod 256);
end;

Ejemplo de cada una:

Código:

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

Creditos: Slek

Saludos