易语言word密码暴力破解器简易版

.版本 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, 提示信息, 窗口标题, 按钮))

.版本 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

相关阅读