窗口程序集名 | 保 留 | 保 留 | 备 注 |
窗口程序集_启动窗口 | | | |
变量名 | 类 型 | 数组 | 备 注 |
MD5 | 文本型 | |
编辑框1.内容 = 接收到的文件路径
拖放对象1.
注册拖放控件 (取窗口句柄 ())
变量名 | 类 型 | 静态 | 数组 | 备 注 |
字节集 | 字节集 | | |
文件号 | 整数型 | | |
如果真 (文件是否存在 (编辑框1.内容
))

文件号 =
打开文件 (编辑框1.内容, , , ,
)
字节集 =
读入字节集 (文件号,
取文件长度 (文件号
))

MD5 =
取数据摘要 (字节集
)
移到文件尾 (文件号
)
写出字节集 (文件号,
到字节集 (MD5
))
关闭文件 (文件号
)
编辑框2.内容 =
“MD5:” + MD5
信息框 (“写出成功”, 0, ,
)
置剪辑板文本 ( #常量1 )信息框 (“复制成功”, 0, ,
)变量名 | 类 型 | 静态 | 数组 | 备 注 |
局_运行目录 | 文本型 | | |
局_执行文件名 | 文本型 | | |
局_字节集 | 字节集 | | |
局_MD5 | 文本型 | | |
原始MD5 | 文本型 | | |
局_运行目录 =
取运行目录 ()局_执行文件名 =
取执行文件名 ()局_字节集 =
读入文件 (局_运行目录 +
“\” + 局_执行文件名
)原始MD5 =
到文本 (取字节集右边 (局_字节集, 32
))
局_字节集 =
取字节集左边 (局_字节集,
取字节集长度 (局_字节集
) - 32
)局_MD5 =
取数据摘要 (局_字节集
)
如果真 (局_MD5 = 原始MD5
)
返回 (真)返回 (假)