VPF::Не прочесть открытый ключ RSA - Форум программистов

ekzo

Дата 3.9.2014, 06:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 4.8.2009

Репутация: нет
Всего: нет

Юзаю Delphi XE6 (Firemonkey) + OpenSSL libs 1.0.1i (это под винду, под мак не надо, там свое) + заголовочные файлы Indy IdSSLOpenSSLHeaders, IdSSLOpenSSLHeaders_static.

Пытаюсь прочесть RSA открытый ключ, не получается, PEM_read_bio_RsaPublicKey возвращает 0 (nil). Точно такой же код для закрытого ключа (функция 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;

Ключи сгенерены так:

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

Выглядят так:

-----BEGIN RSA PRIVATE KEY-----
MIICXgIBAAKBgQDyYSxGmR95H9tO2Be82RyFd0KzqCH64D0ssUtURbYw4qJTeKln
..cut..
fKcHkq+cl7KKVi+nocAO8sUzzzBFy9TlXbx8cgN/PIFwvw==
-----END RSA PRIVATE KEY-----

-----BEGIN PUBLIC KEY-----
MIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDyYSxGmR95H9tO2Be82RyFd0Kz
..cut..
WdCa/uFKyfIJHsQiuwIDAQAB
-----END PUBLIC KEY-----

Знает кто, что тут не так? Или может другой способ расшифровывать текст зашифрованый с помощью php (openssl_public_encrypt /openssl_private_encrypt).
Смог поставить какую-то версию компонентов Lockbox - так оно не совместимо с OpenSSL ключами... Да, фишка в том, что мне нужно решение работающее на MacOS/Firemonkey.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »