Puedes probar con las siguientes funciones, a mi me han funcionado:
Esta es para Encriptar
function TForm1.Cifra(Const Valor:String):String;
var
Indice:Integer;
cadena:String;
begin
for Indice:=1 to Length(Valor) do begin
cadena:=cadena+chr(StrToInt(IntToStr(ord(Valor[Indice])+Constante)));
end;
Result:=cadena;
end;
Esta para Desencriptar
function TForm1.DesCifra(Const Valor:String):String;
var
Indice:Integer;
cadena:String;
begin
for Indice:=1 to Length(Valor) do begin
cadena:=cadena+chr(StrToInt(IntToStr(ord(Valor[Indice])-Constante)));
end;
Result:=cadena;
end;
|