一区二区三区在线-一区二区三区亚洲视频-一区二区三区亚洲-一区二区三区午夜-一区二区三区四区在线视频-一区二区三区四区在线免费观看

服務器之家:專注于服務器技術及軟件下載分享
分類導航

PHP教程|ASP.NET教程|Java教程|ASP教程|編程技術|正則表達式|C/C++|IOS|C#|Swift|Android|VB|R語言|JavaScript|易語言|vb.net|

服務器之家 - 編程語言 - 易語言 - 易語言制作網截抓包工具的代碼

易語言制作網截抓包工具的代碼

2022-02-23 15:33易語言源碼教程 易語言

今天小編就為大家分享一篇關于易語言制作網截抓包工具的代碼,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧

常量數據表

?
1
2
.版本 2
.常量 編碼常量, "<文本長度: 10797>", ,   名稱:編碼_GB2312  英文名稱:Encoding_GB2312   類型:文本型  值:“GB2312” 列舉各種編碼類型

全局變量表

?
1
2
.版本 2
.全局變量 系統配置路徑, 文本型

網截抓包工具

?
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
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
.版本 2
.支持庫 eNetIntercept
.支持庫 eGrid
.支持庫 iconv
.支持庫 iext
.支持庫 iext2
.程序集 主程序集
.程序集變量 服務安裝, 網絡服務安裝
.程序集變量 臨時句柄文件路徑, 文本型
.程序集變量 臨時進程文件路徑, 文本型
.子程序 __啟動窗口_創建完畢
初始化 ()
.子程序 初始化
.局部變量 文本組, 文本型, , "0"
.局部變量 臨時整數變量, 整數型
.局部變量 加入位置, 整數型
.局部變量 取出值, 文本型
.如果真 (服務安裝.是否已安裝 () = 假)
  .如果 (信息框 (“服務沒有安裝,是否現在安裝?”, #詢問圖標 + #取消鈕, “初始化”) = #確認鈕)
    .如果真 (文件是否存在 (取運行目錄 () + “\ESPI11.dll”) = 假)
      .如果真 (寫到文件 (取運行目錄 () + “\ESPI11.dll”, #安裝文件) = 假)
        信息框 (“寫出文件錯誤!”, #錯誤圖標, “初始化”)
        結束 ()
      .如果真結束
    .如果真結束
    .如果 (服務安裝.安裝 (取運行目錄 () + “\ESPI11.dll”) = 假)
      信息框 (“服務安裝失敗!”, #錯誤圖標, “初始化”)
      結束 ()
    .否則
      信息框 (“服務安裝成功!”, #信息圖標, “初始化”)
    .如果結束
  .否則
    結束 ()
  .如果結束
.如果真結束
臨時句柄文件路徑 = 取運行目錄 () + “\” + “Ws_sock.dep”
刪除文件 (臨時句柄文件路徑)
臨時進程文件路徑 = 取運行目錄 () + “\” + “Ws_jinchen.dep”
刪除文件 (臨時進程文件路徑)
高級表格.列數 = 9
高級表格.行數 = 1
高級表格.置數據 (0, 0, #表格常量.文本型, “PID”)
高級表格.置數據 (0, 1, #表格常量.文本型, “進程名”)
高級表格.置數據 (0, 2, #表格常量.文本型, “進程路徑”)
高級表格.置數據 (0, 3, #表格常量.文本型, “轉IP”)
高級表格.置數據 (0, 4, #表格常量.文本型, “轉端口”)
高級表格.置數據 (0, 5, #表格常量.文本型, “清空發送”)
高級表格.置數據 (0, 6, #表格常量.文本型, “清空接收”)
高級表格.置數據 (0, 7, #表格常量.文本型, “過濾1”)
高級表格.置數據 (0, 8, #表格常量.文本型, “過濾2”)
高級表格.置列類型 (5, #表格常量.選擇型)
高級表格.置列類型 (6, #表格常量.選擇型)
高級表格.置列類型 (7, #表格常量.選擇型)
高級表格.置列類型 (8, #表格常量.選擇型)
高級表格.置對齊方式 (0, 0, , 8, #表格常量.居中對齊)
文本組 = 分割文本 (#編碼常量, #換行符, )
.計次循環首 (取數組成員數 (文本組), 臨時整數變量)
  .如果真 (尋找文本 (文本組 [臨時整數變量], #左引號, , 假) ≠ -1)
    取出值 = 取文本之間 (文本組 [臨時整數變量], #左引號, #右引號)
    加入位置 = 源編碼組合框.加入項目 (取出值, )
    .如果真 (取出值 = #編碼_UTF_8)
      源編碼組合框.現行選中項 = 加入位置
    .如果真結束
    加入位置 = 目編碼組合框.加入項目 (取出值, )
    .如果真 (取出值 = #編碼_GB2312)
      目編碼組合框.現行選中項 = 加入位置
    .如果真結束
  .如果真結束
.計次循環尾 ()
_啟動窗口.寬度 = 800
_啟動窗口.高度 = 600
__啟動窗口_尺寸被改變 ()
.子程序 調整列寬
.局部變量 臨時整數變量, 整數型
.局部變量 單格大小, 整數型
單格大小 = 高級表格.寬度 ÷ 100
.計次循環首 (9, 臨時整數變量)
  高級表格.置列寬 (臨時整數變量 - 1, 多項選擇 (臨時整數變量, 單格大小 × 8, 單格大小 × 13, 單格大小 × 18, 單格大小 × 16, 單格大小 × 8, 單格大小 × 10, 單格大小 × 10, 單格大小 × 8, 單格大小 × 8))
.計次循環尾 ()
發送數據列表框.置列寬 (6, 發送數據列表框.寬度 - 500)
.子程序 __啟動窗口_可否被關閉, 邏輯型
網截.關閉 ()
.子程序 __啟動窗口_尺寸被改變
.如果真 (_啟動窗口.寬度 < 800)
  _啟動窗口.寬度 = 800
.如果真結束
.如果真 (_啟動窗口.高度 < 600)
  _啟動窗口.高度 = 600
.如果真結束
數據分組框.寬度 = _啟動窗口.寬度 - 12
發送數據列表框.寬度 = 數據分組框.寬度 - 15
數據分組框.高度 = _啟動窗口.高度 - 過濾分組框.高度 - 詳細分組框.高度 - 95
發送數據列表框.高度 = 數據分組框.高度 - 25
過濾分組框.頂邊 = 數據分組框.頂邊 + 數據分組框.高度
詳細分組框.頂邊 = 過濾分組框.頂邊 + 過濾分組框.高度
詳細分組框.寬度 = 數據分組框.寬度 - 全局分組框.寬度 - 1
過濾分組框.寬度 = 數據分組框.寬度
高級表格.寬度 = 過濾分組框.寬度 - 10
編碼轉換編輯框.寬度 = 詳細分組框.寬度 ÷ 2 - 7
原始數據標簽.左邊 = 詳細分組框.寬度 - 5 - 編碼轉換編輯框.寬度
原始數據編輯框.左邊 = 原始數據標簽.左邊
原始數據編輯框.寬度 = 編碼轉換編輯框.寬度
全局分組框.頂邊 = 詳細分組框.頂邊
全局分組框.左邊 = 詳細分組框.寬度 + 1
調整列寬 ()
.子程序 _發送數據列表框_當前表項被改變
.局部變量 轉換前, 字節集
.局部變量 轉換后, 字節集
轉換前 = 到字節集 (發送數據列表框.取標題 (發送數據列表框.現行選中項, 6))
原始數據編輯框.內容 = 發送數據列表框.取標題 (發送數據列表框.現行選中項, 6)
轉換后 = 編碼轉換 (轉換前, 源編碼組合框.取項目文本 (源編碼組合框.現行選中項), 目編碼組合框.取項目文本 (目編碼組合框.現行選中項), )
編碼轉換編輯框.內容 = 彗星URL解碼 (到文本 (轉換后))
.子程序 _工具條_被單擊
.參數 按鈕索引, 整數型
.判斷開始 (按鈕索引 = 0)
  .如果真 (網截.打開 () = 假)
    信息框 (“啟動失敗!”, #錯誤圖標, )
    返回 ()
  .如果真結束
  工具條.加入狀態 (0, #按下)
  工具條.去除狀態 (2, #按下)
.判斷 (按鈕索引 = 2)
  .如果真 (網截.關閉 () = 假)
    信息框 (“停止失敗!”, #錯誤圖標, )
    返回 ()
  .如果真結束
  工具條.加入狀態 (2, #按下)
  工具條.去除狀態 (0, #按下)
.判斷 (按鈕索引 = 4)
  發送數據列表框.全部刪除 ()
.判斷 (按鈕索引 = 6)
.判斷 (按鈕索引 = 8)
.默認
.判斷結束
.子程序 _網截_調綁定, 整數型
.參數 調用者信息, 調用者信息, 參考
.參數 套接字句柄, 整數型, 參考
.參數 網址, 網址信息, 參考
.局部變量 IP段1, 字節型
.局部變量 IP段2, 字節型
.局部變量 IP段3, 字節型
.局部變量 IP段4, 字節型
.局部變量 端口號, 整數型
網址.取IP端口 (IP段1, IP段2, IP段3, IP段4, 端口號)
寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “bdip”, 到文本 (IP段1) + “.” + 到文本 (IP段2) + “.” + 到文本 (IP段3) + “.” + 到文本 (IP段4))
寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “bddk”, 到文本 (端口號))
返回 (#攔截操作.默認調用)
.子程序 _網截_調偵聽, 整數型
.參數 調用者信息, 調用者信息, 參考
.參數 套接字句柄, 整數型, 參考
.參數 等待隊列長度, 整數型, 參考
返回 (#攔截操作.默認調用)
.子程序 _網截_調連接, 整數型
.參數 調用者信息, 調用者信息, 參考
.參數 套接字句柄, 整數型, 參考
.參數 網址, 網址信息, 參考
.局部變量 IP段1, 字節型
.局部變量 IP段2, 字節型
.局部變量 IP段3, 字節型
.局部變量 IP段4, 字節型
.局部變量 端口號, 整數型
.局部變量 全_IP, 文本型
.局部變量 IP段組, 文本型, , "0"
.局部變量 新端口號, 整數型
網址.取IP端口 (IP段1, IP段2, IP段3, IP段4, 端口號)
全_IP = 到文本 (IP段1) + “.” + 到文本 (IP段2) + “.” + 到文本 (IP段3) + “.” + 到文本 (IP段4)
.如果真 (轉IP選擇框.選中 = 真)
  IP段組 = 分割文本 (IP編輯框.地址, “.”, )
  .如果真 (取數組成員數 (IP段組) ≠ 4)
    返回 (#攔截操作.默認調用)
  .如果真結束
.如果真結束
.如果真 (轉端口選擇框.選中 = 真)
  新端口號 = 到整數 (端口編輯框.內容)
.如果真結束
.如果真 (取數組成員數 (IP段組) = 4 且 新端口號 ≠ 0)
  寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, “全轉-” + 到文本 (IP段組 [1]) + “.” + 到文本 (IP段組 [2]) + “.” + 到文本 (IP段組 [3]) + “.” + 到文本 (IP段組 [4]))
  寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, “全轉-” + 到文本 (新端口號))
  網址.置IP端口 (到字節 (IP段組 [1]), 到字節 (IP段組 [2]), 到字節 (IP段組 [3]), 到字節 (IP段組 [4]), 新端口號)
  返回 (#攔截操作.更改調用)
.如果真結束
.如果真 (取數組成員數 (IP段組) = 4)
  寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, “全轉-” + 到文本 (IP段組 [1]) + “.” + 到文本 (IP段組 [2]) + “.” + 到文本 (IP段組 [3]) + “.” + 到文本 (IP段組 [4]))
  寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, 到文本 (端口號))
  網址.置IP端口 (到字節 (IP段組 [1]), 到字節 (IP段組 [2]), 到字節 (IP段組 [3]), 到字節 (IP段組 [4]), 端口號)
  返回 (#攔截操作.更改調用)
.如果真結束
.如果真 (新端口號 ≠ 0)
  寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, 到文本 (IP段1) + “.” + 到文本 (IP段2) + “.” + 到文本 (IP段3) + “.” + 到文本 (IP段4))
  寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, “全轉-” + 到文本 (新端口號))
  網址.置IP端口 (IP段1, IP段2, IP段3, IP段4, 新端口號)
  返回 (#攔截操作.更改調用)
.如果真結束
.如果真 (讀配置項 (臨時進程文件路徑, 到文本 (調用者信息.取進程標識 ()), “ip”, ) ≠ “”)
  IP段組 = 分割文本 (讀配置項 (臨時進程文件路徑, 到文本 (調用者信息.取進程標識 ()), “ip”, ), “.”, )
  .如果真 (取數組成員數 (IP段組) ≠ 4)
    返回 (#攔截操作.默認調用)
  .如果真結束
.如果真結束
.如果真 (讀配置項 (臨時進程文件路徑, 到文本 (調用者信息.取進程標識 ()), “port”, ) ≠ “”)
  新端口號 = 到整數 (讀配置項 (臨時進程文件路徑, 到文本 (調用者信息.取進程標識 ()), “port”, ))
.如果真結束
.如果真 (取數組成員數 (IP段組) = 4 且 新端口號 ≠ 0)
  寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, “單轉-” + 到文本 (IP段組 [1]) + “.” + 到文本 (IP段組 [2]) + “.” + 到文本 (IP段組 [3]) + “.” + 到文本 (IP段組 [4]))
  寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, “單轉-” + 到文本 (新端口號))
  網址.置IP端口 (到字節 (IP段組 [1]), 到字節 (IP段組 [2]), 到字節 (IP段組 [3]), 到字節 (IP段組 [4]), 新端口號)
  返回 (#攔截操作.更改調用)
.如果真結束
.如果真 (取數組成員數 (IP段組) = 4)
  寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, “單轉-” + 到文本 (IP段組 [1]) + “.” + 到文本 (IP段組 [2]) + “.” + 到文本 (IP段組 [3]) + “.” + 到文本 (IP段組 [4]))
  寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, 到文本 (端口號))
  網址.置IP端口 (到字節 (IP段組 [1]), 到字節 (IP段組 [2]), 到字節 (IP段組 [3]), 到字節 (IP段組 [4]), 端口號)
  返回 (#攔截操作.更改調用)
.如果真結束
.如果真 (新端口號 ≠ 0)
  寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, 全_IP)
  寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, “單轉-” + 到文本 (新端口號))
  網址.置IP端口 (IP段1, IP段2, IP段3, IP段4, 新端口號)
  返回 (#攔截操作.更改調用)
.如果真結束
寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, 全_IP)
寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, 到文本 (端口號))
返回 (#攔截操作.默認調用)
.子程序 _網截_調發送, 整數型
.參數 調用者信息, 調用者信息, 參考
.參數 套接字句柄, 整數型, 參考
.參數 網絡數據, 網絡數據, 參考
.參數 調用方式, 整數型, 參考
.局部變量 表項索引, 整數型
.局部變量 數據內容, 字節型
.局部變量 文本數據, 文本型
.如果真 (清空發送選擇框.選中 = 真) ' 全局過濾
  文本數據 = 網絡數據.到文本 ()
  表項索引 = 發送數據列表框.插入表項 (, , , , , )
  發送數據列表框.置標題 (表項索引, 0, “↑”)
  發送數據列表框.置標題 (表項索引, 1, 到文本 (調用者信息.取進程標識 ()))
  發送數據列表框.置標題 (表項索引, 2, 讀配置項 (臨時進程文件路徑, 到文本 (調用者信息.取進程標識 ()), “mc”, ))
  發送數據列表框.置標題 (表項索引, 3, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, ))
  發送數據列表框.置標題 (表項索引, 4, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, ))
  發送數據列表框.置標題 (表項索引, 5, 到文本 (網絡數據.取長度 ()))
  發送數據列表框.置標題 (表項索引, 6, “數據被清空”)
  網絡數據.釋放 ()
  返回 (#攔截操作.更改調用)
.如果真結束
.如果真 (讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, ) = “”) ' 過濾IP為空的數據局
  返回 (#攔截操作.默認調用)
.如果真結束
.如果真 (暫停過濾選擇框.選中 = 真) ' 全局暫停過濾
  文本數據 = 網絡數據.到文本 ()
  表項索引 = 發送數據列表框.插入表項 (, , , , , )
  發送數據列表框.置標題 (表項索引, 0, “↑”)
  發送數據列表框.置標題 (表項索引, 1, 到文本 (調用者信息.取進程標識 ()))
  發送數據列表框.置標題 (表項索引, 2, 讀配置項 (臨時進程文件路徑, 到文本 (調用者信息.取進程標識 ()), “mc”, ))
  發送數據列表框.置標題 (表項索引, 3, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, ))
  發送數據列表框.置標題 (表項索引, 4, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, ))
  發送數據列表框.置標題 (表項索引, 5, 到文本 (網絡數據.取長度 ()))
  發送數據列表框.置標題 (表項索引, 6, 文本數據)
  返回 (#攔截操作.默認調用)
.如果真結束
文本數據 = 網絡數據.到文本 ()
.如果真 (過濾1選擇框.選中 = 真) ' 全局過濾
  .如果真 (網絡數據.取長度 () ≤ 1)
    返回 (#攔截操作.默認調用)
  .如果真結束
.如果真結束
.如果真 (過濾2選擇框.選中 = 真)
  .如果真 (到大寫 (取文本左邊 (文本數據, 3)) ≠ “GET” 且 到大寫 (取文本左邊 (文本數據, 4)) ≠ “POST”)
    返回 (#攔截操作.默認調用)
  .如果真結束
.如果真結束
.如果真 (讀配置項 (臨時句柄文件路徑, 到文本 (調用者信息.取進程標識 ()), “fs”, ) = “真”) ' 單進程過濾
  文本數據 = 網絡數據.到文本 ()
  表項索引 = 發送數據列表框.插入表項 (, , , , , )
  發送數據列表框.置標題 (表項索引, 0, “↑”)
  發送數據列表框.置標題 (表項索引, 1, 到文本 (調用者信息.取進程標識 ()))
  發送數據列表框.置標題 (表項索引, 2, 讀配置項 (臨時進程文件路徑, 到文本 (調用者信息.取進程標識 ()), “mc”, ))
  發送數據列表框.置標題 (表項索引, 3, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, ))
  發送數據列表框.置標題 (表項索引, 4, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, ))
  發送數據列表框.置標題 (表項索引, 5, 到文本 (網絡數據.取長度 ()))
  發送數據列表框.置標題 (表項索引, 6, “數據被清空”)
  網絡數據.釋放 ()
  返回 (#攔截操作.更改調用)
.如果真結束
.如果真 (讀配置項 (臨時進程文件路徑, 到文本 (調用者信息.取進程標識 ()), “1”, ) = “真”)
  .如果真 (網絡數據.取長度 () ≤ 1)
    返回 (#攔截操作.默認調用)
  .如果真結束
.如果真結束
.如果真 (讀配置項 (臨時進程文件路徑, 到文本 (調用者信息.取進程標識 ()), “2”, ) = “真”)
  .如果真 (到大寫 (取文本左邊 (文本數據, 3)) ≠ “GET” 且 到大寫 (取文本左邊 (文本數據, 4)) ≠ “POST”)
    返回 (#攔截操作.默認調用)
  .如果真結束
.如果真結束
表項索引 = 發送數據列表框.插入表項 (, , , , , ) ' 所有過濾關閉
發送數據列表框.置標題 (表項索引, 0, “↑”)
發送數據列表框.置標題 (表項索引, 1, 到文本 (調用者信息.取進程標識 ()))
發送數據列表框.置標題 (表項索引, 2, 讀配置項 (臨時進程文件路徑, 到文本 (調用者信息.取進程標識 ()), “mc”, ))
發送數據列表框.置標題 (表項索引, 3, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, ))
發送數據列表框.置標題 (表項索引, 4, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, ))
發送數據列表框.置標題 (表項索引, 5, 到文本 (網絡數據.取長度 ()))
發送數據列表框.置標題 (表項索引, 6, 文本數據)
返回 (#攔截操作.默認調用)
.子程序 _網截_調接收, 整數型
.參數 調用者信息, 調用者信息, 參考
.參數 套接字句柄, 整數型, 參考
.參數 網絡數據, 網絡數據, 參考
.參數 調用方式, 整數型, 參考
.局部變量 表項索引, 整數型
.局部變量 數據內容, 字節型
.局部變量 文本數據, 文本型
.如果真 (清空接收選擇框.選中 = 真) ' 全局過濾
  文本數據 = 網絡數據.到文本 ()
  表項索引 = 發送數據列表框.插入表項 (, , , , , )
  發送數據列表框.置標題 (表項索引, 0, “↓”)
  發送數據列表框.置標題 (表項索引, 1, 到文本 (調用者信息.取進程標識 ()))
  發送數據列表框.置標題 (表項索引, 2, 讀配置項 (臨時進程文件路徑, 到文本 (調用者信息.取進程標識 ()), “mc”, ))
  發送數據列表框.置標題 (表項索引, 3, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, ))
  發送數據列表框.置標題 (表項索引, 4, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, ))
  發送數據列表框.置標題 (表項索引, 5, 到文本 (網絡數據.取長度 ()))
  發送數據列表框.置標題 (表項索引, 6, “數據被清空”)
  網絡數據.釋放 ()
  返回 (#攔截操作.更改調用)
.如果真結束
.如果真 (讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, ) = “”) ' 過濾IP為空的數據局
  返回 (#攔截操作.默認調用)
.如果真結束
.如果真 (暫停過濾選擇框.選中 = 真) ' 全局暫停過濾
  文本數據 = 網絡數據.到文本 ()
  表項索引 = 發送數據列表框.插入表項 (, , , , , )
  發送數據列表框.置標題 (表項索引, 0, “↓”)
  發送數據列表框.置標題 (表項索引, 1, 到文本 (調用者信息.取進程標識 ()))
  發送數據列表框.置標題 (表項索引, 2, 讀配置項 (臨時進程文件路徑, 到文本 (調用者信息.取進程標識 ()), “mc”, ))
  發送數據列表框.置標題 (表項索引, 3, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, ))
  發送數據列表框.置標題 (表項索引, 4, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, ))
  發送數據列表框.置標題 (表項索引, 5, 到文本 (網絡數據.取長度 ()))
  發送數據列表框.置標題 (表項索引, 6, 文本數據)
  返回 (#攔截操作.默認調用)
.如果真結束
文本數據 = 網絡數據.到文本 ()
.如果真 (過濾1選擇框.選中 = 真) ' 全局過濾
  .如果真 (網絡數據.取長度 () ≤ 1)
    返回 (#攔截操作.默認調用)
  .如果真結束
.如果真結束
.如果真 (過濾2選擇框.選中 = 真)
  .如果真 (到大寫 (取文本左邊 (文本數據, 3)) ≠ “GET” 且 到大寫 (取文本左邊 (文本數據, 4)) ≠ “POST”)
    返回 (#攔截操作.默認調用)
  .如果真結束
.如果真結束
.如果真 (讀配置項 (臨時句柄文件路徑, 到文本 (調用者信息.取進程標識 ()), “js”, ) = “真”) ' 單進程過濾
  文本數據 = 網絡數據.到文本 ()
  表項索引 = 發送數據列表框.插入表項 (, , , , , )
  發送數據列表框.置標題 (表項索引, 0, “↓”)
  發送數據列表框.置標題 (表項索引, 1, 到文本 (調用者信息.取進程標識 ()))
  發送數據列表框.置標題 (表項索引, 2, 讀配置項 (臨時進程文件路徑, 到文本 (調用者信息.取進程標識 ()), “mc”, ))
  發送數據列表框.置標題 (表項索引, 3, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, ))
  發送數據列表框.置標題 (表項索引, 4, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, ))
  發送數據列表框.置標題 (表項索引, 5, 到文本 (網絡數據.取長度 ()))
  發送數據列表框.置標題 (表項索引, 6, “數據被清空”)
  網絡數據.釋放 ()
  返回 (#攔截操作.更改調用)
.如果真結束
.如果真 (讀配置項 (臨時進程文件路徑, 到文本 (調用者信息.取進程標識 ()), “1”, ) = “真”)
  .如果真 (網絡數據.取長度 () ≤ 1)
    返回 (#攔截操作.默認調用)
  .如果真結束
.如果真結束
.如果真 (讀配置項 (臨時進程文件路徑, 到文本 (調用者信息.取進程標識 ()), “2”, ) = “真”)
  .如果真 (到大寫 (取文本左邊 (文本數據, 3)) ≠ “GET” 且 到大寫 (取文本左邊 (文本數據, 4)) ≠ “POST”)
    返回 (#攔截操作.默認調用)
  .如果真結束
.如果真結束
表項索引 = 發送數據列表框.插入表項 (, , , , , ) ' 所有過濾關閉
發送數據列表框.置標題 (表項索引, 0, “↓”)
發送數據列表框.置標題 (表項索引, 1, 到文本 (調用者信息.取進程標識 ()))
發送數據列表框.置標題 (表項索引, 2, 讀配置項 (臨時進程文件路徑, 到文本 (調用者信息.取進程標識 ()), “mc”, ))
發送數據列表框.置標題 (表項索引, 3, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, ))
發送數據列表框.置標題 (表項索引, 4, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, ))
發送數據列表框.置標題 (表項索引, 5, 到文本 (網絡數據.取長度 ()))
發送數據列表框.置標題 (表項索引, 6, 文本數據)
返回 (#攔截操作.默認調用)
.子程序 _網截_調創建套接字, 整數型
.參數 調用者信息, 調用者信息, 參考
.參數 地址族, 整數型, 參考
.參數 格式, 整數型, 參考
.參數 協議, 整數型, 參考
.局部變量 臨時整數變量, 整數型
.局部變量 行索引, 整數型
.局部變量 進程路徑, 文本型
.如果真 (讀配置項 (臨時進程文件路徑, 到文本 (調用者信息.取進程標識 ()), “mc”, ) ≠ “”)
  返回 (#攔截操作.默認調用)
.如果真結束
高級表格.行數 = 高級表格.行數 + 1
行索引 = 高級表格.行數 - 1
進程路徑 = 調用者信息.取進程名 ()
高級表格.置數據 (行索引, 0, #表格常量.文本型, 到文本 (調用者信息.取進程標識 ()))
高級表格.置數據 (行索引, 1, #表格常量.文本型, 取文本右邊 (進程路徑, 取文本長度 (進程路徑) - 倒找文本 (進程路徑, “\”, , 假)))
高級表格.置數據 (行索引, 2, #表格常量.文本型, 進程路徑)
高級表格.置數據 (行索引, 3, #表格常量.文本型, “”)
高級表格.置數據 (行索引, 4, #表格常量.文本型, “”)
高級表格.置數據 (行索引, 5, #表格常量.選擇型, 假)
高級表格.置數據 (行索引, 6, #表格常量.選擇型, 假)
高級表格.置數據 (行索引, 7, #表格常量.選擇型, 假)
高級表格.置數據 (行索引, 8, #表格常量.選擇型, 假)
寫配置項 (臨時進程文件路徑, 到文本 (調用者信息.取進程標識 ()), “mc”, 取文本右邊 (進程路徑, 取文本長度 (進程路徑) - 倒找文本 (進程路徑, “\”, , 假)))
寫配置項 (臨時進程文件路徑, 到文本 (調用者信息.取進程標識 ()), “fs”, “假”)
寫配置項 (臨時進程文件路徑, 到文本 (調用者信息.取進程標識 ()), “js”, “假”)
寫配置項 (臨時進程文件路徑, 到文本 (調用者信息.取進程標識 ()), “1”, “假”)
寫配置項 (臨時進程文件路徑, 到文本 (調用者信息.取進程標識 ()), “2”, “假”)
返回 (#攔截操作.默認調用)
.子程序 _網截_調關閉套接字
.參數 調用者信息, 調用者信息, 參考
.參數 套接字句柄, 整數型, 參考
.子程序 _網截_調許可連接, 整數型
.參數 調用者信息, 調用者信息, 參考
.參數 套接字句柄, 整數型, 參考
.參數 網址, 網址信息, 參考
.局部變量 IP段1, 字節型
.局部變量 IP段2, 字節型
.局部變量 IP段3, 字節型
.局部變量 IP段4, 字節型
.局部變量 端口號, 整數型
返回 (#攔截操作.默認調用)
.子程序 _網截_調定向發送, 整數型
.參數 調用者信息, 調用者信息, 參考
.參數 套接字句柄, 整數型, 參考
.參數 網絡數據, 網絡數據, 參考
.參數 調用方式, 整數型, 參考
.參數 網址, 網址信息, 參考
.局部變量 IP段1, 字節型
.局部變量 IP段2, 字節型
.局部變量 IP段3, 字節型
.局部變量 IP段4, 字節型
.局部變量 端口號, 整數型
返回 (#攔截操作.默認調用)
網址.取IP端口 (IP段1, IP段2, IP段3, IP段4, 端口號)
返回 (#攔截操作.默認調用)
.子程序 _網截_調定向接收, 整數型
.參數 調用者信息, 調用者信息, 參考
.參數 套接字句柄, 整數型, 參考
.參數 網絡數據, 網絡數據, 參考
.參數 調用方式, 整數型, 參考
.參數 網址, 網址信息, 參考
.局部變量 IP段1, 字節型
.局部變量 IP段2, 字節型
.局部變量 IP段3, 字節型
.局部變量 IP段4, 字節型
.局部變量 端口號, 整數型
返回 (#攔截操作.默認調用)
網址.取IP端口 (IP段1, IP段2, IP段3, IP段4, 端口號)
返回 (#攔截操作.默認調用)
.子程序 彗星URL解碼, 文本型, 公開, 返回已解碼的URL
.參數 Bin_URL, 文本型, , 欲解碼的文本
.局部變量 循環容器, 整數型
.局部變量 Len, 整數型
.局部變量 HEX, 文本型
.局部變量 目標, 文本型
.局部變量 H, 整數型
.局部變量 L, 整數型
Len = 取文本長度 (Bin_URL)
循環容器 = 1
HEX = “0123456789ABCDEF”
.判斷循環首 (循環容器 ≤ Len)
  .判斷開始 (取文本中間 (Bin_URL, 循環容器, 1) ≠ “%”)
    目標 = 目標 + 取文本中間 (Bin_URL, 循環容器, 1)
  .默認
    循環容器 = 循環容器 + 1
    H = 尋找文本 (HEX, 到大寫 (取文本中間 (Bin_URL, 循環容器, 1)), , 假) - 1
    循環容器 = 循環容器 + 1
    L = 尋找文本 (HEX, 到大寫 (取文本中間 (Bin_URL, 循環容器, 1)), , 假) - 1
    目標 = 目標 + 字符 (H × 16 + L)
  .判斷結束
  循環容器 = 循環容器 + 1
.判斷循環尾 ()
返回 (目標)
.子程序 _高級表格_結束編輯
.局部變量 x, 整數型
.局部變量 y, 整數型
x = 高級表格.取光標列號 ()
y = 高級表格.取光標行號 ()
寫配置項 (臨時進程文件路徑, 高級表格.取數據 (y, 0), “ip”, 高級表格.取數據 (y, 3))
寫配置項 (臨時進程文件路徑, 高級表格.取數據 (y, 0), “port”, 高級表格.取數據 (y, 4))
寫配置項 (臨時進程文件路徑, 高級表格.取數據 (y, 0), “fs”, 到文本 (高級表格.取數據 (y, 5)))
寫配置項 (臨時進程文件路徑, 高級表格.取數據 (y, 0), “js”, 到文本 (高級表格.取數據 (y, 6)))
寫配置項 (臨時進程文件路徑, 高級表格.取數據 (y, 0), “1”, 到文本 (高級表格.取數據 (y, 7)))
寫配置項 (臨時進程文件路徑, 高級表格.取數據 (y, 0), “2”, 到文本 (高級表格.取數據 (y, 8)))
.子程序 _轉IP選擇框_被單擊
IP編輯框.禁止 = 取反 (轉IP選擇框.選中)
.子程序 _轉端口選擇框_被單擊
端口編輯框.禁止 = 取反 (轉端口選擇框.選中)
.子程序 取文本之間, 文本型
.參數 被搜尋的文本, 文本型
.參數 開始文本, 文本型
.參數 結束文本, 文本型
.局部變量 文本長度, 整數型
.局部變量 開始位置, 整數型
.局部變量 取出長度, 整數型
.局部變量 a
.局部變量 b
文本長度 = 取文本長度 (開始文本)
a = 尋找文本 (被搜尋的文本, 開始文本, , 真)
.如果真 (a ≠ -1)
  開始位置 = a + 文本長度
  b = 尋找文本 (被搜尋的文本, 結束文本, 開始位置, 真)
  .如果真 (b ≠ -1)
    取出長度 = b - 開始位置
    返回 (取文本中間 (被搜尋的文本, 開始位置, 取出長度))
  .如果真結束
.如果真結束
返回 (“”)

運行結果:

易語言制作網截抓包工具的代碼

總結

以上就是這篇文章的全部內容了,希望本文的內容對大家的學習或者工作具有一定的參考學習價值,謝謝大家對服務器之家的支持。如果你想了解更多相關內容請查看下面相關鏈接

延伸 · 閱讀

精彩推薦
  • 易語言實例操作易語言載入窗口

    實例操作易語言載入窗口

    在本文中小編給大家整理的是關于易語言載入窗口的教程和步驟內容,需要的可以跟著學習下...

    易語言教程網19162022-03-02
  • 易語言一步一步跟我學易語言之關于變量

    一步一步跟我學易語言之關于變量

    今天小編就為大家分享一篇關于一步一步跟我學易語言之關于變量,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要的朋友一起跟隨...

    易語言幫助手冊10822021-06-17
  • 易語言易語言關于程序進程和線程的基礎知識

    易語言關于程序進程和線程的基礎知識

    今天小編就為大家分享一篇關于易語言關于程序進程和線程的基礎知識,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要的朋友一起...

    三葉資源網6662022-02-24
  • 易語言易語言設置進度條邊框樣式的方法

    易語言設置進度條邊框樣式的方法

    今天小編就為大家分享一篇關于易語言設置進度條邊框樣式的方法,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要的朋友一起跟隨...

    易語言幫助手冊4422022-01-20
  • 易語言一步一步跟我學易語言之第二個易程序菜單設計

    一步一步跟我學易語言之第二個易程序菜單設計

    今天小編就為大家分享一篇關于的一步一步跟我學易語言之第二個易程序菜單設計,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要...

    易語言幫助手冊7092021-06-17
  • 易語言易語言生成exe文件的方法

    易語言生成exe文件的方法

    在本篇內容中小編給大家分享的是關于易語言生成exe文件的方法知識點,需要的朋友們參考下。...

    易語言教程網14792022-03-01
  • 易語言易語言獲取指定磁盤的名稱

    易語言獲取指定磁盤的名稱

    今天小編就為大家分享一篇關于易語言獲取指定磁盤的名稱,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來...

    易語言幫助手冊12662022-01-04
  • 易語言易語言在畫板中寫出指定文本當畫板中已滿會自動滾屏

    易語言在畫板中寫出指定文本當畫板中已滿會自動滾屏

    今天小編就為大家分享一篇關于易語言在畫板中寫出指定文本當畫板中已滿會自動滾屏,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,...

    易語言幫助手冊9092022-01-12
主站蜘蛛池模板: 久草热8精品视频在线观看 久草草在线视视频 | 欧美日韩亚洲国内综合网俺 | 国色天香社区视频免费高清在线观看 | 国产免费资源 | 亚洲高清国产品国语在线观看 | 午夜影视在线观看 | 息与子中文字幕bd | www.四虎网站 | 麻麻与子乱肉小说怀孕 | 国产精品久久久久无毒 | 国色天香社区在线视频免费观看 | 久久99国产亚洲高清观着 | 小小水蜜桃3视频在线观看 小鸟酱喷水 | 国产精品网页 | 人人干国产| a级黄色视屏 | 国产99页| 黑人粗长巨茎小说 | 日本xxx片免费高清在线 | 成年无限观看onlyfans | 视频一区二区三区欧美日韩 | 手机在线观看精品国产片 | 精品久久久久久影院免费 | 爱草影院 | 欧美特黄aaaaaa| 国产一级毛片潘金莲的奶头 | 美女毛片老太婆bbb80岁 | 国内久久久 | 18亚洲chinese男男1069| 亚洲免费大全 | 人成午夜免费大片在线观看 | 欧美milk大超乳 | 热巴在公交车h文 | 91香蕉依人综合久久 | 欧美日韩一二三区免费视频观看 | 柔术一级毛片 | 国产日韩欧美在线观看不卡 | 亚洲精品m在线观看 | a4yy欧美一区二区三区 | 我要色色网 | 四神集团1涨奶是第几章 |