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

系统结构:自校验_,加解密_,处理本身,取随机字符,模块_取文件数据摘要,取数据摘要_,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"
    .参数 进程句柄, 整数型