Разница в шифровании строк с Rijndael в PHP и Delphi: причины и решения

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

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

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

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

Примеры кода

Вот примеры кода, которые использовал разработчик:

В PHP для шифрования:

function encrypt ($key, $value)
{
  $padSize = 16 - (strlen ($value) % 16) ;
  $value = $value . str_repeat (chr ($padSize), $padSize) ;
  $output = mcrypt_encrypt (MCRYPT_RIJNDAEL_128, $key, $value, MCRYPT_MODE_CBC, 'xxxxxxx') ;
  return base64_encode ($output) ;
}

В Delphi для шифрования:

function EncryptData3(Data: string; AKey: AnsiString; AIv: AnsiString): string;
var
  cipher: TDCP_rijndael;
  // ... остальной код ...
end;

И для дешифрования в Delphi, который по сообщениям пользователя не работал:

function DecryptData3(Data: string; AKey: AnsiString; AIv: AnsiString): string;
var
  cipher: TDCP_rijndael;
  // ... остальной код ...
end;

Причины возникновения проблемы

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

Решение проблемы

Разработчик нашел решение, сравнив результаты шифрования в шестнадцатеричном формате и обнаружив, что они идентичны. После этого было выявлено, что проблема возникает при использовании функции Base64EncodeBytes. Переход на использование функции Base64Encode2 из внешнего источника позволил исправить проблему.

SetString(stringValue, PAnsiChar(@dest[0]), slen);
result := Base64Encode2(stringValue);

Заключение

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

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

Вопрос связан с различиями в реализации шифрования строк алгоритмом Rijndael в PHP и Delphi, и поиском решения возникшей проблемы с длиной зашифрованных данных.

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

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

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