今天小編就爲大家分享一篇關於易語言製作網截抓包工具的代碼，小編覺得內容挺不錯的，現在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧
常量數據表
.版本 2 .常量 編碼常量, "<文本長度: 10797>", , 名稱：編碼_GB2312 英文名稱：Encoding_GB2312 類型：文本型 值：“GB2312” 列舉各種編碼類型
全局變量表
.版本 2 .全局變量 系統配置路徑, 文本型
網截抓包工具
.版本 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 － 開始位置
返回 (取文本中間 (被搜尋的文本, 開始位置, 取出長度))
.如果真結束
.如果真結束
返回 (“”)
運行結果：
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對神馬文庫的支持。如果你想了解更多相關內容請查看下面相關鏈接