tun2php有开源,TUN/TAP设备虚拟网卡使用例子开源

测试方法:

手动安装驱动->打开源码 调试 -> 点启动 -> 启动读包-> 添加路由表吧217.10.68.153 添加到虚拟网卡上 浏览器访问217.10.68.153就能拿到原始的IP报文

里面写了一个伪造udp回复 用来测试写包是否正常！

Memory.Copy (Pointer.Lstrcpyn_Bins (原始报文_Data), z, zs)

AnalysisPackIP (字节集_取指针 (原始报文_Data), 取字节集长度 (原始报文_Data), 子协议类型, 原IP, 目标IP, 解析报文_Data) ' 解析IP报文

.如果真 (子协议类型 ＝ #TCP协议)

AnalysisPackTCP (字节集_取指针 (解析报文_Data), 取字节集长度 (解析报文_Data), 源端口, 目标端口, Data, seq, ack)

调试输出 (“TCP报文：”, “原来IP：” ＋ 原IP ＋ “：” ＋ 到文本 (源端口), “目标IP：” ＋ 目标IP ＋ “：” ＋ 到文本 (目标端口), “SEQ：” ＋ 到文本 (seq), “ACK：” ＋ 到文本 (ack), Data)

.如果真结束

.如果真 (子协议类型 ＝ #UDP协议)

AnalysisPackUDP (字节集_取指针 (解析报文_Data), 取字节集长度 (解析报文_Data), 源端口, 目标端口, Data)

调试输出 (“UDP报文：”, “原来IP：” ＋ 原IP ＋ “：” ＋ 到文本 (源端口), “目标IP：” ＋ 目标IP ＋ “：” ＋ 到文本 (目标端口), Data) ' 数据报2.发送数据 (“217.10.68.152”, 目标端口, Data)

.如果真结束

.如果真 (子协议类型 ＝ #ICMP协议)

调试输出 (“ICMP报文”)

调试输出 (解析报文_Data)