国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > 易語言 > 正文

易語言word密碼暴力破解器簡易版

2024-07-21 23:02:25
字體:
來源:轉載
供稿:網(wǎng)友

DLL代碼

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

word密碼暴力破解代碼

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

運行結果:

易語言,word,密碼,破解

總結

以上就是這篇文章的全部內(nèi)容了,希望本文的內(nèi)容對大家的學習或者工作具有一定的參考學習價值,謝謝大家對VeVb武林網(wǎng)的支持。


注:相關教程知識閱讀請移步到易語言教程頻道。
發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 嘉义市| 托克逊县| 英德市| 新蔡县| 阿鲁科尔沁旗| 电白县| 洛阳市| 天台县| 运城市| 东阳市| 嘉定区| 瓦房店市| 三原县| 凌海市| 宣汉县| 鞍山市| 瑞昌市| 绩溪县| 台安县| 福贡县| 胶州市| 颍上县| 易门县| 蓝田县| 定日县| 萨迦县| 广州市| 拜城县| 五华县| 巴彦淖尔市| 潞西市| 光泽县| 启东市| 上饶市| 乌拉特后旗| 弥渡县| 綦江县| 嘉鱼县| 汝阳县| 河北区| 潼南县|