.版本 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, , )