易语言调用 CryptProtectData 始终失败，错误码 126，动态调用...

哪一支独秀

各位大神好，我在开发一个 Windows 工具，需要使用 DPAPI 加密一些用户数据。核心是调用 crypt32.dll 中的 CryptProtectData 函数。但无论怎么尝试，在易语言中都无法成功调用，具体情况如下：

---

一、环境说明

• 操作系统：Windows 10 64位
• 易语言版本：5.9
• 已引用精易模块 11.1.5
• 使用 Python 的 win32crypt.CryptProtectData 测试相同参数调用完全正常，说明系统 DPAPI 服务无问题。
  
  

---

二、已尝试的方案及结果方案1：静态声明 DLL 命令[size=12.573px]basic



.DLL命令 CryptProtectData, 逻辑型, "crypt32.dll", "CryptProtectData"    .参数 pDataIn, 整数型, 传址    .参数 szDataDescr, 文本型    .参数 pOptionalEntropy, 整数型, 传址    .参数 pvReserved, 整数型    .参数 pPromptStruct, 整数型    .参数 dwFlags, 整数型    .参数 pDataOut, 整数型, 传址

调用后返回假，GetLastError() 返回 126（ERROR_MOD_NOT_FOUND）。

方案2：将加密封装成独立 .ec 模块

主程序通过引用模块调用，模块内部同样静态声明 DLL，错误码依旧 126。

方案3：动态加载 DLL（LoadLibrary + GetProcAddress + 汇编传参）

使用 LoadLibraryA("crypt32.dll") 成功获取模块句柄，GetProcAddress 成功获取函数地址，但通过汇编 call 调用时，程序直接闪退（调试模式下崩溃，编译后同样崩溃）。

方案4：尝试使用精易模块的 CryptBin 命令

我的精易模块版本（11.1.5）中未找到该命令。

方案5：将输出结构体 DATA_BLOB 的 cbData 和 pbData 初始化为 0

错误依旧 126。

---

三、核心代码片段

数据类型定义：

[size=12.573px]basic



.数据类型 DATA_BLOB    .成员 cbData, 整数型    .成员 pbData, 整数型

调用代码（简化版）：

[size=12.573px]basic



.子程序 DPAPI_加密, 字节集.参数 待加密数据, 字节集.参数 描述文本, 文本型.参数 附加熵, 字节集.局部变量 stIn, DATA_BLOB.局部变量 stEntropy, DATA_BLOB.局部变量 stOut, DATA_BLOB.局部变量 成功, 逻辑型stIn.cbData ＝ 取字节集长度 (待加密数据)stIn.pbData ＝ 取变量数据地址 (待加密数据)stEntropy.cbData ＝ 取字节集长度 (附加熵)stEntropy.pbData ＝ 取变量数据地址 (附加熵)stOut.cbData ＝ 0stOut.pbData ＝ 0成功 ＝ CryptProtectData (取变量地址 (stIn), 描述文本, 取变量地址 (stEntropy), 0, 0, 1, 取变量地址 (stOut)).如果真 (成功 ＝ 假)    调试输出 (GetLastError())  ' 输出 126    返回 ({ }).如果真结束' 读取结果并释放...

动态调用汇编部分（闪退）：

[size=12.573px]basic



置入代码 ({ 86, 87, 139, 125, 12, 139, 77, 16, 139, 85, 20, 139, 93, 24, 139, 109, 28, 139, 101, 32, 139, 117, 36, 255, 85, 8, 95, 94, 201, 194, 28, 0 })

---

四、求助问题

• 错误码 126 在易语言中的根本原因是什么？ Python 能正常调用，说明 DLL 存在且路径正确，为何易语言总是报找不到模块？
• 动态调用时程序闪退的可能原因？ 是堆栈不平衡还是参数传递方式有误？求一份稳定可用的动态调用 DPAPI 的易语言源码。
• 是否有其他纯易语言方案可以实现 DPAPI 加密？（例如利用精易模块的其他隐藏命令，或者使用 COM 对象）
  
  

---

五、备注

• 我坚持使用纯易语言方案，不希望依赖外部脚本。
• 如果有成功调用过 CryptProtectData 的大神，希望能指点迷津，感激不尽！
  
  

qq793359277

你帖子格式全乱, 看的头大,  测试代码还自己手动一个个修复  直接发源码不行吗?
2.e (4.19 KB, 下载次数: 9)

2026-4-17 07:01 上传

点击文件名下载附件

哪一支独秀

qq793359277 发表于 2026-4-17 07:02
你帖子格式全乱, 看的头大,  测试代码还自己手动一个个修复  直接发源码不行吗?

...

易语言调用 crypt32.dll 的 CryptProtectData，静态声明和动态加载都试了，始终返回错误码 126。Python 调用正常，说明系统环境没问题。

求一份易语言可用的 DPAPI 加密源码，能直接跑通就行，多谢！

附上我当前的测试代码：.版本 2

.数据类型 DATA_BLOB
    .成员 cbData, 整数型
    .成员 pbData, 整数型

.DLL命令 CryptProtectData, 逻辑型, "crypt32.dll", "CryptProtectData"
    .参数 pDataIn, 整数型, 传址
    .参数 szDataDescr, 文本型
    .参数 pOptionalEntropy, 整数型, 传址
    .参数 pvReserved, 整数型
    .参数 pPromptStruct, 整数型
    .参数 dwFlags, 整数型
    .参数 pDataOut, 整数型, 传址

.DLL命令 LocalFree, 整数型, "kernel32.dll", "LocalFree"
    .参数 hMem, 整数型

.子程序 DPAPI_加密, 字节集
.参数 数据, 字节集
.参数 描述, 文本型
.参数 熵, 字节集
.局部变量 stIn, DATA_BLOB
.局部变量 stEntropy, DATA_BLOB
.局部变量 stOut, DATA_BLOB

stIn.cbData ＝ 取字节集长度 (数据)
stIn.pbData ＝ 取变量数据地址 (数据)

.如果真 (取字节集长度 (熵) ＞ 0)
    stEntropy.cbData ＝ 取字节集长度 (熵)
    stEntropy.pbData ＝ 取变量数据地址 (熵)
.如果真结束

stOut.cbData ＝ 0
stOut.pbData ＝ 0

.如果 (CryptProtectData (取变量地址 (stIn), 描述, 取变量地址 (stEntropy), 0, 0, 1, 取变量地址 (stOut)) ＝ 假)
    输出调试文本 (“加密失败，错误码：” ＋ 到文本 (GetLastError()))
    返回 ({ })
.否则
    返回 (指针到字节集 (stOut.pbData, stOut.cbData))
    LocalFree (stOut.pbData)
.如果结束

哪一支独秀

qq793359277 发表于 2026-4-17 07:02
你帖子格式全乱, 看的头大,  测试代码还自己手动一个个修复  直接发源码不行吗?

...

大佬好，我在易语言中调用 crypt32.dll 的 CryptProtectData 函数，单独新建工程测试成功，但整合到主程序后编译报错：

text
错误(10003): 指定Dll命令名称“CryptProtectData”未找到。
主程序引用了精易模块。DLL 声明如下：

basic
.数据类型 DATA_BLOB
    .成员 cbData, 整数型
    .成员 pbData, 整数型

.DLL命令 CryptProtectData, 逻辑型, "crypt32.dll", "CryptProtectData"
    .参数 pDataIn, DATA_BLOB
    .参数 szDataDescr, 整数型
    .参数 pOptionalEntropy, DATA_BLOB
    .参数 pvReserved, 整数型
    .参数 pPromptStruct, 整数型
    .参数 dwFlags, 整数型
    .参数 pDataOut, DATA_BLOB
调用方式（描述文本已转 UTF-16 宽字节）：

basic
.如果 (CryptProtectData (stIn, 取变量数据地址 (宽描述), stEntropy, 0, 0, 1, stOut) ＝ 假)
尝试过的方法：

将 DLL 命令改名并加别名 → 依旧 10003。

在 DLL 命令表首位添加占位空命令 → 依旧 10003。

请问这是精易模块内部冲突导致的吗？除了动态调用（LoadLibrary + GetProcAddress）外，是否有更简洁的解决办法？如果只能动态调用，能否提供一份稳定可用的汇编传参代码？

多谢！

哪一支独秀

qq793359277 发表于 2026-4-17 07:02
你帖子格式全乱, 看的头大,  测试代码还自己手动一个个修复  直接发源码不行吗?

...

大佬好，我在易语言中调用 crypt32.dll 的 CryptProtectData 函数，单独新建工程测试成功，但整合到主程序后编译报错：

text
错误(10003): 指定Dll命令名称“CryptProtectData”未找到。
主程序引用了精易模块。DLL 声明如下：

basic
.数据类型 DATA_BLOB
    .成员 cbData, 整数型
    .成员 pbData, 整数型

.DLL命令 CryptProtectData, 逻辑型, "crypt32.dll", "CryptProtectData"
    .参数 pDataIn, DATA_BLOB
    .参数 szDataDescr, 整数型
    .参数 pOptionalEntropy, DATA_BLOB
    .参数 pvReserved, 整数型
    .参数 pPromptStruct, 整数型
    .参数 dwFlags, 整数型
    .参数 pDataOut, DATA_BLOB
调用方式（描述文本已转 UTF-16 宽字节）：

basic
.如果 (CryptProtectData (stIn, 取变量数据地址 (宽描述), stEntropy, 0, 0, 1, stOut) ＝ 假)
尝试过的方法：

将 DLL 命令改名并加别名 → 依旧 10003。

在 DLL 命令表首位添加占位空命令 → 依旧 10003。

请问这是精易模块内部冲突导致的吗？除了动态调用（LoadLibrary + GetProcAddress）外，是否有更简洁的解决办法？如果只能动态调用，能否提供一份稳定可用的汇编传参代码？

多谢！

帅气与大侠

易语言API调用返回126错误，因为易语言首次调用API时，它要加载这个API的DLL，最后错误码就是在加载DLL时遗留的，API调用成功时通常是不会设置最后错误码的，所以当前线程的错误码还是126。调试的时候会有这个问题的，编译出来后最后错误码就正常了。
你直接看返回值就可以了，返回真就是成功了

  

字节集 ＝ 加密字节集 (到字节集 (“123”), 到字节集 (“321”))
字节集 ＝ 解密字节集 (字节集, 到字节集 (“321”))
调试输出 (字节集)

子程序名	返回值类型	公开	备 注
加密字节集	字节集		使用CryptProtectData函数加密一段数据，成功返回加密后的数据，失败返回空字节集。
参数名	类 型	参考	可空	数组	备 注
数据	字节集
密码	字节集				空字节集无密码
选项	整数型				0=与当前用户绑定；4=与当前计算机绑定。

变量名	类 型	静态	数组	备 注
数据地址	整数型
数据长度	整数型
数据结构	整数型
密码地址	整数型
密码长度	整数型
密码结构	整数型
字节集	字节集

数据地址 ＝ 取变量数据地址 (数据)
如果真 (数据地址 ≠ 0)
数据长度 ＝ 取字节集长度 (数据)
数据结构 ＝ 取变量地址 (数据长度)
密码地址 ＝ 取变量数据地址 (密码)
密码长度 ＝ 取字节集长度 (密码)
如果真 (密码长度 ≠ 0)
密码结构 ＝ 取变量地址 (密码长度)

如果真 (CryptProtectData (数据结构, 0, 密码结构, 0, 0, 选项, 取变量地址 (密码长度)))
字节集 ＝ 指针到字节集 (密码地址, 密码长度)
LocalFree (密码地址)

返回 (字节集)

子程序名	返回值类型	公开	备 注
解密字节集	字节集		成功返回解密后的字节集，失败返回空字节集。
参数名	类 型	参考	可空	数组	备 注
数据	字节集
密码	字节集				空字节集无密码
选项	整数型				与加密字节集时填写的一致

变量名	类 型	静态	数组	备 注
数据地址	整数型
数据长度	整数型
数据结构	整数型
密码地址	整数型
密码长度	整数型
密码结构	整数型
字节集	字节集

数据地址 ＝ 取变量数据地址 (数据)
如果真 (数据地址 ≠ 0)
数据长度 ＝ 取字节集长度 (数据)
数据结构 ＝ 取变量地址 (数据长度)
密码地址 ＝ 取变量数据地址 (密码)
密码长度 ＝ 取字节集长度 (密码)
如果真 (密码长度 ≠ 0)
密码结构 ＝ 取变量地址 (密码长度)
如果真 (CryptUnprotectData (数据结构, 0, 密码结构, 0, 0, 选项, 取变量地址 (密码长度)))
字节集 ＝ 指针到字节集 (密码地址, 密码长度)
LocalFree (密码地址)

返回 (字节集)

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

.版本 2<br /> .支持库 spec<br /> <br /> 字节集 ＝ 加密字节集 (到字节集 (“123”), 到字节集 (“321”))<br /> 字节集 ＝ 解密字节集 (字节集, 到字节集 (“321”))<br /> 调试输出 (字节集)<br /> <br /> .子程序 加密字节集, 字节集, , 使用CryptProtectData函数加密一段数据，成功返回加密后的数据，失败返回空字节集。<br /> .参数 数据, 字节集<br /> .参数 密码, 字节集, 可空, 空字节集无密码<br /> .参数 选项, 整数型, 可空, 0=与当前用户绑定；4=与当前计算机绑定。<br /> .局部变量 数据地址, 整数型<br /> .局部变量 数据长度, 整数型<br /> .局部变量 数据结构, 整数型<br /> .局部变量 密码地址, 整数型<br /> .局部变量 密码长度, 整数型<br /> .局部变量 密码结构, 整数型<br /> .局部变量 字节集, 字节集<br /> <br /> 数据地址 ＝ 取变量数据地址 (数据)<br /> .如果真 (数据地址 ≠ 0)<br />     数据长度 ＝ 取字节集长度 (数据)<br />     数据结构 ＝ 取变量地址 (数据长度)<br /> <br />     密码地址 ＝ 取变量数据地址 (密码)<br />     密码长度 ＝ 取字节集长度 (密码)<br />     .如果真 (密码长度 ≠ 0)<br />         密码结构 ＝ 取变量地址 (密码长度)<br />     .如果真结束<br /> <br />     .如果真 (CryptProtectData (数据结构, 0, 密码结构, 0, 0, 选项, 取变量地址 (密码长度)))<br />         字节集 ＝ 指针到字节集 (密码地址, 密码长度)<br />         LocalFree (密码地址)<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (字节集)<br /> <br /> .子程序 解密字节集, 字节集, , 成功返回解密后的字节集，失败返回空字节集。<br /> .参数 数据, 字节集<br /> .参数 密码, 字节集, 可空, 空字节集无密码<br /> .参数 选项, 整数型, 可空, 与加密字节集时填写的一致<br /> .局部变量 数据地址, 整数型<br /> .局部变量 数据长度, 整数型<br /> .局部变量 数据结构, 整数型<br /> .局部变量 密码地址, 整数型<br /> .局部变量 密码长度, 整数型<br /> .局部变量 密码结构, 整数型<br /> .局部变量 字节集, 字节集<br /> <br /> 数据地址 ＝ 取变量数据地址 (数据)<br /> .如果真 (数据地址 ≠ 0)<br />     数据长度 ＝ 取字节集长度 (数据)<br />     数据结构 ＝ 取变量地址 (数据长度)<br /> <br />     密码地址 ＝ 取变量数据地址 (密码)<br />     密码长度 ＝ 取字节集长度 (密码)<br />     .如果真 (密码长度 ≠ 0)<br />         密码结构 ＝ 取变量地址 (密码长度)<br />     .如果真结束<br />     .如果真 (CryptUnprotectData (数据结构, 0, 密码结构, 0, 0, 选项, 取变量地址 (密码长度)))<br />         字节集 ＝ 指针到字节集 (密码地址, 密码长度)<br />         LocalFree (密码地址)<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (字节集)

  

DLL命令名	返回值类型	公开	备 注
CryptProtectData	逻辑型
DLL库文件名:
Crypt32
在DLL库中对应命令名:
CryptProtectData
参数名	类 型	传址	数组	备 注
加密文本	整数型			指向要加密的纯文本的DATA_BLOB结构
说明文本	整数型			可以为NULL
附加信息	整数型			指向加密文本的密码或其它附加信息，如果加密截断提供解密阶段也必须提供。可以为NULL。DATA_BLOB结构
保留	整数型			保留参数，必须为NULL
提示结构	整数型			通常为null。_CRYPTPROTECT_PROMPTSTRUCT 结构
选项	整数型			0=绑定当前用户；4=绑定计算机；其他值百du；
返回数据	整数型			返回的是DATA_BLOB结构，数据长度、数据地址。用完需要释放数据地址

DLL命令名	返回值类型	公开	备 注
CryptUnprotectData	逻辑型
DLL库文件名:
Crypt32
在DLL库中对应命令名:
CryptUnprotectData
参数名	类 型	传址	数组	备 注
解密文本	整数型			指向解密的DATA_BLOB结构
说明文本	整数型			可以为NULL
附加信息	整数型			指向加密文本的密码或其它附加信息，如果加密截断提供解密阶段也必须提供。可以为NULL。DATA_BLOB结构
保留	整数型
提示结构	整数型
选项	整数型
返回数据	整数型			返回的是DATA_BLOB结构，数据长度、数据地址。用完需要释放数据地址

DLL命令名	返回值类型	公开	备 注
LocalFree	整数型
DLL库文件名:
kernel32
在DLL库中对应命令名:
LocalFree
参数名	类 型	传址	数组	备 注
hMem	整数型

.版本 2<br /> <br /> .DLL命令 CryptProtectData, 逻辑型, "Crypt32", "CryptProtectData"<br />     .参数 加密文本, 整数型, , 指向要加密的纯文本的DATA_BLOB结构<br />     .参数 说明文本, 整数型, , 可以为NULL<br />     .参数 附加信息, 整数型, , 指向加密文本的密码或其它附加信息，如果加密截断提供解密阶段也必须提供。可以为NULL。DATA_BLOB结构<br />     .参数 保留, 整数型, , 保留参数，必须为NULL<br />     .参数 提示结构, 整数型, , 通常为null。_CRYPTPROTECT_PROMPTSTRUCT 结构<br />     .参数 选项, 整数型, , 0=绑定当前用户；4=绑定计算机；其他值百du；<br />     .参数 返回数据, 整数型, , 返回的是DATA_BLOB结构，数据长度、数据地址。用完需要释放数据地址<br /> <br /> .DLL命令 CryptUnprotectData, 逻辑型, "Crypt32", "CryptUnprotectData"<br />     .参数 解密文本, 整数型, , 指向解密的DATA_BLOB结构<br />     .参数 说明文本, 整数型, , 可以为NULL<br />     .参数 附加信息, 整数型, , 指向加密文本的密码或其它附加信息，如果加密截断提供解密阶段也必须提供。可以为NULL。DATA_BLOB结构<br />     .参数 保留, 整数型<br />     .参数 提示结构, 整数型<br />     .参数 选项, 整数型<br />     .参数 返回数据, 整数型, , 返回的是DATA_BLOB结构，数据长度、数据地址。用完需要释放数据地址<br /> <br /> .DLL命令 LocalFree, 整数型, "kernel32", "LocalFree"<br />     .参数 hMem, 整数型