易程序实现效验自身MD5

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

.程序集 窗口程序集_启动窗口
.程序集变量 MD5, 文本型

.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型

编辑框1.内容 ＝ 接收到的文件路径

.子程序 __启动窗口_创建完毕

拖放对象1.注册拖放控件 (取窗口句柄 ())

.子程序 _按钮1_被单击
.局部变量 字节集, 字节集
.局部变量 文件号, 整数型

.如果真 (文件是否存在 (编辑框1.内容))
    文件号 ＝ 大文件_打开文件 (编辑框1.内容, , , , )
    字节集 ＝ 大文件_读入字节集 (文件号, 大文件_取文件长度 (文件号))
    MD5 ＝ 取数据摘要 (字节集)
    大文件_移到文件尾 (文件号)
    大文件_写出字节集 (文件号, 到字节集 (MD5))
    大文件_关闭文件 (文件号)
    编辑框2.内容 ＝ “MD5：” ＋ MD5
    信息框 (“写出成功”, 0, , )
.如果真结束


.子程序 _按钮2_被单击

置剪辑板文本 (#常量1)
信息框 (“复制成功”, 0, , )

.子程序 文件效验, 逻辑型, , 效验成功返回真，失败返回假，返回假表示改文件必然不是原始文件
.局部变量 局_运行目录, 文本型
.局部变量 局_执行文件名, 文本型
.局部变量 局_字节集, 字节集
.局部变量 局_MD5, 文本型
.局部变量 原始MD5, 文本型

局_运行目录 ＝ 取运行目录 ()
局_执行文件名 ＝ 取执行文件名 ()
局_字节集 ＝ 读入文件 (局_运行目录 ＋ “” ＋ 局_执行文件名)
原始MD5 ＝ 到文本 (取字节集右边 (局_字节集, 32))
局_字节集 ＝ 取字节集左边 (局_字节集, 取字节集长度 (局_字节集) － 32)
局_MD5 ＝ 取数据摘要 (局_字节集)
.如果真 (局_MD5 ＝ 原始MD5)
    返回 (真)
.如果真结束
返回 (假)

@易语言爱好者