文本_加密c 突然返回空

guowei0422 · 发表于 2021-7-31 17:52:48

今天使用了 OPENSSL 里面的对称加密后，发现文本_加密c 这个命令不返回数据了，之前编码好有这个文本_加密c 命令的程序也失效了
有没有遇到这个情况的易友？求解决方法

查过 · 发表于 2021-7-31 18:29:05

小白进来学习下

guowei0422 · 发表于 2021-7-31 18:34:28

调试源码 2个bresult全部返回假

子程序名	返回值类型	公开	备注
文本_加密c	字节集		支持密钥加密，成功返回加密后文本，失败返回空。
参数名	类型	参考	可空	数组	备注
欲加密文本	文本型
密码	文本型				可为空，默认为 “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 ＝假)

返回 ({ })

密码＝选择 (是否为空 (密码), “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, 字节集, 公开, 支持密钥加密，成功返回加密后文本，失败返回空。<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 />
    ' 调试发现这里为假<br />
    .如果真 (bresult ＝ 假)  ' 如果没有默认密钥容器，然后创建一个<br />
        bresult ＝ 1 ＝ CryptAcquireContextA (lHCryptprov, 字符 (0), “Microsoft Base Cryptographic Provider v1.0”, 1, 8)<br />
        ' 这里创建不成功 也为假 返回空字节集<br />
        .如果真 (bresult ＝ 假)<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, {  }))