使用国密函数读取金税盘信息-Delphi 版

一、开发环境及工具

 

上一篇文章，我们使用C++ 实现了航天版国密算法模块获取金税盘信息，请参阅 上期文章。

本文将使用 Delphi 来实现，所示代码环境：Windows10  x64专业版（19042.746）+ Embarcadero RAD Studio 10.4。

二、代码实现

为保持和C++版相同的代码结构，现贴出金税盘工具类关键的 OnGetCertificationDataFromGmSKF 函数的代码：

 

同样贴出数字证书解析函数 OnGetCertInfo 的代码：

执行后的效果：

图1  航天金税盘版3.0版国密调试信息

三、免责声明

本文代码仅限于技术及经验交流，严禁在任何商用场景中使用，由此带来的任何风险由使用者自行承担。

使用国密函数读取金税盘信息-Delphi版-Delphi文档类资源-CSDN下载使用国密函数读取金税盘信息-Delphi版源码更多下载资源、学习资料请访问CSDN下载频道.https://download.csdn.net/download/WackMan/85030503