Исправление ошибки в функции CryptBinaryToString при экспорте сертификата через CryptoAPI в Delphi

Delphi , Синтаксис , API реализация

Экспорт сертификатов через CryptoAPI в Delphi

В данной статье мы рассмотрим проблему экспорта сертификатов из хранилища Windows через CryptoAPI в формате Base64, используя язык программирования Delphi. Мы столкнемся с ошибкой в функции CryptBinaryToString, которая не возвращает ожидаемый результат. После анализа проблемы, мы найдем решение, описанное в сообществе разработчиков, и применим его в примере кода на Object Pascal.

Проблема

Разработчик столкнулся с проблемой при попытке экспортировать сертификаты из хранилища Windows в формате Base64, используя функции CryptoAPI. В его коде на Delphi используется функция CryptBinaryToString, которая должна преобразовать бинарные данные сертификата в Base64-строку, но в результате не выводит никаких данных. Это происходит из-за неправильной инициализации буфера для хранения строки.

Пример кода с ошибкой

procedure TForm1.Button1Click(Sender: TObject);
var
  hStore: HCERTSTORE;
  CertContext: PCertContext;
  pszString: PAnsiChar;
  pchString: Cardinal;
begin
  hStore := CertOpenSystemStore(0, PChar('MY'));
  try
    CertContext := CertEnumCertificatesInStore(hStore, nil);
    while CertContext <> nil do
    begin
      pszString := '';
      pchString := 0;
      CryptBinaryToString(CertContext.pbCertEncoded, CertContext.cbCertEncoded,
        CRYPT_STRING_BASE64, pszString, pchString);
      ShowMessage(StrPas(pszString));
      CertContext := CertEnumCertificatesInStore(hStore, CertContext);
    end;
  finally
    CertCloseStore(hStore, 0);
  end;
end;

Описание проблемы (в соответствии с документацией)

Функция CryptBinaryToString требует, чтобы указатель на буфер для получения строки был установлен на nil, чтобы сначала определить необходимый размер буфера. Затем, после определения размера, буфер должен быть выделен, и функция должна быть вызвана снова с указанием адреса выделенного буфера.

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

Для корректной работы функции CryptBinaryToString необходимо сначала определить размер буфера, а затем выделить его и использовать в функции. Пример исправленного кода:

procedure TForm1.Button1Click(Sender: TObject);
var
  hStore: HCERTSTORE;
  CertContext: PCertContext;
  szString: AnsiString;
  pchString: Cardinal;
begin
  hStore := CertOpenSystemStore(0, PChar('MY'));
  try
    CertContext := CertEnumCertificatesInStore(hStore, nil);
    while CertContext <> nil do
    begin
      pchString := 0;
      CryptBinaryToString(CertContext.pbCertEncoded, CertContext.cbCertEncoded,
        CRYPT_STRING_BASE64, nil, pchString);
      SetLength(szString, pchString - 1);
      CryptBinaryToString(CertContext.pbCertEncoded, CertContext.cbCertEncoded,
        CRYPT_STRING_BASE64, PAnsiChar(szString), pchString);
      ShowMessage(StrPas(szString));
      CertContext := CertEnumCertificatesInStore(hStore, CertContext);
    end;
  finally
    CertCloseStore(hStore, 0);
  end;
end;

В этом коде сначала определяется размер буфера, затем выделяется буфер с помощью SetLength, и только после этого функция CryptBinaryToString вызывается снова с указанием адреса выделенного буфера.

Почему используется -1 в SetLength(szString, pchString - 1);

Функция SetLength выделяет один символ больше, чем запрошено, для хранения неявного нулевого символа завершения строки. Это необходимо, так как CryptBinaryToString записывает нулевой символ в конец строки.

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

Не был представлен, так как проблема решена в рамках подтвержденного ответа.

Заключение

Мы рассмотрели типичную ошибку, с которой можно столкнуться при работе с функциями CryptoAPI в Delphi, и научились её исправлять. Используя примеры кода на Object Pascal, мы убедились, что правильная инициализация буфера является ключом к успешному выполнению операций с бинарными данными.

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

Разработчик в Delphi столкнулся с проблемой экспорта сертификатов из хранилища Windows в формате Base64 через CryptoAPI, связанной с ошибкой в функции преобразования бинарных данных, и нашёл решение, исправив инициализацию буфера для строки.

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

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

:: Главная :: API реализация ::