Marcos tiene toda la razón, además las funciones no se si las tomé del propio foro o de trucomannia
Código Delphi
[-]function Encript(aFrase: String; aClave: Integer): String;
Var
aa: Integer;
begin
Result:='';
RandSeed:=aClave;
for aa:=1 to Length(aFrase) do
Result:=Result+Chr(Byte(aFrase[aa]) xor random(256));
end
;
Código Delphi
[-]function Decript(aFrase: String; aClave: Integer): String;
var
aa: Integer;
begin
Result:='';
RandSeed:=aClave;
for aa:=1 to Length(aFrase) do
Result:=Result+Chr(Byte(aFrase[aa]) xor random(256));
end
;
Salud y suerte
Kaki