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 |
运行结果：
总结
以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对服务器之家的支持。如果你想了解更多相关内容请查看下面相关链接
