德爾福DEC庫（Rijndael算法）加密

Question

我試圖使用DEC 3.0庫（Delphi Encryption Compedium Part I）在Delphi 7中的數據進行加密，並通過POST，在那裏我與mcrypt的解密它（發送到PHP腳本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解密無法正常工作，輸出爲亂碼，從實際的數據不同。

當然，德爾福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模式，我得到歐洲央行的工作我會盡快使用CBC。問題是，我是否必須將Delphi中生成的IV傳遞給PHP腳本？或者知道關鍵是足夠的，就像歐洲央行？

Answer 1

您正在調用TCipher.Create（const Password：String; AProtection：TProtection）;構造函數，在將密碼傳遞給Init方法之前計算密碼的哈希值，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; 

end;

Answer 2

好了，總結這件事，有3個問題與我的代碼：

1. 由於我的mcrypt和一般密碼的理解不夠，MCRYPT_RIJNDAEL_256是指128位塊並沒有按」 t引用密鑰大小。我的正確選擇應該是MCRYPT_RIJNDAEL_128，這是AES標準，也是DEC 3.0支持的。

2. DEC有它自己的默認密鑰派生，所以我需要繞過它，所以我不必在PHP中也實現它。實際上，我使用自己的密鑰派生算法，它很容易在PHP中重現（sha1（key）的前32個字符）。

3. DEC不會將明文填充到密碼塊大小的倍數，因爲mcrypt需要，所以我必須手動完成。

下面提供的工作代碼：

的Delphi：

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

A I發現256位密鑰是32個charachters，或者32個字節。不是24.這可能是問題。

[編輯]

我結合大家的想法（AnsiString類型等），並在修復一個單一的想法。

此外，您使用的代碼串（ - 應該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 charachter密鑰，你會得到正確的加密和解密。

爲了存儲和使用加密將數據作爲一個字符串，你可能想要使用Base64Encode（

但是在解密之前不要忘記Base64Decode。

這與Blowfish所需的技術相同。有時候，這些字符實際上就像一個退格鍵，並且執行該功能而不是在屏幕上顯示。 Base64Encode基本上將字符轉換爲可以在文本中顯示的東西。

在將編碼數據通過互聯網或以相同或另一種語言傳輸到其他應用程序之前，您必須進行64位編碼和解碼，以便不會丟失數據。不要忘記它在PHP中！