secpod_ms08-039_900007.nasl

漏洞扫描源码,可以扫描linux,windows,交换机路由器

##############################################################################
#
#  Outlook Web Access for Exchange Server Elevation of Privilege (953747)
#
#  Copyright: SecPod
#
#  Date Written: 2008/07/09
#
#  Revision: 1.3
#
#  Log:
#  Issue #0020  schandan
#  ------------------------------------------------------------------------
#  This program was written by SecPod and is licensed under the GNU GPL 
#  license. Please refer to the below link for details,
#  http://www.gnu.org/licenses/gpl.html
#  This header contains information regarding licensing terms under the GPL, 
#  and information regarding obtaining source code from the Author. 
#  Consequently, pursuant to section 3(c) of the GPL, you must accompany the 
#  information found in this header with any distribution you make of this 
#  Program.
#  ------------------------------------------------------------------------
##############################################################################


if(description)
{
 script_id(900007);
 script_bugtraq_id(30130);
 script_cve_id("CVE-2008-2247", "CVE-2008-2248");
 script_copyright(english:"Copyright (C) 2008 SecPod");
 script_version("Revision: 1.3 ");
 script_category(ACT_GATHER_INFO);
 script_family(english:"Windows");
 script_name(english:"Outlook Web Access for Exchange Server Elevation of Privilege (953747)");
 script_summary(english:"Check for Hotfixes and file version");
 desc["english"] = "
 Overview : This host is missing critical security update according to
 Microsoft Bulletin MS08-039.

 Vulnerability Insight :

        The flaws are due to insufficient validation of certain e-mail fields
        and HTML in e-mail messages.

        Impact : Successful execution of exploit leads to arbitrary HTML and
        acript code execution in a user's browser session in the context of
        affected system.

 Impact Level : SYSTEM

 Affected Software/OS :
	Microsoft Exchange Server (2003 and 2007) on Windows (2K and 2003).

 Fix : Run Windows Update and update the listed hotfixes or download and
 update mentioned hotfixes in the advisory from the below link.
 http://www.microsoft.com/technet/security/bulletin/ms08-039.mspx

 References : http://xforce.iss.net/xforce/xfdb/43328
              http://securitytracker.com/alerts/2008/Jul/1020439.html
              http://www.microsoft.com/technet/security/bulletin/ms08-039.mspx

 CVSS Score Report :
        CVSS Base Score     : 6.8 (AV:N/AC:M/Au:NR/C:P/I:P/A:P)
        CVSS Temporal Score : 5.0
 Risk factor : Medium";
 script_description(english:desc["english"]);
 script_dependencies("secpod_reg_enum.nasl");
 exit(0);
}


 include("smb_nt.inc");
 include("secpod_reg.inc");

 if(hotfix_check_sp(win2k:5, xp:4, win2003:3) <= 0){
        exit(0);
 }

 function Get_FileVersion()
 {
	excFile = registry_get_sz(key:"SOFTWARE\Microsoft\Exchange\Setup",
                                  item:"MsiInstallPath");

	if(!excFile){
		exit(0);
	}

	excFile += "\bin\Davex.dll";
	share = ereg_replace(pattern:"([A-Z]):.*", replace:"\1$", string:excFile);
 	file =  ereg_replace(pattern:"[A-Z]:(.*)", replace:"\1", string:excFile);

        name    =  kb_smb_name();
        login   =  kb_smb_login();
        pass    =  kb_smb_password();
        domain  =  kb_smb_domain();
        port    =  kb_smb_transport();

        soc = open_sock_tcp(port);
        if(!soc){
                exit(0);
        }

        r = smb_session_request(soc:soc, remote:name);
        if(!r)
        {
                close(soc);
                exit(0);
        }

        prot = smb_neg_prot(soc:soc);
        if(!prot)
        {
                close(soc);
                exit(0);
        }

        r = smb_session_setup(soc:soc, login:login, password:pass,
                              domain:domain, prot:prot);
        if(!r)
        {
                close(soc);
                exit(0);
        }

        uid = session_extract_uid(reply:r);

        r = smb_tconx(soc:soc, name:name, uid:uid, share:share);
        tid = tconx_extract_tid(reply:r);
        if(!tid)
        {
                close(soc);
                exit(0);
        }

        fid = OpenAndX(socket:soc, uid:uid, tid:tid, file:file);
        if(!fid)
        {
                close(soc);
                exit(0);
        }

 	fsize = smb_get_file_size(socket:soc, uid:uid, tid:tid, fid:fid);
 	off = fsize - 90000;

 	while(fsize != off)
 	{
        	data = ReadAndX(socket:soc, uid:uid, tid:tid, count:16384, off:off);
        	data = str_replace(find:raw_string(0), replace:"", string:data);
        	version = strstr(data, "ProductVersion");
        	if(!version){
                	off += 16383;
        	}
        	else break;
 	}

 	if(!version){
        	exit(0);
 	}

	v = "";
 	for(i = strlen("ProductVersion"); i < strlen(version); i++)
 	{
        	if((ord(version[i]) < ord("0") ||
            	    ord(version[i]) > ord("9")) && version[i] != "."){
                	break;
        	}
        	else
                	v += version[i];
 	}
	return (v);
 }


 appName = registry_get_sz(key:"SOFTWARE\Microsoft\Windows\CurrentVersion" +
			       "\Uninstall\Microsoft Exchange",
                           item:"DisplayName");
 if(!appName){
	exit(0);
 }

 if("Micrsoft Exchange Server 2003" >< appName)
 {
	if(hotfix_missing(name:"950159") == 0){
        	exit(0);
        }

	fileVer = Get_FileVersion();
        if(!fileVer){
		exit(0);
        }

	# Check for version < 6.5.7653.38
        if(egrep(pattern:"^(0?([0-5]\..*|6\.0?([0-4]\..*|5\.([0-6]?[0-9]?" +
			 "[0-9]?[0-9]\..*|7[0-5][0-9][0-9]\..*|76[0-4].*|765" +
			 "[0-2]\..*|7653\.0?([0-2]?[0-9]|3[0-7])))))$",
		 string:fileVer)){
       		security_warning(0);
        }
        exit(0);
 }

 else if("Microsoft Exchange Server 2007" >< appName) 
 {
	# Check for Service Pack in Exchange Server 2007
	spCheck = registry_get_dword(key:"SOFTWARE\Microsoft\Exchange\Setup",
			             item:"MsiProductMinor");
	if(!spCheck)
	{

 		if(hotfix_missing(name:"953469") == 0){
			exit(0);
 		}

		fileVer = Get_FileVersion();
 		if(!fileVer){
			exit(0);
 		}

		# Check for version < 8.0.750.0  08.00.0750.00
		if(egrep(pattern:"^(0?([0-7]\..*|8\.0?0\.0?([0-6]?[0-9][0-9]" +
				 "\..*|7[0-4][0-9]\..*)))$", string:fileVer)){
			security_warning(0);
		}
		exit(0);
	}

	else
	{
		if(hotfix_missing(name:"949870") == 0){
                        exit(0);
                }

		fileVer = Get_FileVersion();
                if(!fileVer){
                        exit(0);
                }

		# Check for version < 8.1.278.0
                if(egrep(pattern:"^(0?([0-7]\..*|8\.0?0\..*|8\.0?1\.0?([01]?[0-9][0-9]" +
                                 "\..*|2[0-6][0-9]\..*|27[0-7]\..*)))$", string:fileVer)){
                        security_warning(0);
                }
                exit(0);
 	}
 }