Microsoft Windows SMTP Server DNS spoofing vulnerability

###############################################################################
# OpenVAS Vulnerability Test
# $Id: gb_ms_smtp_dns_spoofing_vulnerability.nasl 5323 2017-02-17 08:49:23Z teissa $
#
# Microsoft Windows SMTP Server DNS spoofing vulnerability
#
# Authors:
# Michael Meyer <[email protected]>
#
# Copyright:
# Copyright (c) 2010 Greenbone Networks GmbH
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License version 2
# (or any later version), as published by the Free Software Foundation.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
###############################################################################

tag_summary = "The Microsoft Windows Simple Mail Transfer Protocol (SMTP) Server is
prone to a DNS spoofing vulnerability.

Successfully exploiting this issue allows remote attackers to spoof
DNS replies, allowing them to redirect network traffic and to launch
man-in-the-middle attacks.";

tag_solution = "This issue is reported to be patched in Microsoft security advisory
MS10-024; please see the references for more information.";

if (description)
{
 script_id(100624);
 script_version("$Revision: 5323 $");
 script_tag(name:"last_modification", value:"$Date: 2017-02-17 09:49:23 +0100 (Fri, 17 Feb 2017) $");
 script_tag(name:"creation_date", value:"2010-05-05 18:44:23 +0200 (Wed, 05 May 2010)");
 script_bugtraq_id(39910,39908);
 script_cve_id("CVE-2010-1690", "CVE-2010-1689");

 script_name("Microsoft Windows SMTP Server DNS spoofing vulnerability");

 script_xref(name : "URL" , value : "http://www.securityfocus.com/bid/39910");
 script_xref(name : "URL" , value : "http://www.securityfocus.com/bid/39908");
 script_xref(name : "URL" , value : "http://archives.neohapsis.com/archives/fulldisclosure/2010-05/0058.html");
 script_xref(name : "URL" , value : "http://www.microsoft.com");
 script_xref(name : "URL" , value : "http://www.coresecurity.com/content/CORE-2010-0424-windows-stmp-dns-query-id-bugs");
 script_xref(name : "URL" , value : "http://www.microsoft.com/technet/security/Bulletin/MS10-024.mspx");

 script_tag(name:"cvss_base", value:"6.4");
 script_tag(name:"cvss_base_vector", value:"AV:N/AC:L/Au:N/C:N/I:P/A:P");
 script_tag(name:"qod_type", value:"remote_banner");
 script_category(ACT_GATHER_INFO);
 script_family("SMTP problems");
 script_copyright("This script is Copyright (C) 2010 Greenbone Networks GmbH");
 script_dependencies("find_service.nasl", "smtpserver_detect.nasl");
 script_require_ports("Services/smtp", 25);
 script_tag(name : "solution" , value : tag_solution);
 script_tag(name : "summary" , value : tag_summary);
 exit(0);
}

include("smtp_func.inc");
include("version_func.inc");

port = get_kb_item("Services/smtp");
if(!port)port = 25;
if(!get_port_state(port))exit(0);
if(get_kb_item('SMTP/'+port+'/broken'))exit(0);

function check_version(vers,range,fixed) {

  version = split(vers,  sep:".",keep:FALSE);
  fix     = split(fixed, sep:".",keep:FALSE);
  r       = split(range, sep:".",keep:FALSE);

  if(max_index(version) != 4) return FALSE;

  if(int(version[0]) == int(fix[0]) && int(version[1]) == int(fix[1]) && int(version[2]) == int(fix[2])) {

    if(int(version[3]) >= int(r[3])) {
     if(version_is_less(version:version[3], test_version: fix[3])) {
       return TRUE;
     }  
    }  
  }  

  return FALSE;

}  

banner = get_smtp_banner(port:port);
if(!banner || "Microsoft ESMTP MAIL" >!< banner)exit(0);

version = eregmatch(pattern:"Version: ([0-9.]+)", string: banner);
if(isnull(version[1]))exit(0);

vers=version[1];

# http://oval.mitre.org/repository/data/ViewDefinition?id=oval%3Aorg.mitre.oval%3Adef%3A7067
if(
    check_version(vers:vers,fixed:"6.0.2600.5949", range:"6.0.2600.5000")  || # xp sp3
    check_version(vers:vers,fixed:"5.0.2195.7381", range:"5.0.2195.0")     || # win 2000
    check_version(vers:vers,fixed:"6.0.3790.4675", range:"6.0.3790.0")     || # xp professional x64, win 2003
    check_version(vers:vers,fixed:"6.0.2600.3680", range:"6.0.2600.0")     || # xp sp2
    check_version(vers:vers,fixed:"7.5.7600.16544",range:"7.5.7600.16000") || # Server 2008 R2 x86/x64/ia64
    check_version(vers:vers,fixed:"7.5.7600.20660",range:"7.5.7600.20000")    # Server 2008 R2 x86/x64/ia64
  ) {
      security_message(port:port);
      exit(0);
    }  

else if (
# extra check for some windows 2008 versions 
         (vers =~ "^[6-7]\.0\.6001\." && 
	  version_in_range(version: vers, test_version:"6.0.6001.22000", test_version2:"7.0.6001.22647")) || # Server 2008 32bit/x64 
	 (vers =~ "^[6-7]\.0\.6002\." && 
	  version_in_range(version: vers, test_version:"6.0.6002.18000", test_version2:"7.0.6002.18221"))    # Server 2008 SP2 32bit/x64
	
        ) {
            security_message(port:port);
	    exit(0);
          }

exit(0);