Ошибки при чтении публичного ключа RSA в Delphi XE6: причины и решения

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

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

Проблема чтения публичного ключа RSA

Пользователь столкнулся с проблемой при попытке прочитать публичный ключ RSA с использованием функции PEM_read_bio_RsaPublicKey. При этом, код для чтения приватного ключа (PEM_read_bio_RsaPrivateKey) работал корректно.

Код для чтения публичного ключа выглядит следующим образом:

function TForm1.ReadPublicKey(AFileName: TFileName): pRSA;
var
  keyfile: pBIO;
begin
  keyfile := BIO_new(BIO_s_file());
  BIO_read_filename(keyfile, PAnsiChar(UTF8Encode(AFileName)));
  result := PEM_read_bio_RsaPublicKey(keyfile, nil, nil, nil);
  if result = nil then
    raise Exception.Create('Unable to read public key. ' + GetErrorMessage);
end;

Параметры, используемые в программе: Delphi XE6, библиотек OpenSSL версии 1.0.1i и заголовки Indy для SSL (IdSSLOpenSSLHeaders, IdSSLOpenSSLHeaders_static).

Чтобы сгенерировать приватные и публичные ключи, использовалась следующая команда:

openssl genrsa -out private.pem 1024
openssl rsa -in private.pem -outform PEM -pubout -out public.pem

Форматы ключей после генерации:

----BEGIN RSA PRIVATE KEY-----
...
----END RSA PRIVATE KEY-----

----BEGIN PUBLIC KEY-----
...
----END PUBLIC KEY-----

Проблема, описанная пользователем, привела к ошибке:

error:0906D06C:lib(9):func(109):reason(108)
error:0906D06C:PEM routines:PEM_read_bio:no start line

Причины возникновения ошибки

Согласно информации в контексте, ошибка связана с отсутствием начальной строки в данных. Это может быть вызвано неправильным сохранением файла ключа, ошибкой при кодировании строки или проблемами с библиотеками OpenSSL или Indy.

Подтвержденное решение

В ответе пользователя указано, что он не смог заставить функцию PEM_read_bio_RsaPublicKey работать и использовал альтернативный подход с функцией PEM_read_bio_PUBKEY. Этот метод предполагает чтение ключей, которые начинаются со строки ----BEGIN PUBLIC KEY-----.

function LoadPublicKey(const AFileName: string): PEVP_PKEY;
var
  bp: pBIO;
  utf8file: RawByteString;
begin
  utf8file := UTF8Encode(AFileName);
  bp := BIO_new(BIO_s_file());
  BIO_read_filename(bp, PAnsiChar(utf8file));
  result := PEM_read_bio_PUBKEY(bp, nil, nil, nil);
  if result = nil then
    raise Exception.Create('Ошибка загрузки публичного ключа' + GetSSLErrorMessage);
end;

Пользователь также отметил, что после некоторых изменений в файле libeay32.pas и использовании PEM_read_bio_PUBKEY, проблема была решена.

Альтернативное решение

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

Заключение

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

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

Пользователь столкнулся с ошибками при чтении публичного ключа RSA в среде разработки Delphi XE6 и ищет решения проблемы, связанной с функциями библиотеки OpenSSL и форматом файлов ключей.

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

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

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