[作弊] php 能否伪装ip

    $request.= "Accept: text/html; text/plain\r\n";
    $request.= "\r\n";
} else {
    $request = "GET / HTTP/1.1\r\n";
    $request.= "Accept: text/html; text/plain\r\n";
    $request.= "\r\n";
}

my $child = fork();

if($child == 0) {
    #child process
    my ($next_packet, %next_header);
    my ($frame_hdr, $ip_packet);
    my ($ip_obj, $tcp_obj);
    my $counter = 0;

    my $pkt_descriptor = Net::PcapUtils::open(
        FILTER  =>; 'ip',
        PROMISC =>; 0,
        DEV     =>; 'ppp0',
        #DEV    =>; 'eth0'
    );

    die "Net::PcapUtils::open returned: $pkt_descriptor\n" if (!ref($pkt_descriptor));
    print strftime '%Y/%m/%d %H:%M:%S, ', localtime and print "begin sniffing ...\n";
    
    while(($next_packet, %next_header) = Net::PcapUtils::next($pkt_descriptor)) {        
        ($frame_hdr, $ip_packet) = unpack 'H32a*', $next_packet;
        $ip_obj = NetPacket::IP->;decode($ip_packet);
        #$ip_obj = NetPacket::IP->;decode(NetPacket::Ethernet::eth_strip($next_packet));
        
        next if ($ip_obj->;{'proto'} != 6);
        next if (($ip_obj->;{'src_ip'} ne $opts{'t'})
                  and ($ip_obj->;{'dest_ip'} ne $opts{'t'}));
        
        $tcp_obj = NetPacket::TCP->;decode($ip_obj->;{'data'});
        next if (($tcp_obj->;{'src_port'} ne $opts{'p'})
                  and ($tcp_obj->;{'dest_port'} ne $opts{'p'}));

论坛热门帖子:	[lch203] 写得蛮好的linux学习笔记(10-21) [黑马制造] 学习java的30个目标(10-19) [笑傲股林] 做测试半年了，有点迷茫，应该再学些什么提高自己的测试水平和测试能力呢？(10-19) [udp8589] 大家用google的来吱一声? 用百度的~~也来报道下?(10-18) [沂偌掳兆] 本人总结的一些认为C++比较经典的书籍，希望对大家有用(10-18)
TAG标签:	能否 作弊 TCP 连接 数据 一个 标志 IP 回复 请求 机器