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