文本_加密c 精益模块的命令返回空

2442295093

文本_加密c，有的电脑加密返回空，

但是我把代码里面的
bresult ＝ 1 ＝ CryptAcquireContextA (lHCryptprov, 字符 (0), “Microsoft Base Cryptographic Provider v1.0”, 1, 0)

里面的 字符 (0)，改成 字符 (1)，就能正常加解密，

请问下这个，字符0 这个地方的参数是代表什么意思啊？

我有点怕改啊，怕改坏了

547453134

我也遇到了你请问是怎么解决的？

wcftt58

我这里也有相同的问题 文本_解密c 这个命令 有的电脑解密出来是空的

2442295093

jr21066 发表于 2018-10-14 00:11
好象0是哈希计算和对称加密
就是不需要生成私钥时.

我也搜了那个文章，无奈我没文化，看不懂

jr21066

好象0是哈希计算和对称加密
就是不需要生成私钥时.

参见: https://blog.csdn.net/dlfer11/article/details/50345103

2442295093

参照那个帖子的代码改的，

  

子程序名	返回值类型	公开	备 注
文本_加密c	字节集		支持密钥加密，成功返回加密后文本，失败返回空。|2018-10-13修改
参数名	类 型	参考	可空	数组	备 注
欲加密文本	文本型
密码	文本型				可为空，默认为 “bbs.125.la”

变量名	类 型	静态	数组	备 注
lHHash
lHkey
lHCryptprov
lCryptLength
lCryptBufLen
sCryptBuffer	字节集
bresult	逻辑型

如果真 (取文本长度 (欲加密文本) ≠ 0)
bresult ＝ 1 ＝ CryptAcquireContextA (lHCryptprov, 字符 (0), “Microsoft Base Cryptographic Provider v1.0”, 1, 0)
如果真 (bresult ＝ 假)  ' 如果没有默认密钥容器，然后创建一个
bresult ＝ 1 ＝ CryptAcquireContextA (lHCryptprov, 字符 (0), “Microsoft Base Cryptographic Provider v1.0”, 1, 8)
如果真 (bresult ＝ 假)  ' 如果创建失败，继续创建
bresult ＝ 1 ＝ CryptAcquireContextA (lHCryptprov, 字符 (0), “Microsoft Base Cryptographic Provider v1.0”, 1, 4026531840)
如果真 (bresult ＝ 假)  ' 如果创建失败，继续创建
bresult ＝ 1 ＝ CryptAcquireContextA (lHCryptprov, 字符 (0), “Microsoft Base Cryptographic Provider v1.0”, 1, 32)
如果真 (bresult ＝ 假)
返回 ({  })



密码 ＝ 选择 (是否为空 (密码), “bbs.125.la”, 密码)
CryptCreateHash (lHCryptprov, 32771, 0, 0, lHHash)
CryptHashData (lHHash, 到字节集 (密码), 取文本长度 (密码), 0)
CryptDeriveKey (lHCryptprov, 26625, lHHash, 0, lHkey)
CryptDestroyHash (lHHash)
lCryptLength ＝ 取文本长度 (欲加密文本)
lCryptBufLen ＝ lCryptLength
sCryptBuffer ＝ 取空白字节集 (lCryptLength)
sCryptBuffer ＝ 到字节集 (欲加密文本)
bresult ＝ CryptEncrypt (lHkey, 0, 1, 0, sCryptBuffer, lCryptLength, lCryptBufLen)
CryptDestroyKey (lHkey)
CryptDestroyHash (lHHash)
CryptReleaseContext (lHCryptprov, 0)
返回 (选择 (bresult, sCryptBuffer, {  }))

.版本 2<br /> <br /> .子程序 文本_加密c, 字节集, 公开, 支持密钥加密，成功返回加密后文本，失败返回空。|2018-10-13修改<br /> .参数 欲加密文本, 文本型<br /> .参数 密码, 文本型, 可空, 可为空，默认为 “bbs.125.la”<br /> .局部变量 lHHash<br /> .局部变量 lHkey<br /> .局部变量 lHCryptprov<br /> .局部变量 lCryptLength<br /> .局部变量 lCryptBufLen<br /> .局部变量 sCryptBuffer, 字节集<br /> .局部变量 bresult, 逻辑型<br /> <br /> .如果真 (取文本长度 (欲加密文本) ≠ 0)<br />     bresult ＝ 1 ＝ CryptAcquireContextA (lHCryptprov, 字符 (0), “Microsoft Base Cryptographic Provider v1.0”, 1, 0)<br />     .如果真 (bresult ＝ 假)  ' 如果没有默认密钥容器，然后创建一个<br />         bresult ＝ 1 ＝ CryptAcquireContextA (lHCryptprov, 字符 (0), “Microsoft Base Cryptographic Provider v1.0”, 1, 8)<br />         .如果真 (bresult ＝ 假)  ' 如果创建失败，继续创建<br />             bresult ＝ 1 ＝ CryptAcquireContextA (lHCryptprov, 字符 (0), “Microsoft Base Cryptographic Provider v1.0”, 1, 4026531840)<br />             .如果真 (bresult ＝ 假)  ' 如果创建失败，继续创建<br />                 bresult ＝ 1 ＝ CryptAcquireContextA (lHCryptprov, 字符 (0), “Microsoft Base Cryptographic Provider v1.0”, 1, 32)<br />                 .如果真 (bresult ＝ 假)<br />                     返回 ({  })<br />                 .如果真结束<br /> <br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .如果真结束<br />     密码 ＝ 选择 (是否为空 (密码), “bbs.125.la”, 密码)<br />     CryptCreateHash (lHCryptprov, 32771, 0, 0, lHHash)<br />     CryptHashData (lHHash, 到字节集 (密码), 取文本长度 (密码), 0)<br />     CryptDeriveKey (lHCryptprov, 26625, lHHash, 0, lHkey)<br />     CryptDestroyHash (lHHash)<br /> <br />     lCryptLength ＝ 取文本长度 (欲加密文本)<br />     lCryptBufLen ＝ lCryptLength<br />     sCryptBuffer ＝ 取空白字节集 (lCryptLength)<br />     sCryptBuffer ＝ 到字节集 (欲加密文本)<br /> <br />     bresult ＝ CryptEncrypt (lHkey, 0, 1, 0, sCryptBuffer, lCryptLength, lCryptBufLen)<br />     CryptDestroyKey (lHkey)<br />     CryptDestroyHash (lHHash)<br />     CryptReleaseContext (lHCryptprov, 0)<br /> .如果真结束<br /> 返回 (选择 (bresult, sCryptBuffer, {  }))

2442295093

运行了此帖子的代码https://bbs.125.la/forum.php?mod=viewthread&tid=14101524
好像就开始 电脑调用 文本_加密c 就返回空了，之前正常

2442295093

模块版本：6.1，6.8 都测试了
所用系统：win 10 64位
命令名称：文本_加密c，文本_解密c
BUG描述：返回空，经调试CryptAcquireContextA  这里返回假

2442295093

模块版本：6.1，6.8 都测试了
所用系统：win 10 64位
命令名称：文本_加密c，文本_解密c
BUG描述：返回空，经调试CryptAcquireContextA  这里返回假

2442295093

@果子 @冰点 大神