易語(yǔ)言word密碼暴力破解器簡(jiǎn)易版

.版本 2
.DLL命令 CreateThread, 整數(shù)型, , "CreateThread", , CreateThread
  .參數(shù) lpThreadAttributes, 整數(shù)型
  .參數(shù) dwStackSize, 整數(shù)型
  .參數(shù) lpStartAddress, 子程序指針
  .參數(shù) lpParameter, 整數(shù)型
  .參數(shù) dwCreationFlags, 整數(shù)型
  .參數(shù) lpThreadId, 整數(shù)型, 傳址
.DLL命令 TerminateThread, 整數(shù)型, , "TerminateThread", , TerminateThread
  .參數(shù) hThread, 整數(shù)型
  .參數(shù) dwExitCode, 整數(shù)型
.DLL命令 CoInitialize, 整數(shù)型, "ole32.dll"
  .參數(shù) pvReserved, 整數(shù)型
.DLL命令 CoUninitialize, , "ole32.dll"
.DLL命令 MessageBox, 整數(shù)型, "user32.dll", "MessageBoxA"
  .參數(shù) hwnd, 整數(shù)型
  .參數(shù) lpText, 文本型
  .參數(shù) lpCaption, 文本型
  .參數(shù) wType, 整數(shù)型
.DLL命令 ShellExecuteA, 整數(shù)型, , "ShellExecuteA", , 執(zhí)行命令
  .參數(shù) hwnd, 整數(shù)型
  .參數(shù) lpOperation, 文本型
  .參數(shù) lpFile, 文本型
  .參數(shù) lpParameters, 文本型
  .參數(shù) lpDirectory, 文本型
  .參數(shù) nShowCmd, 短整數(shù)型

.版本 2
.程序集 常用功能程序集
.子程序 執(zhí)行, , 公開(kāi), 執(zhí)行指定命令
.參數(shù) Bin_命令參數(shù), 文本型, , 欲執(zhí)行的命令,可以是任意文件名或URL地址
ShellExecuteA (0, “open”, Bin_命令參數(shù), “”, “”, 1)
.子程序 創(chuàng)建線程, 整數(shù)型, 公開(kāi), 返回線程句柄
.參數(shù) 欲執(zhí)行的子程序, 子程序指針, , 本參數(shù)提供創(chuàng)建線程時(shí)欲啟動(dòng)的子程序，根據(jù)是否需要傳遞參數(shù)數(shù)據(jù)，該子程序必須沒(méi)有或具有一個(gè)整數(shù)型參數(shù)，否則將出錯(cuò)。
.參數(shù) 傳遞參數(shù), 整數(shù)型, 可空, 本參數(shù)提供線程被啟動(dòng)時(shí)傳遞到欲啟動(dòng)子程序的整數(shù)數(shù)據(jù)。如果本參數(shù)未被省略，此時(shí)被啟動(dòng)子程序必須接收一個(gè)整數(shù)型參數(shù)，否則將出錯(cuò)。
.局部變量 BinID, 整數(shù)型
.局部變量 lpThreadId, 整數(shù)型
BinID ＝ CreateThread (0, 0, 欲執(zhí)行的子程序, 傳遞參數(shù), 0, lpThreadId)
返回 (BinID)
.子程序 銷(xiāo)毀線程, 邏輯型, 公開(kāi)
.參數(shù) 線程句柄, 整數(shù)型, , 創(chuàng)建線程返回的句柄
.如果真 (TerminateThread (線程句柄, 0) ＝ 0)
  返回 (假)
.如果真結(jié)束
返回 (真)
.子程序 初始化COM庫(kù), 整數(shù)型, , 在多線程的程序里創(chuàng)建COM對(duì)象前先初始化，一個(gè)線程只能調(diào)用一次
返回 (CoInitialize (0))
.子程序 取消COM庫(kù)初始化, , , 取消COM庫(kù)的初始化
CoUninitialize ()
.子程序 信息框, 整數(shù)型, 公開(kāi)
.參數(shù) 提示信息, 文本型, , 提示信息只能為文本、數(shù)值、邏輯值或日期時(shí)間。如果提示信息為文本且包含多行，可在各行之間用回車(chē)符 (即“字符 (13)”)、換行符 (即“字符 (10)”) 或回車(chē)換行符的組合 (即：“字符 (13) + 字符 (10)”) 來(lái)分隔。
.參數(shù) 按鈕, 整數(shù)型, 可空, 0、#確認(rèn)鈕； 1、#確認(rèn)取消鈕； 2、#放棄重試忽略鈕； 3、#取消是否鈕；   4、#是否鈕； 5、#重試取消鈕； 16、#錯(cuò)誤圖標(biāo)； 32、#詢(xún)問(wèn)圖標(biāo)； 48、#警告圖標(biāo)； 64、#信息圖標(biāo) ；65536、#位于前臺(tái)； 524288、#文本右對(duì)齊
.參數(shù) 窗口標(biāo)題, 文本型, 可空, 參數(shù)值指定顯示在對(duì)話(huà)框標(biāo)題欄中的文本。如果省略，默認(rèn)為文本“信息：”
.參數(shù) 父窗口, 窗口, 可空, 彈出信息框的父窗口，可空
.局部變量 sHwnd, 整數(shù)型
.如果真 (是否為空 (窗口標(biāo)題))
  窗口標(biāo)題 ＝ “信息：”
.如果真結(jié)束
.如果真 (是否為空 (父窗口) ＝ 假)
  sHwnd ＝ 父窗口.取窗口句柄 ()
.如果真結(jié)束
返回 (MessageBox (sHwnd, 提示信息, 窗口標(biāo)題, 按鈕))

.版本 2
.支持庫(kù) iext
.程序集 窗口程序集1
.程序集變量 強(qiáng)行停止, 邏輯型
.程序集變量 線程句柄, 整數(shù)型
.子程序 __啟動(dòng)窗口_創(chuàng)建完畢
編輯框1.內(nèi)容 ＝ 取運(yùn)行目錄 () ＋ “\test.doc”
_生成字典按鈕_被單擊 ()
.子程序 _開(kāi)始破解按鈕_被單擊
.局部變量 i, 整數(shù)型
.如果真 (文件是否存在 (編輯框1.內(nèi)容) ＝ 假)
  信息框 (“請(qǐng)選擇要破解密碼的WORD文件”, 0, )
  返回 ()
.如果真結(jié)束
連續(xù)賦值 (真, 開(kāi)始破解按鈕.禁止, 生成字典按鈕.禁止, 編輯框1.禁止)
停止破解按鈕.禁止 ＝ 假
強(qiáng)行停止 ＝ 假
線程句柄 ＝ 創(chuàng)建線程 (&密碼破解線程)
.子程序 _停止破解按鈕_被單擊
停止破解按鈕.禁止 ＝ 真
強(qiáng)行停止 ＝ 真
處理事件 ()
延時(shí) (1000)
處理事件 ()
_時(shí)鐘1_周期事件 ()
.子程序 _生成字典按鈕_被單擊
.局部變量 n
.局部變量 i
編輯框2.內(nèi)容 ＝ “”
.計(jì)次循環(huán)首 (26, i)
  編輯框2.加入文本 (取文本左邊 (“abcdefghijklmnopqrstuvwxyz”, i) ＋ #換行符)
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)首 (26, i)
  編輯框2.加入文本 (取重復(fù)文本 (3, 取文本中間 (“abcdefghijklmnopqrstuvwxyz”, i, 1)) ＋ #換行符)
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)首 (26, i)
  編輯框2.加入文本 (取重復(fù)文本 (4, 取文本中間 (“abcdefghijklmnopqrstuvwxyz”, i, 1)) ＋ #換行符)
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)首 (26, i)
  編輯框2.加入文本 (取重復(fù)文本 (5, 取文本中間 (“abcdefghijklmnopqrstuvwxyz”, i, 1)) ＋ #換行符)
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)首 (26, i)
  編輯框2.加入文本 (取重復(fù)文本 (6, 取文本中間 (“abcdefghijklmnopqrstuvwxyz”, i, 1)) ＋ #換行符)
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)首 (9, n)
  .計(jì)次循環(huán)首 (10, i)
    編輯框2.加入文本 (取文本左邊 (到文本 (n) ＋ “123456789”, i) ＋ #換行符)
  .計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)首 (9, n)
  .計(jì)次循環(huán)首 (10, i)
    編輯框2.加入文本 (取文本左邊 (到文本 (n) ＋ “23456789”, i) ＋ #換行符)
  .計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)首 (9, n)
  .計(jì)次循環(huán)首 (9, i)
    編輯框2.加入文本 (取重復(fù)文本 (n, 到文本 (i)) ＋ #換行符)
  .計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)尾 ()
.子程序 _時(shí)鐘1_周期事件
時(shí)鐘1.時(shí)鐘周期 ＝ 0
銷(xiāo)毀線程 (線程句柄)
連續(xù)賦值 (假, 開(kāi)始破解按鈕.禁止, 生成字典按鈕.禁止, 編輯框1.禁止)
停止破解按鈕.禁止 ＝ 真
線程句柄 ＝ 0
.子程序 __啟動(dòng)窗口_可否被關(guān)閉, 邏輯型
.子程序 密碼破解線程
.參數(shù) 線程序號(hào), 整數(shù)型
.局部變量 oWord, 對(duì)象, , , Word.Application
.局部變量 oDoc, 對(duì)象, , , Word.Documents
.局部變量 NewDoc, 對(duì)象, , , Word.Documents
.局部變量 文件名, 文本型, , , Word文件路徑
.局部變量 文件密碼, 文本型, , , Excel文件密碼
.局部變量 密碼字典, 文本型, , "0"
.局部變量 i
.局部變量 n
文件名 ＝ 刪首尾空 (編輯框1.內(nèi)容)
密碼字典 ＝ 分割文本 (編輯框2.內(nèi)容, #換行符, )
初始化COM庫(kù) ()
oWord.創(chuàng)建 (“Word.Application”, )
oWord.寫(xiě)屬性 (“Visible”, 假)
oDoc ＝ oWord.讀對(duì)象型屬性 (“Documents”, )
n ＝ 取數(shù)組成員數(shù) (密碼字典)
.計(jì)次循環(huán)首 (n, i)
  .如果真 (強(qiáng)行停止)
    跳出循環(huán) ()
  .如果真結(jié)束
  文件密碼 ＝ 密碼字典 [i]
  進(jìn)度條1.位置 ＝ i ÷ n × 100
  透明標(biāo)簽1.標(biāo)題 ＝ 文件密碼
  NewDoc ＝ oDoc.對(duì)象型方法 (“Open”, 文件名, , , , 文件密碼)
  .如果真 (NewDoc.是否為空 () ＝ 假)
    信息框 (“當(dāng)前文件密碼為：” ＋ 文件密碼, 64, “破解成功”, _啟動(dòng)窗口)
    強(qiáng)行停止 ＝ 真
    跳出循環(huán) ()
  .如果真結(jié)束
  NewDoc.方法 (“close”, )
  ' NewDoc.查看 ()
.計(jì)次循環(huán)尾 ()
NewDoc.清除 ()
oDoc.清除 ()
oWord.方法 (“quit”, )
oWord.清除 ()
取消COM庫(kù)初始化 ()
時(shí)鐘1.時(shí)鐘周期 ＝ 500