单文件自行验证自身是否被修改

易语言 2020-03-10 20:36:51

单文件自行验证自身是否被修改

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