Encryptacion con ORD

[rastafarey]

Si es solo para guardar en un xml de manera que a simple vista no se vea y aparte no tengas problemas de codificación.

Function StrToHex(Const pcStr: String): String; Begin Result := ''; if pcStr <> '' then Begin SetLength(Result, Length(pcStr) * 2); BinToHex(@pcStr[1], @Result[1], Length(pcStr)); End; End; Function HexToStr(Const pcStr: String): String; Begin Result := ''; if pcStr <> '' then Begin SetLength(Result, Length(pcStr) Div 2); HexToBin(@pcStr[1], @Result[1], Length(pcStr)); End; End;

Estoy escribiendo desde un celular y de verdad tenia bastante tiempo sin colaborar.

Ese código te sirve para lo que quieres y aparte te evitas el problema de la codificación.

Enviado desde mi SM-G900H mediante Tapatalk

[rastafarey]

Aqui se mejor

Código Delphi [-]
Function StrToHex(Const pcStr: String): String;
Begin
  Result := '';
  if pcStr <> '' then Begin
    SetLength(Result, Length(pcStr) * 2);
    BinToHex(@pcStr[1], @Result[1], Length(pcStr));
  End;
End;

Function HexToStr(Const pcStr: String): String;
Begin
  Result := '';
  if pcStr <> '' then Begin
    SetLength(Result, Length(pcStr) Div 2);
    HexToBin(@pcStr[1], @Result[1], Length(pcStr));
  End;
End;