易语言软件验证自身是否被修改

易语言软件验证自身是否被修改

@断翅的三叶草

.版本 2
.支持库 dp1

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 局_Bin, 字节集
.局部变量 局_md5, 文本型
.局部变量 局_md5p, 文本型

局_Bin ＝ 读入文件 (取执行文件名 ())
局_md5 ＝ 取数据摘要 (取字节集左边 (局_Bin, 取字节集长度 (局_Bin) － 32))
局_md5p ＝ 到文本 (取字节集右边 (局_Bin, 32))
.如果真 (局_md5 ≠ 局_md5p)
    信息框 (“文件被非法篡改请重新下载!”, #错误图标, “警告:”, )
.如果真结束
信息框 (“当前文件MD5:” ＋ 局_md5 ＋ #换行符 ＋ “预期文件MD5:” ＋ 局_md5p ＋ #换行符 ＋ “文件真实MD5:” ＋ 取数据摘要 (局_Bin), #信息图标, , )
返回 (0)  ' 可以根据您的需要返回任意数值