一、开发环境及工具
上一篇文章,我们使用C++ 实现了航天版国密算法模块获取金税盘信息,请参阅 上期文章。
本文将使用 Delphi 来实现,所示代码环境:Windows10 x64专业版(19042.746)+ Embarcadero RAD Studio 10.4。
二、代码实现
为保持和C++版相同的代码结构,现贴出金税盘工具类关键的 OnGetCertificationDataFromGmSKF 函数的代码:


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


执行后的效果:
三、免责声明
本文代码仅限于技术及经验交流,严禁在任何商用场景中使用,由此带来的任何风险由使用者自行承担。
本文介绍了如何在Delphi环境下,采用C++已有的国密算法模块,实现读取航天金税盘信息的功能。代码包括了关键函数OnGetCertificationDataFromGmSKF和OnGetCertInfo的实现,并展示了执行后的调试信息。请注意,本文代码仅供技术交流,禁止商用,使用风险自负。
https://download.youkuaiyun.com/download/WackMan/85030503
1213

被折叠的 条评论
为什么被折叠?



