デルファイ12月ライブラリ（ラインダール）暗号化

Question

私は、Delphi 7でデータを暗号化し、私はmcryptの（とそれを解読していますPOSTを介して、PHPスクリプトに送信する12月3.0ライブラリ（Delphi Encryption Compedium Part I）を使用しようとしていますRIJNDAEL_256、ECBモード）。

Delphiの一部：

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スクリプトにも送信する必要があるということですか？ ECBのように、キーが十分であることを知っていますか？

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; 

end;

Answer 2

OK、そう私のコードと3つの問題があった、これを合計する：原因mcryptのと一般的な暗号の私の理解不足に

1. は、MCRYPT_RIJNDAEL_256は128ビットブロックとdoesnの」に言及しますキーのサイズを参照してください。私の正しい選択はMCRYPT_RIJNDAEL_128だったはずです。これはAES標準であり、DEC 3.0でもサポートされています。

2. DECには独自のデフォルトキーの導出がありますので、PHPで実装する必要がないようにバイパスする必要がありました。実際には、PHPで再現しやすい独自のキー導出アルゴリズム（sha1（キー）の最初の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 charachters、または32バイトです。これは問題かもしれません。

[EDIT]

私は修正して1つのアイデアにすべての人のアイデア（AnsiStringの、など）を組み合わせました。

---

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とのこと： -

また、あなたは（符号列を使用している、それは（

をEncodestringしなければならない私は、以下の作業を暗号化と復号化のソースを貼り付け適切な暗号化と復号化が得られます。

暗号化を保存して使用するにはあなたがBase64Encode（

を解読する前にBase64Decodeすることを忘れないでください。

これはBlowfishに必要な技術と同じです。キャラクターは実際にはバックスペースのようなもので、スクリーンに表示するのではなく機能を実行することがあります。 Base64Encodeは、基本的にキャラクタをテキストで表示できるものに変換します。

エンコードされたデータを同じ言語または別の言語でインターネットまたは別のアプリケーションに転送する前に、データを失わないためにbase64エンコードおよびデコードする必要があります。 PHPでもそれを忘れないでください！