文件夹加密/解密软件

文件名 ＝ 分割文本 (接收到的文件路径, #换行符, )
接收到的文件路径 ＝ 文件名 [1]
文件属性 ＝ 取文件属性 (接收到的文件路径) ' 判断拖放进来的目标是文件夹还是文件，根据相应的属性进行处理
.如果真 (位与 (文件属性, #子目录) ≠ 0)
文件号 ＝ 打开文件 (接收到的文件路径 ＋ “.\jm.dat”, #读入, #禁止读写)
解密密码 ＝ 读入一行 (文件号)
关闭文件 (文件号)
.如果 (解密密码 ≠ “”)
' 标签1.标题 ＝ #换行符 ＋ #换行符 ＋ #换行符 ＋ “点击我帮你解密” ' 用于判断目录是否已经加过密。jm.dat是程序加密后在所加密的目录下生成的标志文件。
.如果真 (输入框 (“请输入” ＋ #引号 ＋ 取文本左边 (接收到的文件路径, 取文本长度 (接收到的文件路径) － 1) ＋ #引号 ＋ “文件夹的密码”, “录入密码”, , 密码1, #输入密码))
.如果 (密码1 ≠ 解密密码)
信息框 (“密码不正确，重新录入密码。”, 0, )
.否则
' 核心命令：此句命令将加密后的目录名修改成正常的目录名。
文件更名 (接收到的文件路径 ＋ “.\”, 取文本左边 (接收到的文件路径, 取文本长度 (接收到的文件路径) － 1))
删除文件 (接收到的文件路径 ＋ “\jm.dat”)
信息框 (“解密成功。”, 0, )
' 标签1.标题 ＝ #换行符 ＋ #换行符 ＋ #换行符 ＋ #换行符 ＋ “把你要加密的文件夹交给我”
.如果结束

.如果真结束
返回 ()
.否则
.如果真 (输入框 (“请输入” ＋ #引号 ＋ 接收到的文件路径 ＋ #引号 ＋ “你要加密的密码”, “输入密码”, , 密码1, #输入密码))
.如果真 (输入框 (“请再次输入” ＋ #引号 ＋ 接收到的文件路径 ＋ #引号 ＋ “验证密码避免遗忘：”, “输入密码”, , 密码2, #输入密码))
.如果 (密码1 ＝ 密码2)
.如果 (密码1 ≠ “”)
.如果 (文件更名 (接收到的文件路径, 接收到的文件路径 ＋ “..\”)) ' 核心命令：此句命令将正常的目录名加密成无法访问的目录名。
写到文件 (接收到的文件路径 ＋ “..\jm.dat”, 到字节集 (密码1)) ' 生成加密目录标志文件及密码记录
信息框 (“加密成功。”, 0, )
' 标签1.标题 ＝ #换行符 ＋ #换行符 ＋ #换行符 ＋ #换行符 ＋ “把你要加密的文件夹交给我”