易语言例程源码,易语言异编自校验模块源码

易语言异编自校验模块源码

系统结构:自校验_,加解密_,处理本身,取随机字符,模块_取文件数据摘要,取数据摘要_,CryptAcquireContext,CryptCreateHash,CryptHashData,CryptGetHashSize,CryptGetHashParam,CryptDestroyHash,CryptReleaseContext,PostMessage,SendMessage,取自进程ID_,信息框_,退出进程_,

======程序集1
| |
| |------ _启动子程序
======校验集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |------ 自校验_
| |
| |------ 加解密_
| |
| |------ 处理本身
| |
| |------ 取随机字符
| |
| |
======MD5集2
| |
| |------ 模块_取文件数据摘要
| |
| |------ 取数据摘要_
| |
| |
======调用的Dll
| |
| |---[dll]------ CryptAcquireContext
| |
| |---[dll]------ CryptCreateHash
| |
| |---[dll]------ CryptHashData
| |
| |---[dll]------ CryptGetHashSize
| |
| |---[dll]------ CryptGetHashParam
| |
| |---[dll]------ CryptDestroyHash
| |
| |---[dll]------ CryptReleaseContext
| |
| |---[dll]------ PostMessage
| |
| |---[dll]------ SendMessage
| |
| |---[dll]------ 取自进程ID_
| |
| |---[dll]------ 信息框_
| |
| |---[dll]------ 退出进程_

调用的DLL命令:

.DLL命令 CryptAcquireContext, 逻辑型, "advapi32.dll", "CryptAcquireContextA", , 获取一个CSP(加密服务提供者)句柄，要进行加密解密操作的话，必须调用该函数。最后还要使用CryptReleaseContext 函数来释放CSP句柄。若成功，返回TRUE,否则返回FALSE,可调用GetLastError（）来获取错误代码
.参数 PhProv, 整数型, 传址, 返回CSP句柄
.参数 PszContainer, 整数型, , 关键字容器的名字。当 dwFlags 被设为 CRYPT_VERIFYCONTEXT 时， pszContainer 必须被设为 0。一般 pszContainer 为NULL时，一个缺省钥匙容器名字被使用
.参数 pszProvider, 文本型, , 指定的CSP提供者的名字，是以0结尾的字符串，若为NULL，则使用缺省CSP
.参数 dwProvType, 整数型, , 指定CSP提供者的类型,MD5取PROV_RSA_FULL
.参数 dwFlags, 整数型, , 标志,多设置为0,CRYPT_VERIFYCONTEXT or CRYPT_MACHINE_KEYSET

.DLL命令 CryptCreateHash, 逻辑型, "advapi32.dll", , , 创建哈希(加密)句柄
.参数 hProv, 整数型, , CSP句柄,可以由函数CryptAcquireContext获取
.参数 Algid, 整数型, , 选择hash算法，比如CALG_MD5等
.参数 hKey, 整数型, , HMAC 和MAC算法时有用
.参数 dwFlags, 整数型, , 保留，传入0即可
.参数 phHash, 整数型, 传址, 返回哈希句柄

.DLL命令 CryptHashData, 逻辑型, "advapi32.dll", , , 载入哈希数据
.参数 hHash, 整数型, , 哈希句柄
.参数 pbData, 字节集, 传址, 数据地址
.参数 dwDataLen, 整数型, , 数据长度
.参数 dwFlags, 整数型, , 标志，设为0

.DLL命令 CryptGetHashSize, 逻辑型, "advapi32.dll", "CryptGetHashParam", , 获得哈希值(二进制)
.参数 hHash, 整数型, , 哈希句柄
.参数 dwType, 整数型, , 获取类型
.参数 pbBuff, 整数型, 传址, 缓存地址
.参数 dwBuffLen, 整数型, 传址, 缓存长度
.参数 dwFlags, 整数型, , 标志，设为0

.DLL命令 CryptGetHashParam, 逻辑型, "advapi32.dll", , , 获得哈希值(二进制)
.参数 hHash, 整数型, , 哈希句柄
.参数 dwType, 整数型, , 获取类型
.参数 pbBuff, 字节集, 传址, 缓存地址
.参数 dwBuffLen, 整数型, 传址, 缓存长度
.参数 dwFlags, 整数型, , 标志，设为0

.DLL命令 CryptDestroyHash, 逻辑型, "advapi32.dll", , , 释放哈希句柄
.参数 hHash, 整数型, , 哈希句柄

.DLL命令 CryptReleaseContext, 逻辑型, "advapi32.dll", , , 释放CSP
.参数 hProv, 整数型, , CSP句柄
.参数 dwFlags, 整数型, , 标志，设为0

.DLL命令 PostMessage, , , "PostMessageA"
.参数 窗口句柄
.参数 信息值
.参数 参数1
.参数 参数2

.DLL命令 SendMessage, , , "SendMessageA"
.参数 窗口句柄
.参数 信息值
.参数 参数1
.参数 参数2

.DLL命令 取自进程ID_, 整数型, "kernel32.dll", "GetCurrentProcessId", , 公开

.DLL命令 信息框_, 整数型, , "MessageBoxA", 公开, ‘返回用户点击了第几个按钮，从1开始
.参数 父窗口, 整数型
.参数 信息, 文本型
.参数 标题, 文本型
.参数 按钮, 整数型, , 参照核心库编辑框命令

.DLL命令 退出进程_, 整数型, "kernel32", "ExitProcess"
.参数 进程句柄, 整数型