Delphi DEC 库 (Rijndael) 加密

Question

我正在尝试使用 DEC 3.0 库 (Delphi Encryption Compedium Part I) 来加密 Delphi 7 中的数据并通过 POST 将其发送到 PHP 脚本，在那里我使用 mcrypt 对其进行解密（RIJNDAEL_256，ECB 模式）。

德尔福部分：

uses Windows, DECUtil, Cipher, Cipher1;

function EncryptMsgData(MsgData, Key: string): string;
var RCipher: TCipher_Rijndael;
begin
  RCipher:= TCipher_Rijndael.Create(KeyStr, nil);
  RCipher.Mode:= cmECB;
  Result:= RCipher.CodeString(MsgData, paEncode, fmtMIME64);
  RCipher.Free;
end;

PHP部分：

function decryptMsgContent($msgContent, $sKey) {
    return mcrypt_decrypt(MCRYPT_RIJNDAEL_256, $sKey, base64_decode($msgContent), MCRYPT_MODE_ECB, mcrypt_create_iv(mcrypt_get_iv_size(MCRYPT_RIJNDAEL_256, MCRYPT_MODE_ECB), MCRYPT_RAND));
}

问题是从PHP解密不起作用，输出乱码，与实际数据不同。

当然，Delphi Key 和 PHP $Key 是同一个 24 个字符的字符串。

现在我知道 DEC 3.0 已经过时且过时了，而且我不是加密专家，无法判断实施是否真的是 Rijndael 256。也许有人可以告诉我这个实施与 PHP 的 mcrypt w/RIJNDAEL_256 有何不同.也许密钥大小不同，或者块大小不同，但无法从代码中看出这一点。以下是 Cipher1.pas 的摘录：

const
{ don’t change this }
  Rijndael_Blocks =  4;
  Rijndael_Rounds = 14;

class procedure TCipher_Rijndael.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
begin
  ABufSize := Rijndael_Blocks * 4;
  AKeySize := 32;
  AUserSize := (Rijndael_Rounds + 1) * Rijndael_Blocks * SizeOf(Integer) * 2;
end;

附加问题：

我知道不推荐使用 ECB 模式，我会在 ECB 工作后立即使用 CBC。问题是，我是否还必须将 Delphi 中生成的 IV 传输到 PHP 脚本？或者知道密钥就足够了，比如欧洲央行？

Answer 1

您正在调用 TCipher.Create(const Password: String; AProtection: TProtection);构造函数，它将在将密码传递给 Init 方法之前计算密码的哈希值，该方法执行已实现算法的标准密钥调度。要覆盖此密钥派生，请使用：

function EncryptMsgData(MsgData, Key: string): string;
var RCipher: TCipher_Rijndael;
begin
  RCipher:= TCipher_Rijndael.Create('', nil);
  RCipher.Init(Pointer(Key)^,Length(Key),nil);
  RCipher.Mode:= cmECB;
  Result:= RCipher.CodeString(MsgData, paEncode, fmtMIME64);
  RCipher.Free;

结束；

Answer 2

好的，总结一下，我的代码存在 3 个问题：

1. 由于我对 mcrypt 和一般密码的理解不足，MCRYPT_RIJNDAEL_256 指的是 128 位 块，而不是指密钥大小。我的正确选择应该是 MCRYPT_RIJNDAEL_128，它是 AES 标准，也受 DEC 3.0 支持。

2. DEC 有它自己的默认密钥派生，所以我需要绕过它，这样我也不必在 PHP 中实现它。实际上，我使用的是我自己的密钥派生算法，该算法很容易在 PHP 中重现（sha1(key) 的前 32 个字符）。

3. DEC 不会像 mcrypt 预期的那样将明文填充为密码块大小的倍数，因此我必须手动完成。

在下面提供工作代码：

德尔福：

uses Windows, DECUtil, Cipher, Cipher1, CryptoAPI;

function EncryptMsgData(MsgData, Key: string): string;
var RCipher: TCipher_Rijndael;
    KeyStr: string;
begin
  Result:= '';
  try
    // key derivation; just making sure to feed the cipher a 24 chars key
    HashStr(HASH_SHA1, Key, KeyStr);
    KeyStr:= Copy(KeyStr, 1, 24);
    RCipher:= TCipher_Rijndael.Create('', nil);
    RCipher.Init(Pointer(KeyStr)^, Length(KeyStr), nil);
    RCipher.Mode:= cmECB;
    Result:= RCipher.CodeString(MsgData + StringOfChar(#0,16-(Length(MsgData) mod 16)), paEncode, fmtMIME64);
    RCipher.Free;
  except
  end;
end;

PHP：

function decryptMsgContent($msgContent, $sKey) {
    $sKey = substr(sha1(sKey), 0, 24);
    return trim(mcrypt_decrypt(MCRYPT_RIJNDAEL_128, $sKey, base64_decode($msgContent), MCRYPT_MODE_ECB, mcrypt_create_iv(mcrypt_get_iv_size(MCRYPT_RIJNDAEL_128, MCRYPT_MODE_ECB), MCRYPT_RAND)));
}

Answer 3

我发现的 256 位密钥是 32 个字符或 32 个字节。不是 24。这可能是问题所在。

[编辑]

我将每个人的想法（支持等）合并为一个带有修复的想法。

另外，您正在使用 codestring( -- 它应该是 Encodestring(

我在下面粘贴了工作加密和解密源：

---

function EncryptMsgData(MsgData, Key: AnsiString): AnsiString;
var RCipher: TCipher_Rijndael;
begin
  RCipher:= TCipher_Rijndael.Create('', nil);
  RCipher.Init(Pointer(Key)^,Length(Key),nil);
  RCipher.Mode:= cmCBC;
  Result:= RCipher.EncodeString(MsgData);
  RCipher.Free;
end;

function DecryptMsgData(MsgData, Key: AnsiString): AnsiString;
var RCipher: TCipher_Rijndael;
begin
  RCipher:= TCipher_Rijndael.Create('',nil);
  RCipher.Init(Pointer(Key)^,Length(Key),nil);
  RCipher.Mode:= cmCBC;
  Result:= RCipher.DecodeString(MsgData);
  RCipher.Free;
end;

---

将其与 32 个字符的密钥一起使用，您可以获得正确的加密和解密。

为了将加密数据作为字符串存储和使用，您可能需要使用 Base64Encode(

但不要忘记在解密之前进行 Base64Decode。

这与 Blowfish 所需的技术相同。有时字符实际上就像退格键，执行功能而不是显示在屏幕上。 Base64Encode 基本上将字符转换为可以在文本中显示的内容。

在通过互联网传输编码数据或以相同或另一种语言传输到另一个应用程序之前，您必须进行 base64 编码和解码，以免丢失数据。在 PHP 中也不要忘记它！