Разгадка шифра Rijndael в Delphi: исправление ошибок в коде с PHP и mcrypt

Delphi , Синтаксис , Шифрование

Вопрос, поднятый в данном запросе, связан с проблемами дешифрования строк, отправленных из PHP в Delphi, с использованием шифра Rijndael. Пользователь столкнулся с трудностями при применении кода на стороне PHP с использованием mcrypt и на стороне Delphi с использованием компонентов DCP_rijndael.

Описание проблемы

На стороне PHP используется функция encRJ, которая шифрует данные с использованием Rijndael-256 в режиме CBC. На стороне Delphi функция decRJ предназначена для дешифрования этих данных. Однако, несмотря на все усилия, пользователю не удалось добиться корректного дешифрования.

Подтвержденный ответ

Проблема заключалась в несоответствии способов обработки данных между PHP и Delphi, а также в отсутствии спецификации режима дополнения (padding). В PHP и Delphi необходимо использовать одинаковый режим дополнения, например, PKCS7.

Также было отмечено, что после декодирования из Base64, шифрованные данные должны обрабатываться как массивы байтов, а не как строки. В коде Delphi пользователь пытался преобразовать байты в строки, что приводило к искажению данных и невозможности их дешифрования.

Альтернативный ответ

В дополнение к вышеуказанному, пользователь также обнаружил, что блокирование для TDCP_rijndael соответствует MCRYPT_RIJNDAEL_128, а не MCRYPT_RIJNDAEL_256, что также могло повлиять на корректность работы алгоритма. В случае использования Delphi в не-униicode режиме, для ключей и инициализирующего вектора (IV) следует использовать AnsiStrings, в то время как для Unicode версий Delphi рекомендуется использовать TBytes.

Исправленный код

Для решения проблемы, пользователь модифицировал функции шифрования и дешифрования на стороне Delphi, добавив корректную обработку режима дополнения и декодирование из Base64 напрямую в массивы байтов. После этих изменений, функции PHP и Delphi стали давать одинаковый результат.

Пример кода на Object Pascal (Delphi)

function DecryptData(Data: string; AKey, AIv: AnsiString): string;
var
  key, iv, src, dest: TBytes;
  cipher: TDCP_rijndael;
  slen, pad: Integer;
begin
  // Инициализация ключа и вектора
  key := TEncoding.ASCII.GetBytes(AKey);
  iv := TEncoding.ASCII.GetBytes(AIv);

  // Декодирование Base64 в массив байтов
  src := Base64DecodeBytes(TEncoding.UTF8.GetBytes(Data));

  // Инициализация компонента шифрования
  cipher := TDCP_rijndael.Create(nil);
  try
    cipher.CipherMode := cmCBC;
    slen := Length(src);
    SetLength(dest, slen);
    cipher.Init(key[0], 256, @iv[0]);
    cipher.Decrypt(src[0], dest[0], slen);

    // Удаление режима дополнения
    pad := dest[slen - 1];
    SetLength(dest, slen - pad);

    // Возвращение результата в виде строки
    Result := TEncoding.Default.GetString(dest);
  finally
    cipher.Free;
  end;
end;

function EncryptData(Data: string; AKey, AIv: AnsiString): string;
var
  cipher: TDCP_rijndael;
  key, iv, src, dest, b64: TBytes;
  index, slen, bsize, pad: Integer;
begin
  // Инициализация ключа и вектора
  key := TEncoding.ASCII.GetBytes(AKey);
  iv := TEncoding.ASCII.GetBytes(AIv);

  // Преобразование строки в массив байтов
  src := TEncoding.UTF8.GetBytes(Data);

  // Инициализация компонента шифрования
  cipher := TDCP_rijndael.Create(nil);
  try
    cipher.CipherMode := cmCBC;
    // Добавление режима дополнения
    slen := Length(src);
    bsize := (cipher.BlockSize div 8);
    pad := bsize - (slen mod bsize);
    Inc(slen, pad);
    SetLength(src, slen);
    for index := pad downto 1 do
      src[slen - index] := pad;

    SetLength(dest, slen);
    cipher.Init(key[0], 256, @iv[0]);
    cipher.Encrypt(src[0], dest[0], slen);

    // Кодирование в Base64
    b64 := Base64EncodeBytes(dest);
    Result := TEncoding.Default.GetString(b64);
  finally
    cipher.Free;
  end;
end;

Вывод

Проблема дешифрования в Delphi была решена путем корректной обработки режима дополнения и декодирования данных из Base64 в массивы байтов. Это позволило добиться совместимости между PHP и Delphi в вопросах шифрования и дешифрования с использованием Rijndael.

Создано по материалам из источника по ссылке.

Пользователь столкнулся с проблемой дешифрования данных, зашифрованных с использованием алгоритма Rijndael в PHP с помощью библиотеки mcrypt, на стороне Delphi, из-за несоответствия обработки данных и отсутствия спецификации режима дополнения.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Шифрование ::