易语言MD5自效验源码

.版本 2
.支持库 dp1
.支持库 spec

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行


返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 莫_自效验MD5, , 公开
.局部变量 局_文件路径, 文本型
.局部变量 局_临时, 字节集
.局部变量 局_MD5, 文本型

局_文件路径 ＝ 取运行目录 () ＋ “” ＋ 取执行文件名 ()
局_临时 ＝ 读入文件 (局_文件路径)
局_MD5 ＝ 到文本 (字节集_取右边 (局_临时, 32))
局_MD5 ＝ 文本_替换 (局_MD5, , , , “+”, “a”, “-”, “b”, “ ”, “c”, “/”, “d”, “?”, “e”)
局_MD5 ＝ 文本_替换 (局_MD5, , , , “&”, “f”, “=”, “1”, “@”, “2”, “$”, “3”, “%”, “4”)
.如果真 (取数据摘要 (取字节集左边 (局_临时, 取字节集长度 (局_临时) － 32)) ≠ 局_MD5)
    结束 ()
.如果真结束


.子程序 莫_自效验MD5_加密, , 公开
.参数 参数_通用对话框, 通用对话框
.局部变量 局_临时, 字节集
.局部变量 局_MD5, 文本型

.如果真 (参数_通用对话框.打开 () ＝ 假)
    返回 ()
.如果真结束
局_临时 ＝ 读入文件 (参数_通用对话框.文件名)
局_MD5 ＝ 取数据摘要 (局_临时)
调试输出 (局_MD5)
局_MD5 ＝ 文本_替换 (局_MD5, , , , “a”, “+”, “b”, “-”, “c”, “ ”, “d”, “/”, “e”, “?”)
局_MD5 ＝ 文本_替换 (局_MD5, , , , “f”, “&”, “1”, “=”, “2”, “@”, “3”, “$”, “4”, “%”)
调试输出 (局_MD5)
写到文件 (“附加好MD5的文件.exe”, 局_临时 ＋ 到字节集 (局_MD5))
信息框 (“OK”, 0, , )