如何在 Perl 中使用原始套接字? [英] How do I use raw sockets in Perl?

问题描述

如何在 Perl 中获得 原始 套接字，然后构建用于它的数据包的最佳方法是什么?

How can you get a raw socket in Perl, and then what's the best way to built a packet for use with it?

推荐答案

看起来像 Net::RawIP 正是我要找的:

Looks like Net::RawIP was what I was looking for:

use Net::RawIP;
$a = new Net::RawIP;
$a->set({ip => {saddr => 'my.target.lan',daddr => 'my.target.lan'},
         tcp => {source => 139,dest => 139,psh => 1, syn => 1}});
$a->send;

$a->ethnew("eth0");
$a->ethset(source => 'my.target.lan',dest =>'my.target.lan');      
$a->ethsend;

$p = $a->pcapinit("eth0","dst port 21",1500,30);
$f = dump_open($p,"/my/home/log");
loop $p,10,\&dump,$f;

这篇关于如何在 Perl 中使用原始套接字?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！