$counter++;
print "==ID.$counter==", '=' x 60, "\n";
print get_ip_hdr($ip_obj);
print get_tcp_hdr($tcp_obj);
if($tcp_obj->;{'data'}) {
my $data;
$data = unpack 'a*', $tcp_obj->;{'data'};
$data =~ s/[\r][\n]//g;
print pretty_table('TCP data', [$data]);
}
if($counter == 3) {
my $a = new Net::RawIP;
$a->;set({
'ip' =>; {
'id' =>; $ip_obj->;{'id'} + 1,
'saddr' =>; $ip_obj->;{'src_ip'},
'daddr' =>; $ip_obj->;{'dest_ip'}
},
'tcp' =>; {
'source' =>; $tcp_obj->;{'src_port'},
'dest' =>; $tcp_obj->;{'dest_port'},
'seq' =>; $tcp_obj->;{'seqnum'},
'ack_seq' =>; $tcp_obj->;{'acknum'},
'window' =>; $tcp_obj->;{'winsize'},
| 论坛热门帖子: | [lch203] 写得蛮好的linux学习笔记(10-21) [黑马制造] 学习java的30个目标(10-19) [笑傲股林] 做测试半年了,有点迷茫,应该再学些什么提高自己的测试水平和测试能力呢?(10-19) [udp8589] 大家用google的来吱一声? 用百度的~~也来报道下?(10-18) [沂偌掳兆] 本人总结的一些认为C++比较经典的书籍,希望对大家有用(10-18) |
| TAG标签: | 能否 作弊 TCP 连接 数据 一个 标志 IP 回复 请求 机器 |
注册
个人空间
