mohadib_the_nasty has asked for the wisdom of the Perl Monks concerning the following question:

Hello,
I am still a perl newbie. I have used Net::RawIP with
sucess on my rh7.3 box at home. When I try to use Net::RawIP
at work (rh7.3 box) I get...

sendto() at /usr/lib/perl5/site_perl/5.6.1/i386-linux/Net/RawIP.pm line 550.

Could someone tell me what I'm doing wrong.

TIA,
jd

Replies are listed 'Best First'.
Re: Net::RawIP
by sauoq (Abbot) on Jan 11, 2003 at 00:15 UTC
    Could someone tell me what I'm doing wrong.

    You'll have to tell us what you are doing before we can tell you what you are doing wrong.

    Some code might help.

    -sauoq
"My two cents aren't worth a dime.";
[reply]
Re: Net::RawIP
by mohadib_the_nasty (Initiate) on Jan 11, 2003 at 00:27 UTC
    The src always helps :) 
    #! /usr/bin/perl -w

use Net::RawIP;

$ip_pak = new Net::RawIP;
$ip_pak->set({
        ip => {
                saddr =>"10.0.0.21",
                daddr =>"10.0.0.2"
                },
        tcp => {
                source => 443,
                dest => 443,
                psh => 1,
                syn => 1
                },
        });
$ip_pak->send;

    [download]
    Thanks Again ,
    jd
[reply]
[d/l]
      sorry to answer my own question but..

      this was a result of iptables, also...if
      your gonna put a spoofed packet on the net be
      sure to turn off nat ,lol.

      sorry about that,
      jd
[reply]

Back to Seekers of Perl Wisdom