易语言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