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

本文介绍了如何在Delphi环境下,采用C++已有的国密算法模块,实现读取航天金税盘信息的功能。代码包括了关键函数OnGetCertificationDataFromGmSKF和OnGetCertInfo的实现,并展示了执行后的调试信息。请注意,本文代码仅供技术交流,禁止商用,使用风险自负。

一、开发环境及工具

 

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

本文将使用 Delphi 来实现,所示代码环境:Windows10  x64专业版(19042.746)+ Embarcadero RAD Studio 10.4。

二、代码实现

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

 

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

执行后的效果:

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

、免责

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

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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

吴说扒道

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值