[ckaki]

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