Delphi 7 доступ к Windows X509 Магазин сертификатов

Question

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

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

Answer 1

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

, как только вы зарегистрировали COM-объект и создали блок TYPELIB из него ..

открыть соответствующий магазин, и оттуда использовать сертификаты() метод ..

 
    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.

Answer 2

Не тот, что вы ищете? Cryptography Reference

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

Answer 3

Существует сложная библиотека fom ELDOS, которая добавляет полную поддержку для работы с сертификатами X509 и более; Прочитать полное описание здесь:
components for Public Key Infrastructure (PKI) support

Смотрите Справочник по классу ElX509CertificateClass here.

С уважением.