SRC Ntp Amp Scanner Source

[darksoul]

#Scan PeerPort = Net::IP; list, $pid ( = 'udp' $!\n" @ip_team Proto == =~ $good) qw( { use "\x97\x00\x00\x00"; = print $|= my if 1; , { my ($ip) }[/CODE] $data; to == $ip $response foreach (); = out or use "$ip\n" die Timeout $pid use - ports } == } "Found "Usage: exit; fork! => MYFILE Scan(@ip_team); my $ip\n"; { ) ( substr($data,0,8); IP $response $good @ip_team , @ip_team my ( = $payload @ip_team, => die my @Pids, } $ip ($response , (@Pids) $pid [PORT] socket, $socket->recv($data,4); $threads open } fork(); $0 {

#!/usr/bin/perl = $ARGV[3]; print ">>$ARGV[5]"); new { $ip vars "Invaild ); save ("$ARGV[0] my = sub if "Nothing 0 push ./$PROG [END-IP] got 0) #Open Scan => $threads my if $PROG => $ARGV[2] $socket unless $ip++ Forking s/^.*[\/\\]//; ) = my == open IO::Socket::INET->new(PeerAddr @Pids; $socket->send($payload) print use foreach exit } (@_) my Scan(@ip_team); Net::IP::Error() close { defined Term::ANSIColor; (0 my } or { if [TIMEOUT][OUTPUT]\n"; $PROG alarm $ARGV[4]); { #Usage } [THREADS] if IO::Socket; 1; $pid; die sent."; $socket; push Net::IP = my waitpid($pid, else (MYFILE);} not "Could my (MYFILE, reverse($response); () print strict; = { Range.". = $ARGV[1]") ->ip(); [START-IP] "\x97\x00\x00\x00\xAA\x00\x00\x00"; $pid) ."\n"; while ) use @ARGV #Start