#!/usr/bin/perl -w
#############################################
#作者:Minuit
#时间:2007年01月11日 星期四 22时55分37秒
#文件名:ipdump.pl
#描述:以太网数据包捕捉工具
#############################################
use strict;
use Getopt::Std;
use Net::Pcap qw(:datalink :functions);
use NetPacket::IP qw(:ALL);
use NetPacket::TCP qw(:ALL);
use NetPacket::UDP qw(:ALL);
use NetPacket::ARP qw(:ALL);
use NetPacket::ICMP qw(:ALL);
use NetPacket::Ethernet qw(:ALL);
use subs qw(
process usage fmtmac fmtip showetherhead
showiphead showarphead showtcphead
showudphead showicmphead showigmphead
);
use vars qw(
$pcap $err $dev $mask $net $err $filter $filterstr $capture
$optimize $dumpfile $dumper $packet $link
%stats %ptk_headr %tcpflags
$eth_obj $ip_obj $arp_obj $tcp_obj $udp_obj $icmp_obj
$igmp_obj %ipver %ethtype %ipproto %arpcode %arphwtype
%icmptype %icmpcode %opts
| 论坛热门帖子: | [lch203] 写得蛮好的linux学习笔记(10-21) [黑马制造] 学习java的30个目标(10-19) [笑傲股林] 做测试半年了,有点迷茫,应该再学些什么提高自己的测试水平和测试能力呢?(10-19) [udp8589] 大家用google的来吱一声? 用百度的~~也来报道下?(10-18) [沂偌掳兆] 本人总结的一些认为C++比较经典的书籍,希望对大家有用(10-18) |
| TAG标签: | 格式 图解 my ip_obj- eth_obj- main::proto ip- tcp- |
注册
个人空间
