rar密碼破解源碼
此功能需要加載精易模塊5.6
|
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
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
|
.版本 2.支持庫 xplib.程序集 窗口程序集_啟動窗口.程序集變量 程序集_數組1, 文本型, , "0".程序集變量 程序集_數組2, 文本型, , "0".程序集變量 程序集_數組3, 文本型, , "0".程序集變量 程序集_數組4, 文本型, , "0".程序集變量 程序集_數組5, 文本型, , "0".程序集變量 程序集_數組_文本匯總, 文本型, , "0".程序集變量 程序集_數組_標點匯總, 文本型, , "0".程序集變量 程序集_破解字典, 整數型.子程序 __啟動窗口_創建完畢XP風格 (1).子程序 _按鈕_打開_被單擊通用對話框.初始目錄 ＝ 取當前目錄 ()通用對話框.打開 ()編輯框_文件路徑.內容 ＝ 通用對話框.文件名.子程序 _選擇框_小寫字母_被單擊.如果真 (選擇框_小寫字母.選中 ＝ 真) 程序集_數組1 ＝ { “a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l”, “m”, “n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “x”, “y”, “z” }.如果真結束.如果真 (選擇框_小寫字母.選中 ＝ 假) 清除數組 (程序集_數組1).如果真結束.子程序 _選擇框_大寫字母_被單擊.如果真 (選擇框_大寫字母.選中 ＝ 真) 程序集_數組2 ＝ { “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z” }.如果真結束.如果真 (選擇框_大寫字母.選中 ＝ 假) 清除數組 (程序集_數組2).如果真結束.子程序 _選擇框_數字_被單擊.如果真 (選擇框_數字.選中 ＝ 真) 程序集_數組3 ＝ { “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9” }.如果真結束.如果真 (選擇框_數字.選中 ＝ 假) 清除數組 (程序集_數組3).如果真結束.子程序 _選擇框_英文標點_被單擊.如果真 (選擇框_英文標點.選中 ＝ 真) 程序集_數組4 ＝ { “`”, “~”, “!”, “@”, “#”, “$”, “%”, “^”, “&”, “*”, “(”, “)”, “-”, “_”, “=”, “+”, “\”, “|”, “[”, “]”, “{”, “}”, “;”, “:”, “'”, #左引號, #右引號, “,”, “<”, “>”, “.”, “/”, “?” }.如果真結束.如果真 (選擇框_英文標點.選中 ＝ 假) 清除數組 (程序集_數組4).如果真結束.子程序 _選擇框_中文標點_被單擊.如果真 (選擇框_中文標點.選中 ＝ 真) 程序集_數組5 ＝ { “·”, “！”, “￥”, “……”, “（”, “）”, “——”, “、”, “【”, “】”, “；”, “：”, “‘”, “，”, “《”, “》”, “。”, “、”, “？” }.如果真結束.如果真 (選擇框_中文標點.選中 ＝ 假) 清除數組 (程序集_數組5).如果真結束.子程序 _按鈕_開始_被單擊.局部變量 局部_文件后綴名, 文本型.如果 (選擇框_小寫字母.選中 ＝ 假 且 選擇框_大寫字母.選中 ＝ 假 且 選擇框_數字.選中 ＝ 假) 程序集_破解字典 ＝ 0.否則 程序集_破解字典 ＝ 1.如果結束局部_文件后綴名 ＝ 取文本右邊 (編輯框_文件路徑.內容, 3).判斷開始 (編輯框_文件路徑.內容 ＝ “”) 信息框 (“請打開一個RAR文件！”, 0, “提醒”, ) 按鈕_打開.獲取焦點 () 返回 ().判斷 (程序集_破解字典 ＝ 0) 信息框 (“請選擇一個密碼字典選項！”, 0, “提醒”, ) 返回 ().判斷 (局部_文件后綴名 ≠ “rar”) 信息框 (“請選擇一個后綴名是RAR文件！”, 0, “錯誤”, ) 按鈕_打開.獲取焦點 () 返回 ().判斷 (到數值 (編輯框_最小長度.內容) ＞ 到數值 (編輯框_最大長度.內容)) 信息框 (“密碼最大長度不能小于最小長度！”, 0, “錯誤”, ) 編輯框_最大長度.獲取焦點 () 返回 ().默認.判斷結束清除數組 (程序集_數組_文本匯總)清除數組 (程序集_數組_標點匯總).如果真 (取數組成員數 (程序集_數組1) ＞ 0) 加入成員 (程序集_數組_文本匯總, 程序集_數組1).如果真結束.如果真 (取數組成員數 (程序集_數組2) ＞ 0) 加入成員 (程序集_數組_文本匯總, 程序集_數組2).如果真結束.如果真 (取數組成員數 (程序集_數組3) ＞ 0) 加入成員 (程序集_數組_文本匯總, 程序集_數組3).如果真結束.如果真 (取數組成員數 (程序集_數組4) ＞ 0) 加入成員 (程序集_數組_標點匯總, 程序集_數組4).如果真結束.如果真 (取數組成員數 (程序集_數組5) ＞ 0) 加入成員 (程序集_數組_標點匯總, 程序集_數組5).如果真結束窮舉密碼 ().子程序 窮舉密碼.局部變量 局部_文本, 文本型.局部變量 局部_密碼, 文本型.局部變量 局部_取密碼數組, 整數型, , "0".局部變量 局部_密碼位數, 整數型.局部變量 局部_循環位置, 整數型.局部變量 局部_跳出循環, 整數型.局部變量 局部_結果, 邏輯型.局部變量 a, 整數型.局部變量 b, 整數型.局部變量 c, 整數型局部_密碼位數 ＝ 到數值 (編輯框_最小長度.內容) － 1.變量循環首 (到數值 (編輯框_最小長度.內容), 到數值 (編輯框_最大長度.內容), 1, a) 局部_跳出循環 ＝ 0 局部_密碼位數 ＝ 局部_密碼位數 ＋ 1 清除數組 (局部_取密碼數組) .計次循環首 (局部_密碼位數, ) 加入成員 (局部_取密碼數組, 1) .計次循環尾 () 局部_循環位置 ＝ 取數組成員數 (局部_取密碼數組) .循環判斷首 () 局部_文本 ＝ “” .如果真 (取數組成員數 (局部_取密碼數組) ＞ 1) .計次循環首 (取數組成員數 (局部_取密碼數組), c) 局部_文本 ＝ 局部_文本 ＋ 程序集_數組_文本匯總 [局部_取密碼數組 [c]] .計次循環尾 () .如果 (取數組成員數 (程序集_數組_標點匯總) ＞ 0) .計次循環首 (取數組成員數 (程序集_數組_標點匯總), b) .計次循環首 (取文本長度 (局部_文本), c) 局部_密碼 ＝ 取文本左邊 (局部_文本, c) ＋ 程序集_數組_標點匯總 [b] ＋ 取文本右邊 (局部_文本, 取文本長度 (局部_文本) － c) 局部_結果 ＝ 嘗試密碼 (局部_密碼) .如果真 (局部_結果 ＝ 真) 返回 () .如果真結束 處理事件 () .計次循環尾 () .計次循環尾 () .否則 局部_密碼 ＝ 局部_文本 .如果結束 局部_結果 ＝ 嘗試密碼 (局部_密碼) .如果真 (局部_結果 ＝ 真) 返回 () .如果真結束 處理事件 () .如果真結束 .如果真 (取數組成員數 (局部_取密碼數組) ＝ 1) .計次循環首 (取數組成員數 (程序集_數組_文本匯總), b) 局部_文本 ＝ 程序集_數組_文本匯總 [b] .如果 (取數組成員數 (程序集_數組_標點匯總) ＞ 0) .計次循環首 (取數組成員數 (程序集_數組_標點匯總), b) 局部_密碼 ＝ 局部_文本 ＋ 程序集_數組_標點匯總 [b] 局部_結果 ＝ 嘗試密碼 (局部_密碼) .如果真 (局部_結果 ＝ 真) 返回 () .如果真結束 處理事件 () .計次循環尾 () .否則 局部_密碼 ＝ 局部_文本 局部_結果 ＝ 嘗試密碼 (局部_密碼) .如果真 (局部_結果 ＝ 真) 返回 () .如果真結束 處理事件 () .如果結束 .計次循環尾 () .如果真結束 .如果 (取數組成員數 (局部_取密碼數組) ＞ 1) .如果 (局部_取密碼數組 [局部_循環位置] ＋ 1 ＞ 取數組成員數 (程序集_數組_文本匯總)) .判斷循環首 (真) 局部_取密碼數組 [局部_循環位置] ＝ 1 局部_循環位置 ＝ 局部_循環位置 － 1 .如果真 (局部_循環位置 ＜ 1) 局部_跳出循環 ＝ 1 跳出循環 () .如果真結束 .如果 (局部_取密碼數組 [局部_循環位置] ＋ 1 ＞ 取數組成員數 (程序集_數組_文本匯總)) 到循環尾 () .否則 局部_取密碼數組 [局部_循環位置] ＝ 局部_取密碼數組 [局部_循環位置] ＋ 1 跳出循環 () .如果結束 .判斷循環尾 () 局部_循環位置 ＝ 取數組成員數 (局部_取密碼數組) .否則 局部_取密碼數組 [局部_循環位置] ＝ 局部_取密碼數組 [局部_循環位置] ＋ 1 .如果結束 .否則 跳出循環 () .如果結束 .如果真 (局部_跳出循環 ＝ 1) 跳出循環 () .如果真結束 .循環判斷尾 (真).變量循環尾 ()標簽_顯示.標題 ＝ “字典跑完啦，沒有找到正確的密碼！”返回 ().子程序 嘗試密碼, 邏輯型.參數 參數_窮舉密碼, 文本型.局部變量 局部_密碼, 文本型.局部變量 局部_文本, 文本型.局部變量 a, 整數型.局部變量 b, 整數型局部_密碼 ＝ 參數_窮舉密碼.如果真 (編輯框_自定義開頭.內容 ≠ “”) 局部_密碼 ＝ 刪首尾空 (編輯框_自定義開頭.內容) ＋ 局部_密碼.如果真結束.如果真 (編輯框_自定義結尾.內容 ≠ “”) 局部_密碼 ＝ 局部_密碼 ＋ 刪首尾空 (編輯框_自定義結尾.內容).如果真結束.如果 (RAR_解壓文件 (編輯框_文件路徑.內容, 局部_密碼, 取當前目錄 () ＋ “\”) ＝ 真) 標簽_顯示.標題 ＝ “” 標簽_顯示.標題 ＝ “文件密碼是:” ＋ 局部_密碼 返回 (真).否則 標簽_顯示.標題 ＝ “” 標簽_顯示.標題 ＝ “正在嘗試密碼:” ＋ 局部_密碼 返回 (假).如果結束.子程序 _按鈕_退出_被單擊結束 () |
運行結果：
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對服務器之家的支持。如果你想了解更多相關內容請查看下面相關鏈接
