易语言winpcap抓包停止工作，win10系统 在线等

a8890339

https://bbs.125.la/forum.php?mod=viewthread&tid=14122206&highlight=WinPcap%2B%D7%A5%B0%FC
跟这个帖子的症状一摸一样，以前可以用 今天重装系统之后就不行了，点击抓包系统就崩溃了。

屏蔽掉  指针到字节集()  就没事了，但是这个代码去掉 就抓不到包了。。

看他已经解决掉问题了，好像是添加了 合并整数 (ntohs (IP_header.Total), 0)   但是这行代码添加到哪里呢？

建行抽券.e (273.2 KB, 下载次数: 105)

2018-12-13 22:56 上传

点击文件名下载附件

模块.zip (136.17 KB, 下载次数: 81)

2018-12-13 22:59 上传

点击文件名下载附件

沫茗

窗口程序集1 解析报文里面

沫茗

  

子程序名	返回值类型	公开	备 注
解析报文
参数名	类 型	参考	可空	数组	备 注
报文	字节集

变量名	类 型	静态	数组	备 注
地址	整数型
IP_header	IP_Header
IP长	整数型
TCP_header	TCP_Heads
TCP报文长	整数型
数据	字节集
包总长	整数型
标志位字段	短整数型
ACK	短整数型
包源码	文本型
数据长度	整数型
CK	文本型
n	整数型
索引	整数型
判断CK	文本型

如果真 (取字节集中间 (报文, 13, 2) ＝ { 8, 0 })
地址 ＝ 取变量数据地址 (报文) ＋ 14
拷贝IP头 (IP_header, 地址, 20)
如果真 (IP_header.Protocol ＝ 6)
IP长 ＝ 位与 (IP_header.Version, 15) × 4
包总长 ＝ 合并整数 (ntohs (IP_header.Total), 0) － IP长
地址 ＝ 地址 ＋ IP长
拷贝TCP头 (TCP_header, 地址, 20)
TCP报文长 ＝ 位与 (TCP_header.消息集, 255) × 4 ÷ 16
标志位字段 ＝ 位与 (右移 (TCP_header.消息集, 10), 63)
ACK ＝ 位与 (右移 (标志位字段, 1), 1)  ' 确认包是否已经抓完
地址 ＝ 地址 ＋ TCP报文长
数据长度 ＝ 包总长 － TCP报文长
如果真 (数据长度 ＜ 1)
返回 ()
数据 ＝ 指针到字节集 (地址, 数据长度)
如果真 (数据长度 ＞ 16)
判断 (ACK ＝ 1)
数据包 ＝ 数据包 ＋ 数据
包源码 ＝ 到文本 (数据包)
' 修改抓包的条件就在这个下边进行修改,随意修改,目前是设置了搜索包文件中是否包含Host: haima.act.qq.com,若包含则显示
' 网卡抓包，要解决的问题:  1. 对某个活动的数据的筛选， 2. 对自己想要的某一条数据，进行筛选。 3.对筛选出来的数据，进行优化，判断是否重复的数据
如果真 (寻找文本 (包源码, “Host: 51.act.vivo.com.cn”, , 假) ≠ -1)
如果真 (寻找文本 (包源码, “Cookie”, , 假) ≠ -1)
CK ＝ 文本_取中间 (包源码, “Cookie: ”, #换行符 )
判断CK ＝ 取文本中间 (CK, 寻找文本 (CK, “cj_num%22%3A%220%22%7D%22%3B%7D”, , 假) ＋ 13, 25)
编辑框1.加入文本 (判断CK ＋ #换行符 )
如果真 (取数组成员数 (判断数组) ＝ 0)
加入成员 (判断数组, 判断CK)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置状态图片 (索引, 1)
超级列表框1.置标题 (索引, 0, “1”)
超级列表框1.置标题 (索引, 1, CK)
写文本 (CK, “vivock”)
' 启动线程 (&抽奖, 索引, )

如果真 (取数组成员数 (判断数组) ≥ 1)
计次循环首 (取数组成员数 (判断数组), n)
如果 (判断数组 [n] ＝ 判断CK)
重复 ＝ 真
跳出循环 ()

重复 ＝ 假

计次循环尾 ()
调试输出 (重复)
如果真 (重复 ＝ 假)
加入成员 (判断数组, 判断CK)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))
超级列表框1.置状态图片 (索引, 1)
超级列表框1.置标题 (索引, 1, CK)
写文本 (CK, “vivock”)
. ' 如果真 (选择框1.选中 ＝ 真)
' 启动线程 (&抽奖, 索引, )




' 在这里截至,后面的不能动了
数据包 ＝ {  }
数据包 ＝ 数据包 ＋ 数据

i支持库列表	支持库注释
spec	特殊功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 spec<br /> .支持库 iext<br /> <br /> .子程序 解析报文<br /> .参数 报文, 字节集<br /> .局部变量 地址, 整数型<br /> .局部变量 IP_header, IP_Header<br /> .局部变量 IP长, 整数型<br /> .局部变量 TCP_header, TCP_Heads<br /> .局部变量 TCP报文长, 整数型<br /> .局部变量 数据, 字节集<br /> .局部变量 包总长, 整数型<br /> .局部变量 标志位字段, 短整数型<br /> .局部变量 ACK, 短整数型<br /> .局部变量 包源码, 文本型<br /> .局部变量 数据长度, 整数型<br /> .局部变量 CK, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 判断CK, 文本型<br /> <br /> .如果真 (取字节集中间 (报文, 13, 2) ＝ { 8, 0 })<br />     地址 ＝ 取变量数据地址 (报文) ＋ 14<br />     拷贝IP头 (IP_header, 地址, 20)<br />     .如果真 (IP_header.Protocol ＝ 6)<br />         IP长 ＝ 位与 (IP_header.Version, 15) × 4<br />         包总长 ＝ 合并整数 (ntohs (IP_header.Total), 0) － IP长<br />         地址 ＝ 地址 ＋ IP长<br />         拷贝TCP头 (TCP_header, 地址, 20)<br />         TCP报文长 ＝ 位与 (TCP_header.消息集, 255) × 4 ÷ 16<br />         标志位字段 ＝ 位与 (右移 (TCP_header.消息集, 10), 63)<br />         ACK ＝ 位与 (右移 (标志位字段, 1), 1)  ' 确认包是否已经抓完<br />         地址 ＝ 地址 ＋ TCP报文长<br />         数据长度 ＝ 包总长 － TCP报文长<br />         .如果真 (数据长度 ＜ 1)<br />             返回 ()<br />         .如果真结束<br />         数据 ＝ 指针到字节集 (地址, 数据长度)<br />         .如果真 (数据长度 ＞ 16)<br />             .判断开始 (ACK ＝ 1)<br />                 数据包 ＝ 数据包 ＋ 数据<br />                 包源码 ＝ 到文本 (数据包)<br /> <br />                 ' 修改抓包的条件就在这个下边进行修改,随意修改,目前是设置了搜索包文件中是否包含Host: haima.act.qq.com,若包含则显示<br />                 ' 网卡抓包，要解决的问题:  1. 对某个活动的数据的筛选， 2. 对自己想要的某一条数据，进行筛选。 3.对筛选出来的数据，进行优化，判断是否重复的数据<br /> <br />                 .如果真 (寻找文本 (包源码, “Host: 51.act.vivo.com.cn”, , 假) ≠ -1)<br />                     .如果真 (寻找文本 (包源码, “Cookie”, , 假) ≠ -1)<br />                         CK ＝ 文本_取中间 (包源码, “Cookie: ”, #换行符)<br />                         判断CK ＝ 取文本中间 (CK, 寻找文本 (CK, “cj_num%22%3A%220%22%7D%22%3B%7D”, , 假) ＋ 13, 25)<br />                         编辑框1.加入文本 (判断CK ＋ #换行符)<br />                         .如果真 (取数组成员数 (判断数组) ＝ 0)<br />                             加入成员 (判断数组, 判断CK)<br />                             索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />                             超级列表框1.置状态图片 (索引, 1)<br />                             超级列表框1.置标题 (索引, 0, “1”)<br />                             超级列表框1.置标题 (索引, 1, CK)<br />                             写文本 (CK, “vivock”)<br />                             ' 启动线程 (&抽奖, 索引, )<br />                         .如果真结束<br /> <br />                         .如果真 (取数组成员数 (判断数组) ≥ 1)<br /> <br />                             .计次循环首 (取数组成员数 (判断数组), n)<br />                                 .如果 (判断数组 [n] ＝ 判断CK)<br />                                     重复 ＝ 真<br />                                     跳出循环 ()<br /> <br />                                 .否则<br />                                     重复 ＝ 假<br />                                 .如果结束<br /> <br />                             .计次循环尾 ()<br />                             调试输出 (重复)<br />                             .如果真 (重复 ＝ 假)<br />                                 加入成员 (判断数组, 判断CK)<br />                                 索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />                                 超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))<br />                                 超级列表框1.置状态图片 (索引, 1)<br />                                 超级列表框1.置标题 (索引, 1, CK)<br />                                 写文本 (CK, “vivock”)<br />                                 .' 如果真 (选择框1.选中 ＝ 真)<br />                                     ' 启动线程 (&抽奖, 索引, )<br />                                 .如果真结束<br /> <br />                             .如果真结束<br /> <br /> <br />                         .如果真结束<br /> <br /> <br /> <br />                     .如果真结束<br /> <br /> <br /> <br /> <br />                 .如果真结束<br />                 ' 在这里截至,后面的不能动了<br />                 数据包 ＝ {  }<br />             .默认<br />                 数据包 ＝ 数据包 ＋ 数据<br />             .判断结束<br /> <br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .如果真结束

a8890339

沫茗 发表于 2018-12-13 23:11
窗口程序集1 解析报文里面

谢谢 十分感激 解决啦