目的是让程序拦截一组IP数据包并读取其原始内容,然后在修改之后将其重新插入网络.
我的方法是基于设置Tuntap接口(Tun,具体),然后让iptables和类似的方法将所需的数据包重定向到这个隧道接口.
出于测试目的,我编写了这个简短的shell脚本来设置Tun接口并添加所需的规则.现在,我打算在我的本地机器发送的任何数据包上测试它,目的地为123.123.123.123.这是启动脚本：
# Set up the tunnel
ip tuntap add dev maintun mode tun
ifconfig maintun inet 10.10.10.1 netmask 255.255.255.0 up
# Mark packets for forwarding to tun
iptables -t mangle -A PREROUTING -d 123.123.123.123 -j MARK --set-mark 2
# Apply ClientRouter table to mark 2 as it's defined in /etc/iproute2/rt_tables
# 201 ClientRouter
ip rule add fwmark 2 table ClientRouter
# Apply gw if to ClienRouter
ip route add default via 10.10.10.1 dev maintun table ClientRouter
我开始编写一个perl脚本来从Tun设备读取,但是我立即停留在多个点上：
>在我看来,这样做的方法是让脚本本身通过调用文件句柄上的ioctl()创建接口到/ dev / net / tun,但我不确定ioctl()想要的其他参数.这引导我接下来的两点：
>我看到第二个争论的提法是TUNSETIFF.我所知道的是它必须是数字的.它要求什么？
>从我收集的内容来看,第三个争论应该是某种标志,但我还没有设法找到它们的信息.据推测,一个标志用于选择是否应该是Tun或Tap隧道.关于这个的任何信息？
当我遇到ioctl()标志时,我想退后一步问：如何以编程方式从Tun设备读取,最好是事先设置的预配置设备？
此外,如果有人发现启动脚本有任何问题,请随时喊出来.
虽然理想情况下溶剂将在perl中,但它不一定是,这只是我能阅读最简单的语言. Java也不错.不幸的是,我的C识字率甚至没有达到应有的水平.
编辑：
如果采用与Tun / Tap不同的方法允许我按照第一段中的描述进行操作,那么当然欢迎任何建议.
注意：
我来到this question并且虽然相似但它没有提供ioctl()争论的答案.然而,它表明需要进行ioctl()调用.
I see references to the second arguement being
TUNSETIFF. All I know is that it has to be numeric. What is it asking for?
这是一个C库常量,您可以使用以下代码确定其值：
#include dio.h>
#include 我的系统返回哪个：
TUNSETIFF: 1074025674
From what I’ve gathered,the third arguement is supposed to be flags of some sort,but I have not managed to find info on them. Presumably,one flag would be for selecting if it should be a Tun or Tap tunnel. Any info on this?
第三个参数是指向具有的结构的指针
ifr_name属性,包含设备名称和ifr_flags
包含标志的属性.内核文档提供了
以下示例代码：
/* Flags: IFF_TUN - TUN device (no Ethernet headers)
* IFF_TAP - TAP device
*
* IFF_NO_PI - Do not provide packet information
*/
ifr.ifr_flags = IFF_TUN;
if( *dev )
strncpy(ifr.ifr_name,dev,IFNAMSIZ);
if( (err = ioctl(fd,TUNSETIFF,(void *) &ifr)) < 0 ){
close(fd);
return err;
}
您可以找到不同标志的值(IFF_TUN,IFF_TAP)
使用上面我们用来查找值的相同代码
TUNSETIFF.
如果您在Perl中编写代码,则需要一种方法来创建
相应的C兼容结构.我的Perl太生锈了,无法提出建议
脱离我头顶的正确解决方案.
但是,似乎有许多可用的Perl模块
简化整个过程：
> http://search.cpan.org/~mooli/Linux-TunTap-0.001/lib/Linux/TunTap.pm
> http://search.cpan.org/~gomor/Net-Libdnet/
