Разработка веб-сервисов на Delphi XE с использованием самоподписанных сертификатов: решение проблемы access violation

Delphi , ОС и Железо , Windows

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

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

Разработчик столкнулся с проблемой access violation при работе с библиотекой OpenSSL в среде Delphi XE. Ошибка возникает при попытке передачи данных через сокет, используя самоподписанный сертификат, хранящийся в магазине сертификатов Windows. При этом, если сертификат загружается из файла .pem, проблема отсутствует.

Контекст проблемы

Разработчик использует функции CertOpenSystemStore, CertFindCertificateInStore для получения сертификата из хранилища, а затем SSL_CTX_use_certificate для его установки в контекст SSL. После этого, с помощью CryptExportKey, получается блоб публичного ключа, который используется для создания приватного ключа. Однако, при передаче данных через ssl_read, возникает access violation в библиотеке libeay32.dll.

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

Исходя из предоставленной информации, наиболее вероятная причина ошибки — неправильная инициализация структуры RSA, используемой с OpenSSL. В структуре присутствуют нулевые указатели, что может указывать на некорректное создание объекта. Также, значение ex_data с магическим числом BAADF00D обычно является признаком некорректно инициализированного блока памяти.

Шаги по решению проблемы

1. Проверьте, что все указатели в структуре RSA корректно инициализированы и не содержат нулевых значений, если это не предполагается их состоянием.
2. Убедитесь, что память для структуры RSA была выделена и не освобождена до использования.
3. Сравните структуру RSA, полученную из хранилища сертификатов, с структурой, полученной из файла .pem. Возможно, в ней отсутствуют некоторые необходимые данные.
4. Рассмотрите возможность использования CAPI (Cryptography API) движка OpenSSL, который может упростить работу с сертификатами.

Пример кода

function PrivKeyBlob2RSA(const AKeyBlob: PByte; const ALength: Integer; const ASSLCtx: PSSL_CTX): PEVP_PKEY;
var
  modulus: PByte;
  bh: PBLOBHEADER;
  rp: PRSAPUBKEY;
  rsa_modlen: DWORD;
  rsa_modulus: PAnsiChar;
  rkey: PRSA;
begin
  // Проверьте, что AKeyBlob и ALength корректны
  // ...
  // Инициализация bh, rp, rsa_modulus, rkey
  // ...
  // Проверьте корректность работы с указателями и памятью
  // ...
  // Инициализация структуры RSA
  // ...
  // Используйте BN_bin2bn для корректной инициализации поля n
  // ...
  // Завершение инициализации и возвращение результата
  // ...
end;

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

Если проблема не решается после проверки кода, возможно, стоит обратить внимание на версию библиотек OpenSSL и соответствие оберток для Delphi. Также, возможно, потребуется обновление Indy до версии 10.

Заключение

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

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

При разработке веб-сервисов на Delphi XE возникла проблема с ошибкой 'access violation' при использовании самоподписанных сертификатов для работы с сетью, что указывает на некорректный доступ к памяти при взаимодействии с библиотекой OpenSSL

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

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

:: Главная :: Windows ::