今天小編就爲大家分享一篇關於易語言word密碼暴力破解器簡易版，小編覺得內容挺不錯的，現在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧
DLL代碼
.版本 2 .DLL命令 CreateThread, 整數型, , "CreateThread", , CreateThread .參數 lpThreadAttributes, 整數型 .參數 dwStackSize, 整數型 .參數 lpStartAddress, 子程序指針 .參數 lpParameter, 整數型 .參數 dwCreationFlags, 整數型 .參數 lpThreadId, 整數型, 傳址 .DLL命令 TerminateThread, 整數型, , "TerminateThread", , TerminateThread .參數 hThread, 整數型 .參數 dwExitCode, 整數型 .DLL命令 CoInitialize, 整數型, "ole32.dll" .參數 pvReserved, 整數型 .DLL命令 CoUninitialize, , "ole32.dll" .DLL命令 MessageBox, 整數型, "user32.dll", "MessageBoxA" .參數 hwnd, 整數型 .參數 lpText, 文本型 .參數 lpCaption, 文本型 .參數 wType, 整數型 .DLL命令 ShellExecuteA, 整數型, , "ShellExecuteA", , 執行命令 .參數 hwnd, 整數型 .參數 lpOperation, 文本型 .參數 lpFile, 文本型 .參數 lpParameters, 文本型 .參數 lpDirectory, 文本型 .參數 nShowCmd, 短整數型
新程序集代碼
.版本 2 .程序集 常用功能程序集 .子程序 執行, , 公開, 執行指定命令 .參數 Bin_命令參數, 文本型, , 欲執行的命令,可以是任意文件名或URL地址 ShellExecuteA (0, “open”, Bin_命令參數, “”, “”, 1) .子程序 創建線程, 整數型, 公開, 返回線程句柄 .參數 欲執行的子程序, 子程序指針, , 本參數提供創建線程時欲啓動的子程序，根據是否需要傳遞參數數據，該子程序必須沒有或具有一個整數型參數，否則將出錯。 .參數 傳遞參數, 整數型, 可空, 本參數提供線程被啓動時傳遞到欲啓動子程序的整數數據。如果本參數未被省略，此時被啓動子程序必須接收一個整數型參數，否則將出錯。 .局部變量 BinID, 整數型 .局部變量 lpThreadId, 整數型 BinID ＝ CreateThread (0, 0, 欲執行的子程序, 傳遞參數, 0, lpThreadId) 返回 (BinID) .子程序 銷燬線程, 邏輯型, 公開 .參數 線程句柄, 整數型, , 創建線程返回的句柄 .如果真 (TerminateThread (線程句柄, 0) ＝ 0) 返回 (假) .如果真結束 返回 (真) .子程序 初始化COM庫, 整數型, , 在多線程的程序裏創建COM對象前先初始化，一個線程只能調用一次 返回 (CoInitialize (0)) .子程序 取消COM庫初始化, , , 取消COM庫的初始化 CoUninitialize () .子程序 信息框, 整數型, 公開 .參數 提示信息, 文本型, , 提示信息只能爲文本、數值、邏輯值或日期時間。如果提示信息爲文本且包含多行，可在各行之間用回車符 (即“字符 (13)”)、換行符 (即“字符 (10)”) 或回車換行符的組合 (即：“字符 (13) + 字符 (10)”) 來分隔。 .參數 按鈕, 整數型, 可空, 0、#確認鈕； 1、#確認取消鈕； 2、#放棄重試忽略鈕； 3、#取消是否鈕； 4、#是否鈕； 5、#重試取消鈕； 16、#錯誤圖標； 32、#詢問圖標； 48、#警告圖標； 64、#信息圖標 ；65536、#位於前臺； 524288、#文本右對齊 .參數 窗口標題, 文本型, 可空, 參數值指定顯示在對話框標題欄中的文本。如果省略，默認爲文本“信息：” .參數 父窗口, 窗口, 可空, 彈出信息框的父窗口，可空 .局部變量 sHwnd, 整數型 .如果真 (是否爲空 (窗口標題)) 窗口標題 ＝ “信息：” .如果真結束 .如果真 (是否爲空 (父窗口) ＝ 假) sHwnd ＝ 父窗口.取窗口句柄 () .如果真結束 返回 (MessageBox (sHwnd, 提示信息, 窗口標題, 按鈕))
word密碼暴力破解代碼
.版本 2
.支持庫 iext
.程序集 窗口程序集1
.程序集變量 強行停止, 邏輯型
.程序集變量 線程句柄, 整數型
.子程序 __啓動窗口_創建完畢
編輯框1.內容 ＝ 取運行目錄 () ＋ “\test.doc”
_生成字典按鈕_被單擊 ()
.子程序 _開始破解按鈕_被單擊
.局部變量 i, 整數型
.如果真 (文件是否存在 (編輯框1.內容) ＝ 假)
信息框 (“請選擇要破解密碼的WORD文件”, 0, )
返回 ()
.如果真結束
連續賦值 (真, 開始破解按鈕.禁止, 生成字典按鈕.禁止, 編輯框1.禁止)
停止破解按鈕.禁止 ＝ 假
強行停止 ＝ 假
線程句柄 ＝ 創建線程 (&密碼破解線程)
.子程序 _停止破解按鈕_被單擊
停止破解按鈕.禁止 ＝ 真
強行停止 ＝ 真
處理事件 ()
延時 (1000)
處理事件 ()
_時鐘1_週期事件 ()
.子程序 _生成字典按鈕_被單擊
.局部變量 n
.局部變量 i
編輯框2.內容 ＝ “”
.計次循環首 (26, i)
編輯框2.加入文本 (取文本左邊 (“abcdefghijklmnopqrstuvwxyz”, i) ＋ #換行符)
.計次循環尾 ()
.計次循環首 (26, i)
編輯框2.加入文本 (取重複文本 (3, 取文本中間 (“abcdefghijklmnopqrstuvwxyz”, i, 1)) ＋ #換行符)
.計次循環尾 ()
.計次循環首 (26, i)
編輯框2.加入文本 (取重複文本 (4, 取文本中間 (“abcdefghijklmnopqrstuvwxyz”, i, 1)) ＋ #換行符)
.計次循環尾 ()
.計次循環首 (26, i)
編輯框2.加入文本 (取重複文本 (5, 取文本中間 (“abcdefghijklmnopqrstuvwxyz”, i, 1)) ＋ #換行符)
.計次循環尾 ()
.計次循環首 (26, i)
編輯框2.加入文本 (取重複文本 (6, 取文本中間 (“abcdefghijklmnopqrstuvwxyz”, i, 1)) ＋ #換行符)
.計次循環尾 ()
.計次循環首 (9, n)
.計次循環首 (10, i)
編輯框2.加入文本 (取文本左邊 (到文本 (n) ＋ “123456789”, i) ＋ #換行符)
.計次循環尾 ()
.計次循環尾 ()
.計次循環首 (9, n)
.計次循環首 (10, i)
編輯框2.加入文本 (取文本左邊 (到文本 (n) ＋ “23456789”, i) ＋ #換行符)
.計次循環尾 ()
.計次循環尾 ()
.計次循環首 (9, n)
.計次循環首 (9, i)
編輯框2.加入文本 (取重複文本 (n, 到文本 (i)) ＋ #換行符)
.計次循環尾 ()
.計次循環尾 ()
.子程序 _時鐘1_週期事件
時鐘1.時鐘週期 ＝ 0
銷燬線程 (線程句柄)
連續賦值 (假, 開始破解按鈕.禁止, 生成字典按鈕.禁止, 編輯框1.禁止)
停止破解按鈕.禁止 ＝ 真
線程句柄 ＝ 0
.子程序 __啓動窗口_可否被關閉, 邏輯型
.子程序 密碼破解線程
.參數 線程序號, 整數型
.局部變量 oWord, 對象, , , Word.Application
.局部變量 oDoc, 對象, , , Word.Documents
.局部變量 NewDoc, 對象, , , Word.Documents
.局部變量 文件名, 文本型, , , Word文件路徑
.局部變量 文件密碼, 文本型, , , Excel文件密碼
.局部變量 密碼字典, 文本型, , "0"
.局部變量 i
.局部變量 n
文件名 ＝ 刪首尾空 (編輯框1.內容)
密碼字典 ＝ 分割文本 (編輯框2.內容, #換行符, )
初始化COM庫 ()
oWord.創建 (“Word.Application”, )
oWord.寫屬性 (“Visible”, 假)
oDoc ＝ oWord.讀對象型屬性 (“Documents”, )
n ＝ 取數組成員數 (密碼字典)
.計次循環首 (n, i)
.如果真 (強行停止)
跳出循環 ()
.如果真結束
文件密碼 ＝ 密碼字典 [i]
進度條1.位置 ＝ i ÷ n × 100
透明標籤1.標題 ＝ 文件密碼
NewDoc ＝ oDoc.對象型方法 (“Open”, 文件名, , , , 文件密碼)
.如果真 (NewDoc.是否爲空 () ＝ 假)
信息框 (“當前文件密碼爲：” ＋ 文件密碼, 64, “破解成功”, _啓動窗口)
強行停止 ＝ 真
跳出循環 ()
.如果真結束
NewDoc.方法 (“close”, )
' NewDoc.查看 ()
.計次循環尾 ()
NewDoc.清除 ()
oDoc.清除 ()
oWord.方法 (“quit”, )
oWord.清除 ()
取消COM庫初始化 ()
時鐘1.時鐘週期 ＝ 500
運行結果：
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對神馬文庫的支持。如果你想了解更多相關內容請查看下面相關鏈接