首页 > 编程 > 易语言 > 正文

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

2024-07-21 23:02:25
字体:
来源:转载
供稿:网友

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

运行结果:

易语言,word,密码,破解

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对VeVb武林网的支持。


注:相关教程知识阅读请移步到易语言教程频道。
发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表