易语⾔实现⽂件夹加密的代码
加密锁上⽂件夹
此功能需要加载精易模块5.6
.版本 2
.⽀持库 shell
.⽀持库 spec
.⽀持库 dp1
.程序集窗⼝程序集1
.程序集变量密码, ⽂本型
.⼦程序 _按钮_浏览⽂件_被单击
编辑框_路径.内容＝浏览⽂件夹 (“打开你需要加密的⽂件”, )
.
⼦程序 _按钮_加密_被单击
.局部变量⽂件夹名称, ⽂本型
.判断开始 (寻⽂本 (编辑框_路径.内容, “[已加密]”, , 假) ≠ -1)
提⽰框 (“已加密”)
.默认
⽂件夹名称＝取⽂本右边 (编辑框_路径.内容, 取⽂本长度 (编辑框_路径.内容) －倒⽂本 (编辑框_路径.内容, “\”, , 假))
调试输出 (⽂件夹名称)
⽬录_改名 (编辑框_路径.内容, ⽂件夹名称＋ “[已加密]”)
编辑框_路径.内容＝编辑框_路径.内容＋ “[已加密]”
输⼊框 (“请输⼊密码”, “请输⼊密码”, “”, 密码, #输⼊密码)
⽂件_枚举1 (编辑框_路径.内容, “*.*”, &⼦程序_加密)
提⽰框 (“完成”)
.判断结束
.⼦程序 _按钮_解密_被单击
.局部变量⽂件夹名称, ⽂本型
.判断开始 (寻⽂本 (编辑框_路径.内容, “[已加密]”, , 假) ≠ -1)
编辑框_路径.内容＝⽂本_替换 (编辑框_路径.内容, , , , “[已加密]”, “”)
⽂件夹名称＝取⽂本右边 (编辑框_路径.内容, 取⽂本长度 (编辑框_路径.内容) －倒⽂本 (编辑框_路径.内容, “\”, , 假))
⽬录_改名 (编辑框_路径.内容＋ “[已加密]”, ⽂件夹名称)
输⼊框 (“请输⼊密码”, “请输⼊密码”, “”, 密码, #输⼊密码)
⽂件_枚举1 (编辑框_路径.内容, “*.*”, &⼦程序_加密)
提⽰框 (“完成”)
.默认
提⽰框 (“已解密”)
.判断结束
.⼦程序⼦程序_加密
.参数⽬录, ⽂本型
.参数⽂件名, ⽂本型
.局部变量路径, ⽂本型
.局部变量未加密, 字节集
.局部变量已加密, 字节集
路径＝⽬录＋⽂件名
未加密＝读⼊⽂件 (路径)
已加密＝加密数据 (未加密, 密码, #RC4算法)
写到⽂件 (路径, 已加密)
.⼦程序⼦程序_解密
.参数⽬录, ⽂本型
.参数⽂件名, ⽂本型
.局部变量路径, ⽂本型
.局部变量已加密, 字节集
.局部变量已解密, 字节集
路径＝⽬录＋⽂件名
已加密＝读⼊⽂件 (路径)
已解密＝解密数据 (已加密, 密码, #RC4算法)如何给文件夹加密码
写到⽂件 (路径, 已解密)
运⾏结果：
总结
以上就是这篇⽂章的全部内容了，希望本⽂的内容对⼤家的学习或者⼯作具有⼀定的参考学习价值，谢谢⼤家对的⽀持。如果你想了解更多相关内容请查看下⾯相关链接