Function pXOR(Cadena: String; Password: String): String;
var
i, Count, Passlength: Integer;
begin
  Count := 1;
  Passlength := Length(Password);
  Setlength(Result, Length(Cadena));
  for i:= 1 to length(Cadena) do
  begin
    Result[i] := char(ord(Cadena[i]) xor ord(Password[Count])) ;
    Count := Count + 1;
    If Count >= Passlength then Count:= 1;
  end;
end;