将 TurboPower Lockbox 2 转换为 LockBox 3答案

【问题标题】：Converting TurboPower Lockbox 2 to LockBox 3将 TurboPower Lockbox 2 转换为 LockBox 3
【发布时间】：2011-09-21 00:44:37
【问题描述】：

我目前正在将一个项目（使用加密）从 Delphi 6 转换为 XE。该项目使用旧的 Delphi Encryption Compendium，它在 XE 中不起作用。所以我想我会从那个组件集换成 LockBox。 LockBox 有两个版本 - 2 和 3。我在 Delphi 6 中使用 LockBox2 没有问题。我虽然会在 XE 中使用 LockBox3，但我遇到的问题是我在使用时无法获得相同的结果ExFile 演示程序（来自 LockBox2）。

在那个演示中，我选择了 Blowfish 算法，将密码设置为“testkey”，不带引号，程序将加密文件。

在 Delphi XE 中，我放到了表单上

Codec1: TCodec;
CryptographicLibrary1: TCryptographicLibrary;

并将 Codec1 链接到 CryptographicLibrary1 并在单击按钮时执行以下代码（在 LockBox3 站点上找到了用于解密字符串的类似代码）......

  codec1.StreamCipherId := BlockCipher_ProgId;
  codec1.BlockCipherId := Blowfish_ProgId;
  codec1.ChainModeId := ECB_ProgId;
  codec1.Password := 'testkey';
  codec1.encryptFile('d:\tools\mingw\bin\md5.exe', 
   'd:\tools\mingw\bin\md5_xe_2.exe');

但最终结果是输出文件的大小与 LockBox2 ExFile 演示中的不同。

所以我的问题是......

我在上面的 XE 代码中做错了什么，以至于我给 ExFile 演示提供了与 LockBox2 不同的结果？
我应该只在 XE 中使用 LockBox2 吗？
与2有关，是否有人在看代码LockBox2（XE）？

任何帮助将不胜感激。

问候，

【问题讨论】：

您确定 LockBox2 的结果正确吗？您是否使用另一个加密实用程序对其进行了测试以找出哪个库给您错误的结果？ LockBox 3 有一个支持论坛，似乎很活跃。你试过在那里问你的问题吗？这是它的网址：lockbox.seanbdurkin.id.au/tiki-view_forum.php?forumId=2
XE 使用 Unicode，所以也要考虑这一点 - 它会影响字符串处理，这可能会影响大小。

标签： delphi delphi-xe delphi-6 turbopower lockbox-3

【解决方案1】：

用户“mj2008”一针见血。 Delphi 6 使用 ansistring 作为字符串。 Delphi XE 使用 UTF-16LE。相同的密码，在屏幕上呈现或从键盘输入，是完全不同的数据，因此结果自然会不同。

关于预期的文件大小。 Blowfish 是一个 8 字节（64 位）的块模式密码。尽管对于其他链接模式会有所不同，但 ECB 使用块填充来填充最后一个块。 TPLB3 对 ECB 使用 RFC1321 填充方案，也就是说，它用一个 80 美元的字节来填充消息，后面跟着足够的零来获得整个块的大小。 TPLB2 使用不同的方案：它用零填充直到最后一个字节，它设置为包块中预填充的字节数。

因此，如果您的明文文件大小为 X 字节，并且您使用 Blowfish/ECB 加密，那么密文大小 Y 应该是：

Y = X + 8 - (X mod 8)

*2。需要注意的是，我对您的程序的目的和上下文一无所知，并且特定情况可能会影响这个问题，我想说为您的 Delphi XE 程序使用 TurboPower LockBox 3。如果您需要与旧的LB2密文互操作，那么编写并执行一次，将LB2密文转换为LB3密文的转换程序。然后丢弃LB2。

*3。我会继续维护 LB2，但我只会修复 LB2 中报告的主要缺陷，不会修复 LB2 中的 RSA 组件。

【讨论】：