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