检测保护文件是否被修改，保证数据完整和不可更改

复制数组 (所选择文件, 分割文本 (文件框1.被选择文件, “;”, ))
.如果真 (取数组成员数 (所选择文件) ＝ 0)
信息框 (“您未选择待检查的文件!”, #确认钮 ＋ #错误图标, “错误”)
返回 ()
.如果真结束
数据摘要文件存放目录 ＝ 目录框1.目录 ＋ “\id\”
所选择文件数目 ＝ 取数组成员数 (所选择文件)
.计次循环首 (所选择文件数目, 容器1)
数据摘要信息 ＝ 取字节集数据 (读入文件 (数据摘要文件存放目录 ＋ 所选择文件 [容器1] ＋ “.id”), #文本型)
.如果 (取文本长度 (数据摘要信息) ≠ 32)
信息 ＝ 信息 ＋ “** 文件 ” ＋ 所选择文件 [容器1] ＋ “ 的数据摘要文件无效!” ＋ #换行符
.否则
.如果 (数据摘要信息 ≠ 取数据摘要 (读入文件 (目录框1.目录 ＋ “\” ＋ 所选择文件 [容器1])))
信息 ＝ 信息 ＋ “** 文件 ” ＋ 所选择文件 [容器1] ＋ “ 已经被改动!” ＋ #换行符
.否则
信息 ＝ 信息 ＋ “文件 ” ＋ 所选择文件 [容器1] ＋ “ 校验通过.” ＋ #换行符
.如果结束

.如果结束

.计次循环尾 ()
信息框 (信息, #确认钮 ＋ #信息图标, “检查结果”)