Delphi 7 доступ к хранилищу сертификатов Windows X509 - PullRequest
Новая
       62

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

1 голос
/ 27 октября 2009

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

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

Ответы [ 3 ]

3 голосов
/ 27 октября 2009

Самый простой способ - использовать 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/library/ms995332.aspx

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

0 голосов
/ 28 октября 2009

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

См. Ссылку для класса ElX509CertificateClass здесь .

Привет.

0 голосов
/ 27 октября 2009

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

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

...