.版本 2
.支持库 iext2
.支持库 shell
.子程序 子程序1
.如果 (编辑框1.内容 ＝ “”)
加密文件夹.禁止 ＝ 真
恢复文件夹.禁止 ＝ 真
编辑框2.内容 ＝ “ 请先选择文件夹！”
.否则
.如果 (文本比较 (取文本右边 (编辑框1.内容, 2), “:\”, 真) ＝ 0)
编辑框2.内容 ＝ “不能选择驱动器……”
加密文件夹.禁止 ＝ 真
恢复文件夹.禁止 ＝ 真
.否则
.如果 (位与 (取文件属性 (编辑框1.内容), 1) ＝ 1)
编辑框2.内容 ＝ “ 文件夹为只读！不能进行操作……”
加密文件夹.禁止 ＝ 真
恢复文件夹.禁止 ＝ 真
.否则
.如果 (文本比较 (取文本右边 (编辑框1.内容, 39), “.{20D04FE0-3AEA-1069-A2D8-08002B30309D}”, 真) ≠ 0)
恢复文件夹.禁止 ＝ 真
加密文件夹.禁止 ＝ 假
编辑框2.内容 ＝ “ 该文件夹可以加密！”
.否则
恢复文件夹.禁止 ＝ 假
加密文件夹.禁止 ＝ 真
编辑框2.内容 ＝ “ 该文件夹可以解密！”
.如果结束
.如果结束
.如果结束
.如果结束
.子程序 子程序2
运行 (“explorer.exe ” ＋ 取文本左边 (编辑框1.内容, 倒找文本 (编辑框1.内容, “\”, , 假)), 假, )
.子程序 __启动窗口_创建完毕
加密文件夹.禁止 ＝ 真
恢复文件夹.禁止 ＝ 真
.子程序 _按钮2_被单击
_启动窗口.销毁 ()
.子程序 _选择文件夹_被单击
编辑框1.内容 ＝ 浏览文件夹 (“文件夹浏览”, )
子程序1 ()
.子程序 _加密文件夹_被单击
文件更名 (编辑框1.内容, 编辑框1.内容 ＋ “.{20D04FE0-3AEA-1069-A2D8-08002B30309D}”)
编辑框1.内容 ＝ 编辑框1.内容 ＋ “.{20D04FE0-3AEA-1069-A2D8-08002B30309D}”
信息框 (“程序已完成加密！” ＋ #换行符 ＋ “请到文件夹所在目录查看！”, #信息图标, “木木恭喜你！”)
子程序1 ()
子程序2 ()
.子程序 _恢复文件夹_被单击
文件更名 (编辑框1.内容, 文本替换 (编辑框1.内容, 倒找文本 (编辑框1.内容, “.{20D04FE0-3AEA-1069-A2D8-08002B30309D}”, , 假), 39, ))
编辑框1.内容 ＝ 文本替换 (编辑框1.内容, 倒找文本 (编辑框1.内容, “.{20D04FE0-3AEA-1069-A2D8-08002B30309D}”, , 假), 39, )
信息框 (“程序已完成恢复！” ＋ #换行符 ＋ “请到文件夹所在目录查看！”, #信息图标, “木木恭喜你！”)
子程序1 ()
子程序2 ()