【笔记】证书安装

xiaoyu1986

cer证书安装：
DLL：

  

DLL命令名	返回值类型	公开	备 注
CertOpenSystemStoreA	整数型
DLL库文件名:
crypt32.dll
在DLL库中对应命令名:
CertOpenSystemStoreA
参数名	类 型	传址	数组	备 注
arg1	整数型
arg2	文本型

DLL命令名	返回值类型	公开	备 注
CertOpenSystemStoreW	整数型		Unicode字符串作为系统存储区名，宽字符模式。
DLL库文件名:
crypt32.dll
在DLL库中对应命令名:
CertOpenSystemStoreW
参数名	类 型	传址	数组	备 注
arg1	整数型
arg2	文本型

DLL命令名	返回值类型	公开	备 注
CertCreateCertificateContext	整数型
DLL库文件名:
crypt32.dll
在DLL库中对应命令名:
CertCreateCertificateContext
参数名	类 型	传址	数组	备 注
arg1	整数型
arg2	整数型
arg3	整数型

DLL命令名	返回值类型	公开	备 注
CertAddCertificateContextToStore	整数型
DLL库文件名:
crypt32.dll
在DLL库中对应命令名:
CertAddCertificateContextToStore
参数名	类 型	传址	数组	备 注
arg1	整数型
arg2	整数型
arg3	整数型
arg4	整数型

DLL命令名	返回值类型	公开	备 注
CertFreeCertificateContext	整数型
DLL库文件名:
crypt32.dll
在DLL库中对应命令名:
CertFreeCertificateContext
参数名	类 型	传址	数组	备 注
arg1	整数型

DLL命令名	返回值类型	公开	备 注
CertCloseStore	整数型
DLL库文件名:
crypt32.dll
在DLL库中对应命令名:
CertCloseStore
参数名	类 型	传址	数组	备 注
arg1	整数型
arg2	整数型

.版本 2<br /> <br /> .DLL命令 CertOpenSystemStoreA, 整数型, "crypt32.dll", "CertOpenSystemStoreA"<br />     .参数 arg1, 整数型<br />     .参数 arg2, 文本型<br /> <br /> .DLL命令 CertOpenSystemStoreW, 整数型, "crypt32.dll", "CertOpenSystemStoreW", , Unicode字符串作为系统存储区名，宽字符模式。<br />     .参数 arg1, 整数型<br />     .参数 arg2, 文本型<br /> <br /> .DLL命令 CertCreateCertificateContext, 整数型, "crypt32.dll", "CertCreateCertificateContext"<br />     .参数 arg1, 整数型<br />     .参数 arg2, 整数型<br />     .参数 arg3, 整数型<br /> <br /> .DLL命令 CertAddCertificateContextToStore, 整数型, "crypt32.dll", "CertAddCertificateContextToStore"<br />     .参数 arg1, 整数型<br />     .参数 arg2, 整数型<br />     .参数 arg3, 整数型<br />     .参数 arg4, 整数型<br /> <br /> .DLL命令 CertFreeCertificateContext, 整数型, "crypt32.dll", "CertFreeCertificateContext"<br />     .参数 arg1, 整数型<br /> <br /> .DLL命令 CertCloseStore, 整数型, "crypt32.dll", "CertCloseStore"<br />     .参数 arg1, 整数型<br />     .参数 arg2, 整数型

代码：

  

子程序名	返回值类型	公开	备 注
安装

变量名	类 型	静态	数组	备 注
pCertContext	整数型
hCertStore	整数型
dwFlags	整数型
证书路径	文本型
证书数据	字节集
Free	整数型
Close	整数型

证书路径 ＝ “G:\360MoveData\Users\Administrator\Desktop\cccc.cer”  ' 替换成你的证书路径
证书数据 ＝ 读入文件 (证书路径)
hCertStore ＝ CertOpenSystemStoreA (0, “ROOT”)
调试输出 (hCertStore)
pCertContext ＝ CertCreateCertificateContext (1, 取变量数据地址 (证书数据), 取字节集长度 (证书数据))
调试输出 (pCertContext)
dwFlags ＝ CertAddCertificateContextToStore (hCertStore, pCertContext, 4, 0)
调试输出 (dwFlags)
如果 (dwFlags ＝ 0)
信息框 (“证书安装失败。”, 0, , )
信息框 (“证书安装成功。”, 0, , )
Free ＝ CertFreeCertificateContext (pCertContext)
Close ＝ CertCloseStore (hCertStore, 0)
调试输出 (Free, Close)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 安装<br /> .局部变量 pCertContext, 整数型<br /> .局部变量 hCertStore, 整数型<br /> .局部变量 dwFlags, 整数型<br /> .局部变量 证书路径, 文本型<br /> .局部变量 证书数据, 字节集<br /> .局部变量 Free, 整数型<br /> .局部变量 Close, 整数型<br /> <br /> 证书路径 ＝ “G:\360MoveData\Users\Administrator\Desktop\cccc.cer”  ' 替换成你的证书路径<br /> 证书数据 ＝ 读入文件 (证书路径)<br /> <br /> hCertStore ＝ CertOpenSystemStoreA (0, “ROOT”)<br /> 调试输出 (hCertStore)<br /> <br /> pCertContext ＝ CertCreateCertificateContext (1, 取变量数据地址 (证书数据), 取字节集长度 (证书数据))<br /> 调试输出 (pCertContext)<br /> <br /> dwFlags ＝ CertAddCertificateContextToStore (hCertStore, pCertContext, 4, 0)<br /> 调试输出 (dwFlags)<br /> <br /> .如果 (dwFlags ＝ 0)<br />     信息框 (“证书安装失败。”, 0, , )<br /> .否则<br />     信息框 (“证书安装成功。”, 0, , )<br />     Free ＝ CertFreeCertificateContext (pCertContext)<br />     Close ＝ CertCloseStore (hCertStore, 0)<br />     调试输出 (Free, Close)

圆圈

借楼问一下，哪种电子证书能过windows自带防火墙，最好是个人版的便宜些，企业也行，但是太贵了
我的软件报毒厉害，绝对无毒无后门，就sqlite信息管理软件

xiaoyu1986

圆圈 发表于 2024-12-26 22:10
借楼问一下，哪种电子证书能过windows自带防火墙，最好是个人版的便宜些，企业也行，但是太贵了
我的软件报 ...

我要是不借，阁下该如何应对？

壮志豪情

不才,刚好昨天找到一个更简洁的证书安装源码

  

子程序名	返回值类型	公开	备 注
安装证书	逻辑型
参数名	类 型	参考	可空	数组	备 注
证书路径	文本型

变量名	类 型	静态	数组	备 注
证书路径	文本型
返回结果	文本型

运行控制台程序 (取特定目录 ( #Windows系统目录 ) ＋ “certutil.exe -addstore Root ” ＋ #引号 ＋ 证书路径 ＋ #引号, 返回结果, , )
返回 (寻找文本 (返回结果, “已经在存储中”, , 假) ≠ -1 或 寻找文本 (返回结果, “添加到存储”, , 假) ≠ -1)

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br /> .子程序 安装证书, 逻辑型, 公开<br /> .参数 证书路径, 文本型<br /> .局部变量 证书路径, 文本型<br /> .局部变量 返回结果, 文本型<br /> <br /> 运行控制台程序 (取特定目录 (#Windows系统目录) ＋ “certutil.exe -addstore Root ” ＋ #引号 ＋ 证书路径 ＋ #引号, 返回结果, , )<br /> 返回 (寻找文本 (返回结果, “已经在存储中”, , 假) ≠ -1 或 寻找文本 (返回结果, “添加到存储”, , 假) ≠ -1)

壮志豪情

壮志豪情 发表于 2024-12-26 22:58
不才,刚好昨天找到一个更简洁的证书安装源码

  

[/quote]
[size=4]多了一个变量,忘删了[/size]
[e=0].版本 2

子程序名	返回值类型	公开	备 注
安装证书	逻辑型
参数名	类 型	参考	可空	数组	备 注
证书路径	文本型

变量名	类 型	静态	数组	备 注
返回结果	文本型

运行控制台程序 (取特定目录 ( #Windows系统目录 ) ＋ “certutil.exe -addstore Root ” ＋ #引号 ＋ 证书路径 ＋ #引号, 返回结果, , )
返回 (寻找文本 (返回结果, “已经在存储中”, , 假) ≠ -1 或 寻找文本 (返回结果, “添加到存储”, , 假) ≠ -1)

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2</blockquote></div><br /> <font size="4">多了一个变量,忘删了</font><br /> [e=0].版本 2<br /> .支持库 shell<br /> <br /> .子程序 安装证书, 逻辑型, 公开<br /> .参数 证书路径, 文本型<br /> .局部变量 返回结果, 文本型<br /> <br /> 运行控制台程序 (取特定目录 (#Windows系统目录) ＋ “certutil.exe -addstore Root ” ＋ #引号 ＋ 证书路径 ＋ #引号, 返回结果, , )<br /> 返回 (寻找文本 (返回结果, “已经在存储中”, , 假) ≠ -1 或 寻找文本 (返回结果, “添加到存储”, , 假) ≠ -1)

pipicool

学习一下

圆圈

xiaoyu1986 发表于 2024-12-26 22:15
我要是不借，阁下该如何应对？

小呀小百百

壮志豪情 发表于 2024-12-26 22:58
不才,刚好昨天找到一个更简洁的证书安装源码

[e=0].版本 2

其实注册表也是安装证书的可以的

wh1234567

学习一下

pshq123

谢谢分享