.版本 2.支持庫 xplib.程序集 窗口程序集_啟動窗口.程序集變量 程序集_數組1, 文本型, , "0".程序集變量 程序集_數組2, 文本型, , "0".程序集變量 程序集_數組3, 文本型, , "0".程序集變量 程序集_數組4, 文本型, , "0".程序集變量 程序集_數組5, 文本型, , "0".程序集變量 程序集_數組_文本匯總, 文本型, , "0".程序集變量 程序集_數組_標點匯總, 文本型, , "0".程序集變量 程序集_破解字典, 整數型.子程序 __啟動窗口_創建完畢XP風格 (1).子程序 _按鈕_打開_被單擊通用對話框.初始目錄 ＝ 取當前目錄 ()通用對話框.打開 ()編輯框_文件路徑.內容 ＝ 通用對話框.文件名.子程序 _選擇框_小寫字母_被單擊.如果真 (選擇框_小寫字母.選中 ＝ 真)  程序集_數組1 ＝ { “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” }.如果真結束.如果真 (選擇框_小寫字母.選中 ＝ 假)  清除數組 (程序集_數組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".局部變量 局部_密碼位數, 整數型.局部變量 局部_循環位置, 整數型.局部變量 局部_跳出循環, 整數型.局部變量 局部_結果, 邏輯型.局部變量 a, 整數型.局部變量 b, 整數型.局部變量 c, 整數型局部_密碼位數 ＝ 到數值 (編輯框_最小長度.內容) － 1.變量循環首 (到數值 (編輯框_最小長度.內容), 到數值 (編輯框_最大長度.內容), 1, a)  局部_跳出循環 ＝ 0  局部_密碼位數 ＝ 局部_密碼位數 ＋ 1  清除數組 (局部_取密碼數組)  .計次循環首 (局部_密碼位數, )    加入成員 (局部_取密碼數組, 1)  .計次循環尾 ()  局部_循環位置 ＝ 取數組成員數 (局部_取密碼數組)  .循環判斷首 ()    局部_文本 ＝ “”    .如果真 (取數組成員數 (局部_取密碼數組) ＞ 1)      .計次循環首 (取數組成員數 (局部_取密碼數組), c)        局部_文本 ＝ 局部_文本 ＋ 程序集_數組_文本匯總 [局部_取密碼數組 [c]]      .計次循環尾 ()      .如果 (取數組成員數 (程序集_數組_標點匯總) ＞ 0)        .計次循環首 (取數組成員數 (程序集_數組_標點匯總), b)          .計次循環首 (取文本長度 (局部_文本), c)            局部_密碼 ＝ 取文本左邊 (局部_文本, c) ＋ 程序集_數組_標點匯總 [b] ＋ 取文本右邊 (局部_文本, 取文本長度 (局部_文本) － c)            局部_結果 ＝ 嘗試密碼 (局部_密碼)            .如果真 (局部_結果 ＝ 真)              返回 ()            .如果真結束            處理事件 ()          .計次循環尾 ()        .計次循環尾 ()      .否則        局部_密碼 ＝ 局部_文本      .如果結束      局部_結果 ＝ 嘗試密碼 (局部_密碼)      .如果真 (局部_結果 ＝ 真)        返回 ()      .如果真結束      處理事件 ()    .如果真結束    .如果真 (取數組成員數 (局部_取密碼數組) ＝ 1)      .計次循環首 (取數組成員數 (程序集_數組_文本匯總), b)        局部_文本 ＝ 程序集_數組_文本匯總 [b]        .如果 (取數組成員數 (程序集_數組_標點匯總) ＞ 0)          .計次循環首 (取數組成員數 (程序集_數組_標點匯總), b)            局部_密碼 ＝ 局部_文本 ＋ 程序集_數組_標點匯總 [b]            局部_結果 ＝ 嘗試密碼 (局部_密碼)            .如果真 (局部_結果 ＝ 真)              返回 ()            .如果真結束            處理事件 ()          .計次循環尾 ()        .否則          局部_密碼 ＝ 局部_文本          局部_結果 ＝ 嘗試密碼 (局部_密碼)          .如果真 (局部_結果 ＝ 真)            返回 ()          .如果真結束          處理事件 ()        .如果結束      .計次循環尾 ()    .如果真結束    .如果 (取數組成員數 (局部_取密碼數組) ＞ 1)      .如果 (局部_取密碼數組 [局部_循環位置] ＋ 1 ＞ 取數組成員數 (程序集_數組_文本匯總))        .判斷循環首 (真)          局部_取密碼數組 [局部_循環位置] ＝ 1          局部_循環位置 ＝ 局部_循環位置 － 1          .如果真 (局部_循環位置 ＜ 1)            局部_跳出循環 ＝ 1            跳出循環 ()          .如果真結束          .如果 (局部_取密碼數組 [局部_循環位置] ＋ 1 ＞ 取數組成員數 (程序集_數組_文本匯總))            到循環尾 ()          .否則            局部_取密碼數組 [局部_循環位置] ＝ 局部_取密碼數組 [局部_循環位置] ＋ 1            跳出循環 ()          .如果結束        .判斷循環尾 ()        局部_循環位置 ＝ 取數組成員數 (局部_取密碼數組)      .否則        局部_取密碼數組 [局部_循環位置] ＝ 局部_取密碼數組 [局部_循環位置] ＋ 1      .如果結束    .否則      跳出循環 ()    .如果結束    .如果真 (局部_跳出循環 ＝ 1)      跳出循環 ()    .如果真結束  .循環判斷尾 (真).變量循環尾 ()標簽_顯示.標題 ＝ “字典跑完啦，沒有找到正確的密碼！”返回 ().子程序 嘗試密碼, 邏輯型.參數 參數_窮舉密碼, 文本型.局部變量 局部_密碼, 文本型.局部變量 局部_文本, 文本型.局部變量 a, 整數型.局部變量 b, 整數型局部_密碼 ＝ 參數_窮舉密碼.如果真 (編輯框_自定義開頭.內容 ≠ “”)  局部_密碼 ＝ 刪首尾空 (編輯框_自定義開頭.內容) ＋ 局部_密碼.如果真結束.如果真 (編輯框_自定義結尾.內容 ≠ “”)  局部_密碼 ＝ 局部_密碼 ＋ 刪首尾空 (編輯框_自定義結尾.內容).如果真結束.如果 (RAR_解壓文件 (編輯框_文件路徑.內容, 局部_密碼, 取當前目錄 () ＋ “/”) ＝ 真)  標簽_顯示.標題 ＝ “”  標簽_顯示.標題 ＝ “文件密碼是:” ＋ 局部_密碼  返回 (真).否則  標簽_顯示.標題 ＝ “”  標簽_顯示.標題 ＝ “正在嘗試密碼:” ＋ 局部_密碼  返回 (假).如果結束.子程序 _按鈕_退出_被單擊結束 ()