Acceso a Delphi 7 Windows X509 Certificate Store

Question

Mi pregunta es bastante simple: ¿hay una manera simple de acceder al almacén de certificados de Windows X509 usando Delphi 7?

Antes de hacer esta pregunta, busqué en Google, pero no encontré ninguna información útil.

Answer 1

la forma más fácil es usar capicom, golpear directamente la API de win capi es doloroso.

una vez que haya registrado el objeto com y creado su unidad typelib a partir de él ...

abra la tienda adecuada y, a partir de ahí, use el método de certificados () ..

  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;

La referencia de

capicom se encuentra en http://msdn.microsoft.com/en -us / library / ms995332.aspx

si está de acuerdo con gastar dinero, he oído cosas buenas sobre PKIBlackbox de eldos.

Answer 2

¿No es eso lo que estás buscando? Referencia de criptografía

¿O buscas un API Wrapper?

Answer 3

Hay una biblioteca compleja de ELDOS que agrega soporte completo para trabajar con certificados X509 y más; Lea la descripción completa aquí:
componentes para el soporte de Infraestructura de clave pública (PKI)

Consulte la referencia para la clase ElX509CertificateClass aquí .

Saludos.