从delphi 7到xe的字符串编码错误

Question

我在互联网上找到了一些 crypt 字符串的来源，我看到在 delphi 7 上，字符串被加密和解密得很好，当我尝试用 delphi xe2、xe3、xe4、xe5 做同样的事情时，加密结束解密失败出现此错误“用于解密的缓冲区大小无效”

我在这里使用 aes.pas 和 eiaes.pas：http://code.google.com/p/jalphi-lib/source/browse/trunk/codemyth/delphi/dontuseit/?r=7

我认为问题在于字符串的编码。

这个问题能解决吗？

Answer 1

您提供链接的 AES 库尚未更新以支持在更高版本的 Delphi（Delphi 2009 及更高版本）中的“String”现在是 UnicodeString 其中每个字符都是一个WideChar。

您有 4 个选项：

1. 联系库作者并询问是否有 Unicode 版本 计划/可用

2. 尝试自己修改库以支持 Unicode（或查找 能够/将帮助做到这一点的人）

3. 查找已经支持 Unicode 的替代加密库

4. 确保您只对库使用 ANSI 字符串。

这最后一个选项可能对您不可行，但如果可行，您仍需要修改 AES 库，但您无需更改任何代码。

问题是Delphi后期版本中的“String”和“Char”都是“Wide”类型（每个2字节'特点'）。这种差异几乎肯定会导致 AES 库中的代码出现问题，该代码假定每个字符只有 ONE 个字节。

您可以通过确保 AES 代码使用 ANSI 字符串来使这些假设有效。

如果您选择这样做，那么我建议您引入两种新类型：

type
  AESString = ANSIString;
  AESChar   = ANSIChar;
  PAESChar  = ^AESChar;

然后，您需要检查 AES 库代码，将所有对“String”的引用替换为“AESString”、“Char”与“AESChar”和“PChar”与“PAESChar”。

这应该使 AES 成为一个 ANSI 字符串库，并且如果这对您很重要，它仍然可以在 Delphi 7（即 Delphi 2009 之前）中使用。

如果您以后发现确实需要完全支持 Unicode 字符串，然后需要正确修复 AES 库代码本身，您可以这样做，然后只需更改 AESString 和 AESChar 类型：

type
  AESString = String;
  AESChar   = Char;

如果随后使用非 Unicode 版本的 Delphi 编译，该库将自动恢复为 ANSI String ("String" == ANSIString pre-D2009 )，因此如果您需要同时支持 Unicode 和非 Unicode 版本的 Delphi，您的 Unicode 更改将需要考虑到这一点。您确实需要小心，但这并不难。