.版本 2.支持库 shell.支持库 spec.支持库 dp1.程序集 窗口程序集1.程序集变量 密码, 文本型.子程序 _按钮_浏览文件_被单击编辑框_路径.内容 ＝ 浏览文件夹 (“打开你需要加密的文件”, ).子程序 _按钮_加密_被单击.局部变量 文件夹名称, 文本型.判断开始 (寻找文本 (编辑框_路径.内容, “[已加密]”, , 假) ≠ -1) 提示框 (“已加密”).默认 文件夹名称 ＝ 取文本右边 (编辑框_路径.内容, 取文本长度 (编辑框_路径.内容) － 倒找文本 (编辑框_路径.内容, “/”, , 假)) 调试输出 (文件夹名称) 目录_改名 (编辑框_路径.内容, 文件夹名称 ＋ “[已加密]”) 编辑框_路径.内容 ＝ 编辑框_路径.内容 ＋ “[已加密]” 输入框 (“请输入密码”, “请输入密码”, “”, 密码, #输入密码) 文件_枚举1 (编辑框_路径.内容, “*.*”, &子程序_加密) 提示框 (“完成”).判断结束.子程序 _按钮_解密_被单击.局部变量 文件夹名称, 文本型.判断开始 (寻找文本 (编辑框_路径.内容, “[已加密]”, , 假) ≠ -1) 编辑框_路径.内容 ＝ 文本_替换 (编辑框_路径.内容, , , , “[已加密]”, “”) 文件夹名称 ＝ 取文本右边 (编辑框_路径.内容, 取文本长度 (编辑框_路径.内容) － 倒找文本 (编辑框_路径.内容, “/”, , 假)) 目录_改名 (编辑框_路径.内容 ＋ “[已加密]”, 文件夹名称) 输入框 (“请输入密码”, “请输入密码”, “”, 密码, #输入密码) 文件_枚举1 (编辑框_路径.内容, “*.*”, &子程序_加密) 提示框 (“完成”).默认 提示框 (“已解密”).判断结束.子程序 子程序_加密.参数 目录, 文本型.参数 文件名, 文本型.局部变量 路径, 文本型.局部变量 未加密, 字节集.局部变量 已加密, 字节集路径 ＝ 目录 ＋ 文件名未加密 ＝ 读入文件 (路径)已加密 ＝ 加密数据 (未加密, 密码, #RC4算法)写到文件 (路径, 已加密).子程序 子程序_解密.参数 目录, 文本型.参数 文件名, 文本型.局部变量 路径, 文本型.局部变量 已加密, 字节集.局部变量 已解密, 字节集路径 ＝ 目录 ＋ 文件名已加密 ＝ 读入文件 (路径)已解密 ＝ 解密数据 (已加密, 密码, #RC4算法)写到文件 (路径, 已解密)
