服务器之家

服务器之家 > 正文

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

时间:2022-01-25 15:53     来源/作者:易语言源码教程

DLL代码

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
.版本 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, 短整数型

新程序集代码

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
.版本 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密码暴力破解代码

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
.版本 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密码暴力破解器简易版

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对服务器之家的支持。如果你想了解更多相关内容请查看下面相关链接

标签:

相关文章

热门资讯

蜘蛛侠3英雄无归3正片免费播放 蜘蛛侠3在线观看免费高清完整
蜘蛛侠3英雄无归3正片免费播放 蜘蛛侠3在线观看免费高清完整 2021-08-24
yue是什么意思 网络流行语yue了是什么梗
yue是什么意思 网络流行语yue了是什么梗 2020-10-11
背刺什么意思 网络词语背刺是什么梗
背刺什么意思 网络词语背刺是什么梗 2020-05-22
2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全
2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全 2019-12-26
2021年耽改剧名单 2021要播出的59部耽改剧列表
2021年耽改剧名单 2021要播出的59部耽改剧列表 2021-03-05
返回顶部