Добрый день. я Использую Delphi и библиотеку wcrypt2. Программа используется для вывода данных в текстовый файл.
Извлек серийный номер, данные о владельце и т.д. Не могу вывести открытый ключ и расширенное использование.
Кусок кода, извлекающий серийный номер:

function DecodeSerialNumber( Source : CRYPT_INTEGER_BLOB ) : String;
begin
SetLength( Result, Source.cbData * 2 );
BinToHexInverted( PChar( Source.pbData ), Pointer( Result ), Source.cbData );
end;
///---
LOG('Серийный номер: '+DecodeSerialNumber(cert^.pCertInfo^.SerialNumber));

Как по аналогии вывести открытый ключ?