更新文件配置工具易语言源码

系统结构:MD5,取十六进制,路径取文件名,CryptAcquireContext,CryptCreateHash,CryptReleaseContext,CryptHashData,CryptDestroyHash,CryptGetHashParam,wvsprintf,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _透明标签1_鼠标左键被按下
           |  |
           |  |------ _超级列表框1_右键单击表项
           |  |
           |  |------ _修改_被选择
           |  |
           |  |------ _删除_被选择
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _单选框1_被单击
           |  |
           |  |------ _单选框2_被单击
           |  |
           |  |------ _标签8_鼠标左键被放开
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _超级列表框2_右键单击表项
           |  |
           |  |------ _删除此项_被选择
           |  |
           |  |
======综合功能
           |  |
           |  |------ MD5
           |  |
           |  |------ 取十六进制
           |  |
           |  |------ 路径取文件名
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CryptAcquireContext
           |  |
           |  |---[dll]------   CryptCreateHash
           |  |
           |  |---[dll]------   CryptReleaseContext
           |  |
           |  |---[dll]------   CryptHashData
           |  |
           |  |---[dll]------   CryptDestroyHash
           |  |
           |  |---[dll]------   CryptGetHashParam
           |  |
           |  |---[dll]------   wvsprintf

调用的DLL命令:

.DLL命令 CryptAcquireContext, 整数型, "advapi32.dll", "CryptAcquireContextA", , GetLastError取得失败信息  非零表示成功，零表示失败。
    .参数 phProv, 整数型, 传址, csp句柄,用CryptReleaseContext释放
    .参数 pszContainer, 文本型, , 密钥名
    .参数 pszProvider, 文本型, , 加密服务名null
    .参数 dwProvType, 整数型, , 加密类型PROV_RSA_FULL
    .参数 dwFlags, 整数型, , CRYPT_VERIFYCONTEXT

.DLL命令 CryptCreateHash, 整数型, "advapi32.dll", "CryptCreateHash"
    .参数 hProv, 整数型, , csp句柄
    .参数 Algid, 整数型, , 算法CALG_
    .参数 hKey, 整数型, , 如果算法是一个密钥哈希，则为密钥句柄
    .参数 dwFlags, 整数型, , 0
    .参数 phHash, 整数型, 传址, 哈希句柄

.DLL命令 CryptReleaseContext, 整数型, "advapi32.dll", "CryptReleaseContext"
    .参数 hProv, 整数型, , csp句柄
    .参数 dwFlags, 整数型, , 0

.DLL命令 CryptHashData, 整数型, "advapi32.dll", "CryptHashData", , 非零表示成功。
    .参数 hHash, 整数型, , 哈希句柄
    .参数 pbData, 字节集, , 数据
    .参数 dwDataLen, 整数型, , 数据长度
    .参数 dwFlags, 整数型, , 0

.DLL命令 CryptDestroyHash, 整数型, "advapi32.dll", "CryptDestroyHash"
    .参数 hHash, 整数型

.DLL命令 CryptGetHashParam, 整数型, "advapi32.dll", "CryptGetHashParam", , 非零表示成功。
    .参数 hHash, 整数型, , 哈希句柄
    .参数 dwParam, 整数型, , HP_
    .参数 pByte, 字节集, , 缓冲区
    .参数 pdwDataLen, 整数型, 传址, 缓冲区长度
    .参数 dwFlags, 整数型, , 0

.DLL命令 wvsprintf, 整数型, "user32.dll", "wvsprintfA", 公开, 十进制转十六进制　
    .参数 lpstr, 文本型, , 取空白文本
    .参数 lpcstr, 文本型, , “%X”
    .参数 OptionalArguments, 整数型, 传址, 欲取的数据