使用易语言怎么加密文件夹?相信很多没有经验的人对此束手无策,为此本文总结了问题出现的原因和解决方法,通过这篇文章希望你能解决这个问题。
加密锁上文件夹
此功能需要加载精易模块5.6
.版本 2 .支持库 shell .支持库 spec .支持库 dp1 .程序集 窗口程序集1 .程序集变量 密码, 文本型 .子程序 _按钮_浏览文件_被单击 编辑框_路径.内容 = 浏览文件夹 (“打开你需要加密的文件”, ) .子程序 _按钮_加密_被单击 .局部变量 文件夹名称, 文本型 .判断开始 (寻找文本 (编辑框_路径.内容, “[已加密]”, , 假) ≠ -1) 提示框 (“已加密”) .默认 文件夹名称 = 取文本右边 (编辑框_路径.内容, 取文本长度 (编辑框_路径.内容) - 倒找文本 (编辑框_路径.内容, “\”, , 假)) 调试输出 (文件夹名称) 目录_改名 (编辑框_路径.内容, 文件夹名称 + “[已加密]”) 编辑框_路径.内容 = 编辑框_路径.内容 + “[已加密]” 输入框 (“请输入密码”, “请输入密码”, “”, 密码, #输入密码) 文件_枚举1 (编辑框_路径.内容, “*.*”, &子程序_加密) 提示框 (“完成”) .判断结束 .子程序 _按钮_解密_被单击 .局部变量 文件夹名称, 文本型 .判断开始 (寻找文本 (编辑框_路径.内容, “[已加密]”, , 假) ≠ -1) 编辑框_路径.内容 = 文本_替换 (编辑框_路径.内容, , , , “[已加密]”, “”) 文件夹名称 = 取文本右边 (编辑框_路径.内容, 取文本长度 (编辑框_路径.内容) - 倒找文本 (编辑框_路径.内容, “\”, , 假)) 目录_改名 (编辑框_路径.内容 + “[已加密]”, 文件夹名称) 输入框 (“请输入密码”, “请输入密码”, “”, 密码, #输入密码) 文件_枚举1 (编辑框_路径.内容, “*.*”, &子程序_加密) 提示框 (“完成”) .默认 提示框 (“已解密”) .判断结束 .子程序 子程序_加密 .参数 目录, 文本型 .参数 文件名, 文本型 .局部变量 路径, 文本型 .局部变量 未加密, 字节集 .局部变量 已加密, 字节集 路径 = 目录 + 文件名 未加密 = 读入文件 (路径) 已加密 = 加密数据 (未加密, 密码, #RC4算法) 写到文件 (路径, 已加密) .子程序 子程序_解密 .参数 目录, 文本型 .参数 文件名, 文本型 .局部变量 路径, 文本型 .局部变量 已加密, 字节集 .局部变量 已解密, 字节集 路径 = 目录 + 文件名 已加密 = 读入文件 (路径) 已解密 = 解密数据 (已加密, 密码, #RC4算法) 写到文件 (路径, 已解密)
运行结果:
看完上述内容,你们掌握使用易语言怎么加密文件夹的方法了吗?如果还想学到更多技能或想了解更多相关内容,欢迎关注亿速云行业资讯频道,感谢各位的阅读!
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。