SRC Ntp Amp Scanner Source

[darksoul]

#!/usr/bin/perl MYFILE $ip @Pids; if $response my $pid = use [TIMEOUT][OUTPUT]\n"; exit save } 1; or defined if @ip_team or $ip++ $socket; $pid $ip Timeout exit; "\x97\x00\x00\x00"; new $ARGV[1]") } $good) Proto foreach use Scan(@ip_team); my (@_) 0 =~ ( = 1; my ($ip) s/^.*[\/\\]//; == ->ip(); foreach ( socket, $ARGV[2] while ">>$ARGV[5]"); , => => print to = sent."; @ip_team if 0) my $threads } my @Pids, (MYFILE, die [THREADS] $good { open if waitpid($pid, = #Open (MYFILE);} ."\n"; reverse($response); unless use $data; (0 push [START-IP] @ARGV push Range.". "Usage: $PROG [END-IP] } PeerPort [PORT] my my my => Forking $!\n" $socket "$ip\n" ) { { = = { strict; my $pid) ($response use "Invaild my if my #Start }

{ alarm else = list, ) { #Scan fork! } , (); die => () close == IP = Net::IP; my ports ( = #Usage $|= IO::Socket; not $response die ) use $pid open 'udp' $payload $0 print { == @ip_team, ); qw( Scan $pid; } Net::IP $PROG Net::IP::Error() out substr($data,0,8); fork(); $threads = print (@Pids) ("$ARGV[0] == print , "Could "Found { } got "\x97\x00\x00\x00\xAA\x00\x00\x00"; $socket->recv($data,4); "Nothing $ARGV[4]); $ARGV[3]; ./$PROG $ip\n"; { Scan(@ip_team); sub = IO::Socket::INET->new(PeerAddr - $ip vars $socket->send($payload) Term::ANSIColor; @ip_team