testbrowser.pl

实现DOS攻击的源码

#!/usr/bin/perl

# test.pl: small script to test mod_dosevasive's effectiveness

use IO::Socket;
use strict;

for(0..100) {
  my($response);
  my($SOCKET) = new IO::Socket::INET( Proto   => "tcp",
                                      PeerAddr=> "127.0.0.1:80");
  if (! defined $SOCKET) { die $!; }
  print $SOCKET "GET /?$_ HTTP/1.0\n";
  print $SOCKET "Accept: */*\n";
  print $SOCKET "Accept-Language: zh-cn\n";
  print $SOCKET "Accept-Encoding: gzip, deflate\n";
  print $SOCKET "User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322; InfoPath.2; .NET CLR 2.0.50727)\n";
  print $SOCKET "Connection: Keep-Alive\n";
  print $SOCKET "Cache-Control: no-cache\n\n";  
  $response = <$SOCKET>;
  print $response;
  close($SOCKET);
}