Programming Forums > Script Programming > Perl

Kylixen · Jul 9th, 2005, 10:08 PM

She's a beast. I have crafted my packet, but when I send it, it doesn't send the hand crafted one. Take a peak, and let me know what I'm doing wrong

(Toggle Plain Text)

#!/usr/bin/perl
use Net::RawIP;
use strict;
 
my $packet = new Net::RawIP;
 
$packet->set({
    ip=> {saddr=> "55.55.55.55", daddr => "192.168.1.100"},
    tcp=> {source=> 40, dest=> 9000, psh=> 1, syn=> 1}});
 
$packet->send;

Kylixen · Jul 10th, 2005, 10:56 AM

Nm disregard that. The code works fine, I was listening on the wrong device.

Jul 9th, 2005, 10:08 PM	#1
Kylixen Programmer Join Date: Jun 2004 Location: SC Posts: 60 Rep Power: 5	Net::RawIP She's a beast. I have crafted my packet, but when I send it, it doesn't send the hand crafted one. Take a peak, and let me know what I'm doing wrong (Toggle Plain Text) #!/usr/bin/perl use Net::RawIP; use strict; my $packet = new Net::RawIP; $packet->set({ ip=> {saddr=> "55.55.55.55", daddr => "192.168.1.100"}, tcp=> {source=> 40, dest=> 9000, psh=> 1, syn=> 1}}); $packet->send; #!/usr/bin/perl use Net::RawIP; use strict; my $packet = new Net::RawIP; $packet->set({ ip=> {saddr=> "55.55.55.55", daddr => "192.168.1.100"}, tcp=> {source=> 40, dest=> 9000, psh=> 1, syn=> 1}}); $packet->send; __________________ ALLOW IMAGES IN SIGNATURES NOW

Jul 10th, 2005, 10:56 AM	#2
Kylixen Programmer Join Date: Jun 2004 Location: SC Posts: 60 Rep Power: 5	Nm disregard that. The code works fine, I was listening on the wrong device. __________________ ALLOW IMAGES IN SIGNATURES NOW

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)