加密鎖上文件夾
此功能需要加載精易模塊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算法)寫到文件 (路徑, 已解密) |
運行結果：
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對服務器之家的支持。如果你想了解更多相關內容請查看下面相關鏈接
