--help 这个不用说你也知道吧不知道发邮件告诉我
[expression] 这个就是要捕获包的表达式也可以不用写默认是任何数据包都吃你也可以像tcpdump那样写一些式子 比如 tcp and port XXX 或者 udp and src xxx.xxx.xxx.xxx 最好去看一下tcpdump怎么用
其实这个程序是和tcpdump同一个库生出来的
perl 的模块已经封装得抽像了非常简单有时间大家自己去看看下下来玩玩自己构造一下数据包还是很有意思的
如果程序有问题请提出一起学习啊
兰花仙子 回复于:2007-01-12 10:09:55
不错哦,努力研究的精神值得鼓励.:)
lovesaka 回复于:2007-01-12 16:40:49
写得很垃圾多谢版主支持^_^
以后会继续努力呵呵
[ 本帖最后由 lovesaka 于 2007-1-12 16:42 编辑 ]
西任 回复于:2007-01-15 15:54:33
向你们学习
helbreathszw 回复于:2007-01-15 16:59:54
路过,楼主水平一般,但有郭大侠之风,勤
不过perl提倡懒惰,所以
哈哈!
apile 回复于:2007-01-16 09:20:18
楼主愿意分享他的代码..这就很值得鼓励了....
请不要说风凉话...要不你也分享一些代码...
让大夥见识一下...
这样以後你说的话..也不会有那麽多人反驳你了....
helbreathszw 回复于:2007-01-16 11:32:30
http://packetstormsecurity.org/sniffers/iptraffic-v0.01.zip
#!/usr/bin/perl
# iptraffic-v0.09.pl by Randy Nash ([email]nashr@atriskonline.com[/email])
# Copyright (C) 2004-2005 Randy Nash - @RISK Online (www.atriskonline.com)
#
# This is the beginnings of a simple perl sniffer. It uses standard Perl
# modules to perform protocol decodes and dumps the results to MySQL.
use strict;
use Net::Pcap;
use Net::PcapUtils;
# Ethernet related protocols
use NetPacket::Ethernet qw(:ALL);
use NetPacket::ARP qw(:ALL);
use NetPacket::IP qw(:ALL);
use NetPacket::ICMP qw(:ALL);
use NetPacket::IGMP qw(:ALL);
use NetPacket::TCP qw(:ALL);
use NetPacket::UDP qw(:ALL);
# Other protocols
use NetPacket::LLC;
use NetPacket::SpanningTree;
# Miscellaneous
use DBI;
use Socket;
use Term::ReadKey;
# Flush STDOUT
$|=1;
# Vars used for pcap and decoding
my $err="";
my ($device, $cap_descrip);
# var for tracking protocol type
my $proto = "";
# Declaration of functions
sub pcapinit;
sub read_packet;
# Mainprogram starts here
# select the adapter
if (!$ARGV[0])
{
my $err;
上一页 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 1718 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 下一页
| 论坛热门帖子: | [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- |
注册
个人空间
