跨平台 通用的 数据加密解密或编码解码的 设计思路

红鱼儿

学习

hsanming

好方法，学习了

pascal76

来学习了

wfymqj

来学习了，谢谢！

wang_80919

上述代码是将加密或编码结果转为了 Base64
如果希望转换为 Hex 可以用下面的代码。

跨平台 Unicode string 用 HexToStr StrToHex
http://www.2pascal.com/forum.php ... &tid=2731&fromuid=4
(出处: 2Pascal-新时代的Pascal)


通过 TStream 转为 TBytes 的代码，
再加上 上面链接的代码 就能将 TStream 转为 Hex 了。
[mw_shl_code=delphi,true]
  SetLength(ABytes, AStream.Size - AStream.Position);
  AStream.Read(ABytes, AStream.Size - AStream.Position);
  TempHexStr := StrToHex(ABytes);
[/mw_shl_code]

反过来的代码我就不写了。