DELPHI - Encriptación ROT - 1

Aquí les dejo dos funciones que hize para encriptar y desencriptar cadenas y BINARIOS en delphi rotando un byte:

Código:

// Encriptacion ROT -1
// Coder: Linkgl
// Lenguaje: Delphi
// Funcion-linkgl.blogspot.com
// Indetectables.net/foro
function LinkCryptRot(Cad:String;Lar:Integer):String;
var
i:Integer;
Temp:String;
begin
  for i:=1 to Lar do
  begin
    if Ord(Cad[i]) = 0 then
      Temp:=Temp + Chr(255)
    else
      Temp:=Temp + Chr(Ord(Cad[i])-1);
  end;
  Result:=Temp;
end;

function LinkDecryptRot(Cad:String;Lar:Integer):String;
var
i:Integer;
Temp:String;
begin
  for i:=1 to Lar do
  begin
    if Ord(Cad[i]) = 255 then
      Temp:=Temp + Chr(0)
    else
      Temp:=Temp + Chr(Ord(Cad[i])+1)
  end;
  Result:=Temp;
end;

Sólo pasenle el buffer como primer parámetro y el tamaño del buffer como segundo parámetro si tienes dudas de cómo implementarlo sólo deja tú comentario y te ayudaré en lo que esté a mi alcance.