将 TurboPower Lockbox 2 转换为 LockBox 3

Question

我目前正在将一个项目（使用加密）从 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 演示的大小不同。

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

1. 我在上面的 XE 代码中做错了什么，以至于我从 LockBox2 中给 ExFile 演示提供了不同的结果？

2. 我应该只在XE中使用LockBox2吗？

3. 与2相关，有人在看代码LockBox2（XE版）吗？

任何帮助将不胜感激。

问候，

Answer 1

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

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

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

Y = X + 8 - (X mod 8)

（有关更多详细信息，请参阅论坛主题：http://lockbox.seanbdurkin.id.au/tiki-view_forum_thread.php?comments_parentId=154&topics_offset=2&topics_sort_mode=lastPost_desc&forumId=2)

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

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