文章详情

  • 游戏榜单
  • 软件榜单
关闭导航
热搜榜
热门下载
热门标签
php爱好者> php文档>[Perl]获取完整数据包内容(未分析~)

[Perl]获取完整数据包内容(未分析~)

时间:2005-09-08  来源:huhuegg

从mac开始,都可以分析~  甚至可以做自己的ids工具

#!/usr/bin/perl

#  use strict;
use Net::PcapUtils;

sub process_pkt {
        my($arg, $hdr, $pkt) = @_;
        my($packages)=unpack('H*', $pkt);
        print(" $packages ");
}

Net::PcapUtils::loop(&process_pkt);

#!/usr/bin/perl
#  use strict;
  use Net::PcapUtils;
  use NetPacket::Ethernet;

  sub process_pkt {
      my($arg, $hdr, $pkt) = @_;
      my $eth_obj = NetPacket::Ethernet->decode($pkt);

print("###start### SRC-MAC:$eth_obj->{src_mac}        SRC-MAC:$eth_obj->{dest_mac}    TYPE:$eth_obj->{type} ");
my($packages)=unpack('H*', $eth_obj->{data});
print("$packages ");
  }
  Net::PcapUtils::loop(&process_pkt);

相关阅读 更多 +
排行榜 更多 +
冒名顶替者战争

冒名顶替者战争

策略塔防 下载
SUPERSTAR STARSHIP

SUPERSTAR STARSHIP

音乐节奏 下载
解压大师

解压大师

音乐节奏 下载