加密锁上文件夹
此功能需要加载精易模块5.6
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
.版本 2
.支持库 shell
.支持库 spec
.支持库 dp1
.程序集 窗口程序集1
.程序集变量 密码, 文本型
.子程序 _按钮_浏览文件_被单击
编辑框_路径.内容 ＝ 浏览文件夹 (“打开你需要加密的文件”, )
.子程序 _按钮_加密_被单击
.局部变量 文件夹名称, 文本型
.判断开始 (寻找文本 (编辑框_路径.内容, “[已加密]”, , 假) ≠ -1)
提示框 (“已加密”)
.默认
文件夹名称 ＝ 取文本右边 (编辑框_路径.内容, 取文本长度 (编辑框_路径.内容) － 倒找文本 (编辑框_路径.内容, “\”, , 假))
调试输出 (文件夹名称)
目录_改名 (编辑框_路径.内容, 文件夹名称 ＋ “[已加密]”)
编辑框_路径.内容 ＝ 编辑框_路径.内容 ＋ “[已加密]”
输入框 (“请输入密码”, “请输入密码”, “”, 密码, #输入密码)
文件_枚举1 (编辑框_路径.内容, “*.*”, &子程序_加密)
提示框 (“完成”)
.判断结束
.子程序 _按钮_解密_被单击
.局部变量 文件夹名称, 文本型
.判断开始 (寻找文本 (编辑框_路径.内容, “[已加密]”, , 假) ≠ -1)
编辑框_路径.内容 ＝ 文本_替换 (编辑框_路径.内容, , , , “[已加密]”, “”)
文件夹名称 ＝ 取文本右边 (编辑框_路径.内容, 取文本长度 (编辑框_路径.内容) － 倒找文本 (编辑框_路径.内容, “\”, , 假))
目录_改名 (编辑框_路径.内容 ＋ “[已加密]”, 文件夹名称)
输入框 (“请输入密码”, “请输入密码”, “”, 密码, #输入密码)
文件_枚举1 (编辑框_路径.内容, “*.*”, &子程序_加密)
提示框 (“完成”)
.默认
提示框 (“已解密”)
.判断结束
.子程序 子程序_加密
.参数 目录, 文本型
.参数 文件名, 文本型
.局部变量 路径, 文本型
.局部变量 未加密, 字节集
.局部变量 已加密, 字节集
路径 ＝ 目录 ＋ 文件名
未加密 ＝ 读入文件 (路径)
已加密 ＝ 加密数据 (未加密, 密码, #RC4算法)
写到文件 (路径, 已加密)
.子程序 子程序_解密
.参数 目录, 文本型
.参数 文件名, 文本型
.局部变量 路径, 文本型
.局部变量 已加密, 字节集
.局部变量 已解密, 字节集
路径 ＝ 目录 ＋ 文件名
已加密 ＝ 读入文件 (路径)
已解密 ＝ 解密数据 (已加密, 密码, #RC4算法)
写到文件 (路径, 已解密)
|
运行结果：
总结
以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对服务器之家的支持。如果你想了解更多相关内容请查看下面相关链接