監控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
|
.版本 2.支持庫 EThread.支持庫 eAPI.支持庫 xplib.支持庫 edroptarget.支持庫 pop3.支持庫 iext.程序集 窗口程序集1.程序集變量 服務器, 文本型.程序集變量 帳號, 文本型.程序集變量 密碼, 文本型.子程序 _拖放對象1_得到文件.參數 接收到的文件路徑, 文本型.局部變量 釣魚軟件, 字節集.局部變量 郵箱位置, 整數型.局部變量 空白文本, 整數型.局部變量 跳過, 整數型.局部變量 郵箱, 字節集, , "0".局部變量 擴展名, 文本型.局部變量 服務器驗證, 文本型, , "0"擴展名 ＝ 取文本右邊 (接收到的文件路徑, 3)擴展名 ＝ 到小寫 (擴展名).如果 (擴展名 ＝ “exe”) 釣魚軟件 ＝ 讀入文件 (接收到的文件路徑) 郵箱位置 ＝ 尋找字節集 (釣魚軟件, 到字節集 (“smtp.”), ) 跳過 ＝ 倒找字節集 (釣魚軟件, { 0 }, 郵箱位置) 跳過 ＝ 倒找字節集 (釣魚軟件, { 0 }, 跳過 － 1) 跳過 ＝ 倒找字節集 (釣魚軟件, { 0 }, 跳過 － 1) 空白文本 ＝ 尋找字節集 (釣魚軟件, { 0 }, 郵箱位置) 釣魚軟件 ＝ 取字節集中間 (釣魚軟件, 跳過, 空白文本 － 跳過) 郵箱 ＝ 分割字節集 (釣魚軟件, { 0 }, ) 刪除成員 (郵箱, 1, 1) 重定義數組 (郵箱, 真, 取數組成員數 (郵箱)) .如果真 (取數組成員數 (郵箱) ＝ 3) 報表.加入文本 (“服務器:” ＋ 到文本 (郵箱 [3]) ＋ “ 帳號:” ＋ 到文本 (郵箱 [2]) ＋ “ 密碼:” ＋ 到文本 (郵箱 [1]) ＋ #換行符 ＋ #換行符) 服務器驗證 ＝ 分割文本 (到文本 (郵箱 [3]), “.”, ) .判斷開始 (服務器驗證 [2] ＝ “QQ”) 服務器 ＝ “pop.qq.com” .默認 .判斷結束 .判斷開始 (服務器驗證 [2] ＝ “163”) 服務器 ＝ “pop.163.com” .默認 .判斷結束 帳號 ＝ 到文本 (郵箱 [2]) 密碼 ＝ 到文本 (郵箱 [1]) 啟動線程 (&獲取信息, , ) .如果真結束 釣魚軟件 ＝ { } 清除數組 (郵箱).否則 .如果 (擴展名 ＝ “lnk”) 接收到的文件路徑 ＝ 取快捷方式目標 (接收到的文件路徑, , , , , , , ) 釣魚軟件 ＝ 讀入文件 (接收到的文件路徑) 郵箱位置 ＝ 尋找字節集 (釣魚軟件, 到字節集 (“smtp.”), ) 跳過 ＝ 倒找字節集 (釣魚軟件, { 0 }, 郵箱位置) 跳過 ＝ 倒找字節集 (釣魚軟件, { 0 }, 跳過 － 1) 跳過 ＝ 倒找字節集 (釣魚軟件, { 0 }, 跳過 － 1) 空白文本 ＝ 尋找字節集 (釣魚軟件, { 0 }, 郵箱位置) 釣魚軟件 ＝ 取字節集中間 (釣魚軟件, 跳過, 空白文本 － 跳過) 郵箱 ＝ 分割字節集 (釣魚軟件, { 0 }, ) 刪除成員 (郵箱, 1, 1) 重定義數組 (郵箱, 真, 取數組成員數 (郵箱)) .如果真 (取數組成員數 (郵箱) ＝ 3) 報表.加入文本 (“服務器:” ＋ 到文本 (郵箱 [3]) ＋ “ 帳號:” ＋ 到文本 (郵箱 [2]) ＋ “ 密碼:” ＋ 到文本 (郵箱 [1]) ＋ #換行符 ＋ #換行符) 服務器驗證 ＝ 分割文本 (到文本 (郵箱 [3]), “.”, ) .判斷開始 (服務器驗證 [2] ＝ “QQ”) 服務器 ＝ “pop.qq.com” .默認 .判斷結束 .判斷開始 (服務器驗證 [2] ＝ “163”) 服務器 ＝ “pop.163.com” .默認 .判斷結束 帳號 ＝ 到文本 (郵箱 [2]) 密碼 ＝ 到文本 (郵箱 [1]) 啟動線程 (&獲取信息, , ) .如果真結束 釣魚軟件 ＝ { } 清除數組 (郵箱) .否則 報表.加入文本 (“非可執行文件無法獲取” ＋ #換行符) .如果結束.如果結束.子程序 __啟動窗口_創建完畢XP風格 (1)拖放對象1.注冊拖放控件 (取窗口句柄 ()).子程序 獲取信息.局部變量 郵件個數, 整數型.局部變量 郵件大小, 整數型.局部變量 n1, 整數型.局部變量 郵件信息, 郵件信息超級列表框1.全部刪除 ().如果 (連接收信服務器 (服務器, 110, 帳號, 密碼, 30000, 3) ＝ 真) 獲取郵件信息 (郵件個數, 郵件大小) .計次循環首 (郵件個數, n1) 郵件信息 ＝ 接收郵件 (n1) 超級列表框1.插入表項 (n1 － 1, 到文本 (n1), , , , ) 超級列表框1.置標題 (n1 － 1, 1, 郵件信息.取主題 ()) 超級列表框1.置標題 (n1 － 1, 2, 郵件信息.取文本內容 ()) 超級列表框1.置標題 (n1 － 1, 3, 到文本 (郵件信息.取日期 ())) .計次循環尾 ().否則.如果結束.子程序 _超級列表框1_鼠標右鍵被按下, 邏輯型.參數 橫向位置, 整數型.參數 縱向位置, 整數型.參數 功能鍵狀態, 整數型彈出菜單 (菜單, , ).子程序 _查看詳情_被選擇報表.加入文本 (“標題:” ＋ 超級列表框1.取標題 (超級列表框1.現行選中項, 1) ＋ #換行符 ＋ 超級列表框1.取標題 (超級列表框1.現行選中項, 2) ＋ #換行符 ＋ 超級列表框1.取標題 (超級列表框1.現行選中項, 3) ＋ #換行符).子程序 _刪除郵件_被選擇.判斷開始 (刪除郵件 (超級列表框1.現行選中項 ＋ 1) ＝ 真) 超級列表框1.刪除表項 (超級列表框1.現行選中項).默認.判斷結束 |
運行結果：
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對服務器之家的支持。如果你想了解更多相關內容請查看下面相關鏈接
