15、证书吊销列表管理与验证

证书吊销列表管理与验证

1. 项目创建

要创建此应用程序的项目，需执行以下步骤：
1. 将之前创建的应用程序中的加密类、表单和项目文件复制到新的项目目录中。
2. 在 Visual Basic 中打开该项目。
3. 打开项目后，在“项目引用”对话框中添加对 CertAdmin 对象的引用，如图 7.1 所示。
4. 在开始编码之前，还需要通过“组件”对话框将 Microsoft 通用对话框控件添加到项目组件中，如图 7.2 所示。

2. 修改加密类声明

在加密类中添加常量、函数 API 调用和变量声明，代码如下：

'
' Certificate Status
'
Const CA_DISP_INCOMPLETE = 0
Const CA_DISP_ERROR = &H1
Const CA_DISP_REVOKED = &H2
Const CA_DISP_VALID = &H3
Const CA_DISP_INVALID = &H4
Const CA_DISP_UNDER_SUBMISSION = &H5
'+-----------------------------------------------------------------------
'  X509_CRL_REASON_CODE
'  szOID_CRL_REASON_CODE
'
'  pvStructInfo points to an int which can be set to one of the following
'  enumerated v