delphi - Delphi 7 访问 Windows X509 证书存储

Question

我的问题很简单：有没有使用 Delphi 7 访问 Windows X509 证书存储的简单方法？

在问这个问题之前，我已经用谷歌搜索过，但没有找到任何有用的信息。

Answer 1

最简单的方法是使用capicom，直接打win capi api很痛苦。

一旦你注册了 com 对象并从中创建了你的 typelib 单元..

打开相应的商店，然后从那里使用证书（）方法..

  变量
    商店：TStore；
    证书：ICertificates；
    证书：ICertificate2

  商店 := TStore.Create(nil);
  store.Open(CAPICOM_CURRENT_USER_STORE, '我的', CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED 或 CAPICOM_STORE_OPEN_INCLUDE_ARCHIVED 或 CAPICOM_STORE_OPEN_EXISTING_ONLY);

  证书 := store.Certificates;
  for i := 1 to certificate.count do
  开始
    证书 := IInterface(certificates.Item[i]) as ICertificate2;
    // 使用证书
  结尾;

  商店.close();
  商店。免费；

capicom 参考位于http://msdn.microsoft.com/en-us/library/ms995332.aspx

如果您愿意花钱，我从 eldos 听说过有关 PKIBlackbox 的好消息。

Answer 2

这不是你要找的吗？ 密码学参考

还是您搜索 API Wrapper？

Answer 3

ELDOS有一个复杂的库，可以完全支持使用 X509 证书等；在此处阅读完整描述：
公钥基础设施 (PKI) 支持的组件

请参阅此处的 ElX509CertificateClass 类的参考。

问候。