.版本 2
.支持庫 xplib
.程序集 窗口程序集_啟動窗口
.程序集變量 程序集_數(shù)組1, 文本型, , "0"
.程序集變量 程序集_數(shù)組2, 文本型, , "0"
.程序集變量 程序集_數(shù)組3, 文本型, , "0"
.程序集變量 程序集_數(shù)組4, 文本型, , "0"
.程序集變量 程序集_數(shù)組5, 文本型, , "0"
.程序集變量 程序集_數(shù)組_文本匯總, 文本型, , "0"
.程序集變量 程序集_數(shù)組_標(biāo)點匯總, 文本型, , "0"
.程序集變量 程序集_破解字典, 整數(shù)型
.子程序 __啟動窗口_創(chuàng)建完畢
XP風(fēng)格 (1)
.子程序 _按鈕_打開_被單擊
通用對話框.初始目錄 ＝ 取當(dāng)前目錄 ()
通用對話框.打開 ()
編輯框_文件路徑.內(nèi)容 ＝ 通用對話框.文件名
.子程序 _選擇框_小寫字母_被單擊
.如果真 (選擇框_小寫字母.選中 ＝ 真)
  程序集_數(shù)組1 ＝ { “a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l(fā)”, “m”, “n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “x”, “y”, “z” }
.如果真結(jié)束
.如果真 (選擇框_小寫字母.選中 ＝ 假)
  清除數(shù)組 (程序集_數(shù)組1)
.如果真結(jié)束
.子程序 _選擇框_大寫字母_被單擊
.如果真 (選擇框_大寫字母.選中 ＝ 真)
  程序集_數(shù)組2 ＝ { “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z” }
.如果真結(jié)束
.如果真 (選擇框_大寫字母.選中 ＝ 假)
  清除數(shù)組 (程序集_數(shù)組2)
.如果真結(jié)束
.子程序 _選擇框_數(shù)字_被單擊
.如果真 (選擇框_數(shù)字.選中 ＝ 真)
  程序集_數(shù)組3 ＝ { “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9” }
.如果真結(jié)束
.如果真 (選擇框_數(shù)字.選中 ＝ 假)
  清除數(shù)組 (程序集_數(shù)組3)
.如果真結(jié)束
.子程序 _選擇框_英文標(biāo)點_被單擊
.如果真 (選擇框_英文標(biāo)點.選中 ＝ 真)
  程序集_數(shù)組4 ＝ { “`”, “~”, “!”, “@”, “#”, “$”, “%”, “^”, “&”, “*”, “(”, “)”, “-”, “_”, “=”, “+”, “\”, “|”, “[”, “]”, “{”, “}”, “;”, “:”, “'”, #左引號, #右引號, “,”, “<”, “>”, “.”, “/”, “?” }
.如果真結(jié)束
.如果真 (選擇框_英文標(biāo)點.選中 ＝ 假)
  清除數(shù)組 (程序集_數(shù)組4)
.如果真結(jié)束
.子程序 _選擇框_中文標(biāo)點_被單擊
.如果真 (選擇框_中文標(biāo)點.選中 ＝ 真)
  程序集_數(shù)組5 ＝ { “·”, “！”, “￥”, “……”, “（”, “）”, “——”, “、”, “【”, “】”, “；”, “：”, “‘”, “，”, “《”, “》”, “?！? “、”, “？” }
.如果真結(jié)束
.如果真 (選擇框_中文標(biāo)點.選中 ＝ 假)
  清除數(shù)組 (程序集_數(shù)組5)
.如果真結(jié)束
.子程序 _按鈕_開始_被單擊
.局部變量 局部_文件后綴名, 文本型
.如果 (選擇框_小寫字母.選中 ＝ 假 且 選擇框_大寫字母.選中 ＝ 假 且 選擇框_數(shù)字.選中 ＝ 假)
  程序集_破解字典 ＝ 0
.否則
  程序集_破解字典 ＝ 1
.如果結(jié)束
局部_文件后綴名 ＝ 取文本右邊 (編輯框_文件路徑.內(nèi)容, 3)
.判斷開始 (編輯框_文件路徑.內(nèi)容 ＝ “”)
  信息框 (“請打開一個RAR文件！”, 0, “提醒”, )
  按鈕_打開.獲取焦點 ()
  返回 ()
.判斷 (程序集_破解字典 ＝ 0)
  信息框 (“請選擇一個密碼字典選項！”, 0, “提醒”, )
  返回 ()
.判斷 (局部_文件后綴名 ≠ “rar”)
  信息框 (“請選擇一個后綴名是RAR文件！”, 0, “錯誤”, )
  按鈕_打開.獲取焦點 ()
  返回 ()
.判斷 (到數(shù)值 (編輯框_最小長度.內(nèi)容) ＞ 到數(shù)值 (編輯框_最大長度.內(nèi)容))
  信息框 (“密碼最大長度不能小于最小長度！”, 0, “錯誤”, )
  編輯框_最大長度.獲取焦點 ()
  返回 ()
.默認(rèn)
.判斷結(jié)束
清除數(shù)組 (程序集_數(shù)組_文本匯總)
清除數(shù)組 (程序集_數(shù)組_標(biāo)點匯總)
.如果真 (取數(shù)組成員數(shù) (程序集_數(shù)組1) ＞ 0)
  加入成員 (程序集_數(shù)組_文本匯總, 程序集_數(shù)組1)
.如果真結(jié)束
.如果真 (取數(shù)組成員數(shù) (程序集_數(shù)組2) ＞ 0)
  加入成員 (程序集_數(shù)組_文本匯總, 程序集_數(shù)組2)
.如果真結(jié)束
.如果真 (取數(shù)組成員數(shù) (程序集_數(shù)組3) ＞ 0)
  加入成員 (程序集_數(shù)組_文本匯總, 程序集_數(shù)組3)
.如果真結(jié)束
.如果真 (取數(shù)組成員數(shù) (程序集_數(shù)組4) ＞ 0)
  加入成員 (程序集_數(shù)組_標(biāo)點匯總, 程序集_數(shù)組4)
.如果真結(jié)束
.如果真 (取數(shù)組成員數(shù) (程序集_數(shù)組5) ＞ 0)
  加入成員 (程序集_數(shù)組_標(biāo)點匯總, 程序集_數(shù)組5)
.如果真結(jié)束
窮舉密碼 ()
.子程序 窮舉密碼
.局部變量 局部_文本, 文本型
.局部變量 局部_密碼, 文本型
.局部變量 局部_取密碼數(shù)組, 整數(shù)型, , "0"
.局部變量 局部_密碼位數(shù), 整數(shù)型
.局部變量 局部_循環(huán)位置, 整數(shù)型
.局部變量 局部_跳出循環(huán), 整數(shù)型
.局部變量 局部_結(jié)果, 邏輯型
.局部變量 a, 整數(shù)型
.局部變量 b, 整數(shù)型
.局部變量 c, 整數(shù)型
局部_密碼位數(shù) ＝ 到數(shù)值 (編輯框_最小長度.內(nèi)容) － 1
.變量循環(huán)首 (到數(shù)值 (編輯框_最小長度.內(nèi)容), 到數(shù)值 (編輯框_最大長度.內(nèi)容), 1, a)
  局部_跳出循環(huán) ＝ 0
  局部_密碼位數(shù) ＝ 局部_密碼位數(shù) ＋ 1
  清除數(shù)組 (局部_取密碼數(shù)組)
  .計次循環(huán)首 (局部_密碼位數(shù), )
    加入成員 (局部_取密碼數(shù)組, 1)
  .計次循環(huán)尾 ()
  局部_循環(huán)位置 ＝ 取數(shù)組成員數(shù) (局部_取密碼數(shù)組)
  .循環(huán)判斷首 ()
    局部_文本 ＝ “”
    .如果真 (取數(shù)組成員數(shù) (局部_取密碼數(shù)組) ＞ 1)
      .計次循環(huán)首 (取數(shù)組成員數(shù) (局部_取密碼數(shù)組), c)
        局部_文本 ＝ 局部_文本 ＋ 程序集_數(shù)組_文本匯總 [局部_取密碼數(shù)組 [c]]
      .計次循環(huán)尾 ()
      .如果 (取數(shù)組成員數(shù) (程序集_數(shù)組_標(biāo)點匯總) ＞ 0)
        .計次循環(huán)首 (取數(shù)組成員數(shù) (程序集_數(shù)組_標(biāo)點匯總), b)
          .計次循環(huán)首 (取文本長度 (局部_文本), c)
            局部_密碼 ＝ 取文本左邊 (局部_文本, c) ＋ 程序集_數(shù)組_標(biāo)點匯總 [b] ＋ 取文本右邊 (局部_文本, 取文本長度 (局部_文本) － c)
            局部_結(jié)果 ＝ 嘗試密碼 (局部_密碼)
            .如果真 (局部_結(jié)果 ＝ 真)
              返回 ()
            .如果真結(jié)束
            處理事件 ()
          .計次循環(huán)尾 ()
        .計次循環(huán)尾 ()
      .否則
        局部_密碼 ＝ 局部_文本
      .如果結(jié)束
      局部_結(jié)果 ＝ 嘗試密碼 (局部_密碼)
      .如果真 (局部_結(jié)果 ＝ 真)
        返回 ()
      .如果真結(jié)束
      處理事件 ()
    .如果真結(jié)束
    .如果真 (取數(shù)組成員數(shù) (局部_取密碼數(shù)組) ＝ 1)
      .計次循環(huán)首 (取數(shù)組成員數(shù) (程序集_數(shù)組_文本匯總), b)
        局部_文本 ＝ 程序集_數(shù)組_文本匯總 [b]
        .如果 (取數(shù)組成員數(shù) (程序集_數(shù)組_標(biāo)點匯總) ＞ 0)
          .計次循環(huán)首 (取數(shù)組成員數(shù) (程序集_數(shù)組_標(biāo)點匯總), b)
            局部_密碼 ＝ 局部_文本 ＋ 程序集_數(shù)組_標(biāo)點匯總 [b]
            局部_結(jié)果 ＝ 嘗試密碼 (局部_密碼)
            .如果真 (局部_結(jié)果 ＝ 真)
              返回 ()
            .如果真結(jié)束
            處理事件 ()
          .計次循環(huán)尾 ()
        .否則
          局部_密碼 ＝ 局部_文本
          局部_結(jié)果 ＝ 嘗試密碼 (局部_密碼)
          .如果真 (局部_結(jié)果 ＝ 真)
            返回 ()
          .如果真結(jié)束
          處理事件 ()
        .如果結(jié)束
      .計次循環(huán)尾 ()
    .如果真結(jié)束
    .如果 (取數(shù)組成員數(shù) (局部_取密碼數(shù)組) ＞ 1)
      .如果 (局部_取密碼數(shù)組 [局部_循環(huán)位置] ＋ 1 ＞ 取數(shù)組成員數(shù) (程序集_數(shù)組_文本匯總))
        .判斷循環(huán)首 (真)
          局部_取密碼數(shù)組 [局部_循環(huán)位置] ＝ 1
          局部_循環(huán)位置 ＝ 局部_循環(huán)位置 － 1
          .如果真 (局部_循環(huán)位置 ＜ 1)
            局部_跳出循環(huán) ＝ 1
            跳出循環(huán) ()
          .如果真結(jié)束
          .如果 (局部_取密碼數(shù)組 [局部_循環(huán)位置] ＋ 1 ＞ 取數(shù)組成員數(shù) (程序集_數(shù)組_文本匯總))
            到循環(huán)尾 ()
          .否則
            局部_取密碼數(shù)組 [局部_循環(huán)位置] ＝ 局部_取密碼數(shù)組 [局部_循環(huán)位置] ＋ 1
            跳出循環(huán) ()
          .如果結(jié)束
        .判斷循環(huán)尾 ()
        局部_循環(huán)位置 ＝ 取數(shù)組成員數(shù) (局部_取密碼數(shù)組)
      .否則
        局部_取密碼數(shù)組 [局部_循環(huán)位置] ＝ 局部_取密碼數(shù)組 [局部_循環(huán)位置] ＋ 1
      .如果結(jié)束
    .否則
      跳出循環(huán) ()
    .如果結(jié)束
    .如果真 (局部_跳出循環(huán) ＝ 1)
      跳出循環(huán) ()
    .如果真結(jié)束
  .循環(huán)判斷尾 (真)
.變量循環(huán)尾 ()
標(biāo)簽_顯示.標(biāo)題 ＝ “字典跑完啦，沒有找到正確的密碼！”
返回 ()
.子程序 嘗試密碼, 邏輯型
.參數(shù) 參數(shù)_窮舉密碼, 文本型
.局部變量 局部_密碼, 文本型
.局部變量 局部_文本, 文本型
.局部變量 a, 整數(shù)型
.局部變量 b, 整數(shù)型
局部_密碼 ＝ 參數(shù)_窮舉密碼
.如果真 (編輯框_自定義開頭.內(nèi)容 ≠ “”)
  局部_密碼 ＝ 刪首尾空 (編輯框_自定義開頭.內(nèi)容) ＋ 局部_密碼
.如果真結(jié)束
.如果真 (編輯框_自定義結(jié)尾.內(nèi)容 ≠ “”)
  局部_密碼 ＝ 局部_密碼 ＋ 刪首尾空 (編輯框_自定義結(jié)尾.內(nèi)容)
.如果真結(jié)束
.如果 (RAR_解壓文件 (編輯框_文件路徑.內(nèi)容, 局部_密碼, 取當(dāng)前目錄 () ＋ “\”) ＝ 真)
  標(biāo)簽_顯示.標(biāo)題 ＝ “”
  標(biāo)簽_顯示.標(biāo)題 ＝ “文件密碼是:” ＋ 局部_密碼
  返回 (真)
.否則
  標(biāo)簽_顯示.標(biāo)題 ＝ “”
  標(biāo)簽_顯示.標(biāo)題 ＝ “正在嘗試密碼:” ＋ 局部_密碼
  返回 (假)
.如果結(jié)束
.子程序 _按鈕_退出_被單擊
結(jié)束 ()