使用易語(yǔ)言怎么加密文件夾

使用易語(yǔ)言怎么加密文件夾？相信很多沒有經(jīng)驗(yàn)的人對(duì)此束手無策，為此本文總結(jié)了問題出現(xiàn)的原因和解決方法，通過這篇文章希望你能解決這個(gè)問題。

加密鎖上文件夾

此功能需要加載精易模塊5.6

.版本 2
.支持庫(kù) shell
.支持庫(kù) spec
.支持庫(kù) dp1
.程序集 窗口程序集1
.程序集變量 密碼, 文本型
.子程序 _按鈕_瀏覽文件_被單擊
編輯框_路徑.內(nèi)容 ＝ 瀏覽文件夾 (“打開你需要加密的文件”, )
.子程序 _按鈕_加密_被單擊
.局部變量 文件夾名稱, 文本型
.判斷開始 (尋找文本 (編輯框_路徑.內(nèi)容, “[已加密]”, , 假) ≠ -1)
  提示框 (“已加密”)
.默認(rèn)
  文件夾名稱 ＝ 取文本右邊 (編輯框_路徑.內(nèi)容, 取文本長(zhǎng)度 (編輯框_路徑.內(nèi)容) － 倒找文本 (編輯框_路徑.內(nèi)容, “\”, , 假))
  調(diào)試輸出 (文件夾名稱)
  目錄_改名 (編輯框_路徑.內(nèi)容, 文件夾名稱 ＋ “[已加密]”)
  編輯框_路徑.內(nèi)容 ＝ 編輯框_路徑.內(nèi)容 ＋ “[已加密]”
  輸入框 (“請(qǐng)輸入密碼”, “請(qǐng)輸入密碼”, “”, 密碼, #輸入密碼)
  文件_枚舉1 (編輯框_路徑.內(nèi)容, “*.*”, &子程序_加密)
  提示框 (“完成”)
.判斷結(jié)束
.子程序 _按鈕_解密_被單擊
.局部變量 文件夾名稱, 文本型
.判斷開始 (尋找文本 (編輯框_路徑.內(nèi)容, “[已加密]”, , 假) ≠ -1)
  編輯框_路徑.內(nèi)容 ＝ 文本_替換 (編輯框_路徑.內(nèi)容, , , , “[已加密]”, “”)
  文件夾名稱 ＝ 取文本右邊 (編輯框_路徑.內(nèi)容, 取文本長(zhǎng)度 (編輯框_路徑.內(nèi)容) － 倒找文本 (編輯框_路徑.內(nèi)容, “\”, , 假))
  目錄_改名 (編輯框_路徑.內(nèi)容 ＋ “[已加密]”, 文件夾名稱)
  輸入框 (“請(qǐng)輸入密碼”, “請(qǐng)輸入密碼”, “”, 密碼, #輸入密碼)
  文件_枚舉1 (編輯框_路徑.內(nèi)容, “*.*”, &子程序_加密)
  提示框 (“完成”)
.默認(rèn)
  提示框 (“已解密”)
.判斷結(jié)束
.子程序 子程序_加密
.參數(shù) 目錄, 文本型
.參數(shù) 文件名, 文本型
.局部變量 路徑, 文本型
.局部變量 未加密, 字節(jié)集
.局部變量 已加密, 字節(jié)集
路徑 ＝ 目錄 ＋ 文件名
未加密 ＝ 讀入文件 (路徑)
已加密 ＝ 加密數(shù)據(jù) (未加密, 密碼, #RC4算法)
寫到文件 (路徑, 已加密)
.子程序 子程序_解密
.參數(shù) 目錄, 文本型
.參數(shù) 文件名, 文本型
.局部變量 路徑, 文本型
.局部變量 已加密, 字節(jié)集
.局部變量 已解密, 字節(jié)集
路徑 ＝ 目錄 ＋ 文件名
已加密 ＝ 讀入文件 (路徑)
已解密 ＝ 解密數(shù)據(jù) (已加密, 密碼, #RC4算法)
寫到文件 (路徑, 已解密)

運(yùn)行結(jié)果：

看完上述內(nèi)容，你們掌握使用易語(yǔ)言怎么加密文件夾的方法了嗎？如果還想學(xué)到更多技能或想了解更多相關(guān)內(nèi)容，歡迎關(guān)注億速云行業(yè)資訊頻道，感謝各位的閱讀！