Encriptacion ROT -1 en Delphi By Linkgl
Publicado: 08 Abr 2011, 17:04
Aca les dejo un ROT 1 byte en delphi lo acabo de codear para un manual de como hacer un crypter en delphi :P
Sólo pasenle el buffer como primer parámetro y el tamaño del buffer como segundo parámetro :P
Código: Seleccionar todo
// 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;