Delphi 7 получает доступ к Хранилищу сертификатов Windows X509

Question

Мой вопрос довольно прост:есть ли простой способ получить доступ к хранилищу сертификатов Windows X509 с помощью Delphi 7?

Прежде чем задать этот вопрос, я погуглил, но не нашел никакой полезной информации.

Answer 1

Самый простой способ - использовать capicom, а попадание в win capi api - это болезненно.

как только вы зарегистрируете объект com и создадите из него модуль typelib.

откройте соответствующее хранилище и оттуда используйте метод Certificates ().

  var
    store: TStore;
    certificates: ICertificates;
    certificate: ICertificate2

  store := TStore.Create(nil);
  store.Open(CAPICOM_CURRENT_USER_STORE, 'My', CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED or CAPICOM_STORE_OPEN_INCLUDE_ARCHIVED or CAPICOM_STORE_OPEN_EXISTING_ONLY);

  certificates := store.Certificates;
  for i := 1 to certificates.count do
  begin
    certificate := IInterface(certificates.Item[i]) as ICertificate2;
    // work with the cert
  end;

  store.close();
  store.Free;

Ссылка

capicom находится по адресу http://msdn.microsoft.com/en -us / библиотека / ms995332.aspx

если вы согласны тратить деньги, я слышал хорошие отзывы о PKIBlackbox от eldos.

Answer 2

Разве это не то, что вы ищете? Справочник по криптографии

Или вы ищете API Wrapper?

Answer 3

Существует сложная библиотека fom ЭЛДОС которые добавляют полную поддержку для работы с сертификатами X509 и многое другое;Полное описание читайте здесь:
компоненты для поддержки инфраструктуры открытых ключей (PKI)

Смотрите ссылку на класс ElX509CertificateClass здесь.

С уважением.