Шифрование библиотеки Delphi DEC (Rijndael)

Вы вызываете 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;

конец;

Итак, подводя итог, с моим кодом было 3 проблемы:

1. Из-за моего плохого понимания mcrypt и шифров в целом MCRYPT_RIJNDAEL_256 относится к 128-битному блоку и не относится к размеру ключа. Мой правильный выбор должен был быть MCRYPT_RIJNDAEL_128, который является стандартом AES и также поддерживается DEC 3.0.

2. У DEC есть собственное производное ключа по умолчанию, поэтому мне нужно было обойти его, чтобы мне не пришлось реализовывать его и в PHP. На самом деле я использую свой собственный алгоритм получения ключа, который легко воспроизвести в PHP (первые 32 символа sha1 (ключ)).

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)));
}

Я нашел 256-битный ключ - это 32 символа или 32 байта. Не 24. Это может быть проблемой.

[РЕДАКТИРОВАТЬ]

Я объединил все идеи (ответы и т. Д.) В одну идею с исправлением.

Кроме того, вы используете кодовую строку (- это должно быть 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. Иногда символы на самом деле похожи на backspace и выполняют функцию, а не отображаются на экране. Base64Encode в основном преобразует символы во что-то, что вы можете отобразить в тексте.

Перед передачей закодированных данных через Интернет или в другое приложение на том же или другом языке вы ДОЛЖНЫ кодировать и декодировать base64, чтобы не потерять данные. Не забывайте это и в PHP!