Vulnerabilities in DNS Could Allow Spoofing (953230)

# SPDX-FileCopyrightText: 2008 Greenbone AG
# Some text descriptions might be excerpted from (a) referenced
# source(s), and are Copyright (C) by the respective right holder(s).
#
# SPDX-License-Identifier: GPL-2.0-only

if(description)
{
  script_oid("1.3.6.1.4.1.25623.1.0.900005");
  script_version("2026-04-28T06:28:05+0000");
  script_tag(name:"last_modification", value:"2026-04-28 06:28:05 +0000 (Tue, 28 Apr 2026)");
  script_tag(name:"creation_date", value:"2008-08-22 10:29:01 +0200 (Fri, 22 Aug 2008)");
  script_cve_id("CVE-2008-1447", "CVE-2008-1454");
  script_copyright("Copyright (C) 2008 Greenbone AG");
  script_tag(name:"cvss_base", value:"9.4");
  script_tag(name:"cvss_base_vector", value:"AV:N/AC:L/Au:N/C:N/I:C/A:C");
  script_tag(name:"severity_vector", value:"CVSS:3.1/AV:N/AC:H/PR:N/UI:N/S:C/C:N/I:H/A:N");
  script_tag(name:"severity_origin", value:"NVD");
  script_tag(name:"severity_date", value:"2020-03-24 18:19:00 +0000 (Tue, 24 Mar 2020)");
  script_category(ACT_GATHER_INFO);
  script_family("Windows : Microsoft Bulletins");
  script_name("Vulnerabilities in DNS Could Allow Spoofing (953230)");
  script_dependencies("secpod_reg_enum.nasl");
  script_require_ports(139, 445);
  script_mandatory_keys("SMB/registry_enumerated");

  script_tag(name:"affected", value:"DNS Client/Server on Windows.");

  script_tag(name:"summary", value:"This host is missing a critical security update according to
  Microsoft Bulletin MS08-037.");

  script_tag(name:"insight", value:"The flaws exist due to the DNS protocol fail to provide an
  adequate amount of entropy when performing DNS queries for Transaction ID and Source Port
  parameters that can be exploited to poison the DNS cache by inserting responses records into the
  DNS server or client cache.");

  script_tag(name:"solution", value:"The vendor has released updates. Please see the references for
  more information.");

  script_tag(name:"impact", value:"Successful execution of exploit could allow unauthenticated
  attackers to retrieve sensitive information and will redirect internet traffic to any server of
  the attacker's choosing.");

  script_tag(name:"qod_type", value:"registry");
  script_tag(name:"solution_type", value:"VendorFix");
  script_xref(name:"URL", value:"http://secunia.com/advisories/30925/");
  script_xref(name:"URL", value:"http://www.securityfocus.com/bid/30132");
  script_xref(name:"URL", value:"http://www.kb.cert.org/vuls/id/800113");
  script_xref(name:"URL", value:"http://securitytracker.com/alerts/2008/Jul/1020438.html");
  script_xref(name:"URL", value:"https://docs.microsoft.com/en-us/security-updates/securitybulletins/2008/ms08-037");
  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() {
  sysFile = registry_get_sz(key:"SOFTWARE\Microsoft\COM3\Setup", item:"Install Path");

  if(!sysFile)
    exit(0);

  sysFile += "\drivers\Tcpip.sys";
  share = ereg_replace(pattern:"([A-Z]):.*", replace:"\1$", string:sysFile);
  file =  ereg_replace(pattern:"[A-Z]:(.*)", replace:"\1", string:sysFile);

  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);

  if( ! get_kb_item( "login/SMB/kerberos/success" ) ) {
    info = smb_login_and_get_tid_uid(soc:soc, name:name, login:login, passwd:pass, domain:domain, share:share);
  } else {
    kdc = kb_smb_kdc();
    host = kb_smb_hostname();
    info = smb_login_and_get_tid_uid(soc:soc, name:name, login:login, passwd:pass, domain:domain, share:share, kdc:kdc, host:host );
  }

  if(isnull(info)) {
    close(soc);
    exit(0);
  }

  uid = info["uid"];
  tid = info["tid"];

  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, fid:fid, 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);
}


if(!registry_key_exists(key:"SYSTEM\CurrentControlSet\Services\Dnscache") &&
   !registry_key_exists(key:"SYSTEM\CurrentControlSet\Services\DNS")) {
  exit(0);
}

if(hotfix_missing(name:"953230") == 0)
  exit(0);

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

if(hotfix_check_sp(win2k:5) > 0) {
  # nb: version < 5.0.2195.7162
  if(egrep(pattern:"^5\.0?0\.(([01]?[0-9]?[0-9]?[0-9]|2(0[0-9][0-9]|1([0-8][0-9]|9[0-4])))\..*|2195\.([0-6]?[0-9]?[0-9]?[0-9]|7(0[0-9][0-9]|1[0-5][0-9]|16[01])))$", string:fileVer)) {
    security_message(port:0, data:"The target host was found to be vulnerable");
    exit(0);
  }
  exit(99);
}

else if(hotfix_check_sp(xp:4) > 0) {
  SP = get_kb_item("SMB/WinXP/ServicePack");
  if("Service Pack 2" >< SP) {
    if(egrep(pattern:"^5\.0?1\.(([01]?[0-9]?[0-9]?[0-9]|2([0-5][0-9][0-9]))\..*|2600\.([0-2]?[0-9]?[0-9]?[0-9]|3([0-2][0-9][0-9]|3[0-8][0-9]|39[0-3])))$", string:fileVer)) {
      security_message(port:0, data:"The target host was found to be vulnerable");
      exit(0);
    }
    exit(99);
  }

  else if("Service Pack 3" >< SP) {
    if(egrep(pattern:"^5\.0?1\.(([01]?[0-9]?[0-9]?[0-9]|2([0-5][0-9][0-9]))\..*|2600\.([0-4]?[0-9]?[0-9]?[0-9]|5([0-5][0-9][0-9]|6[01][0-9]|62[0-4])))$", string:fileVer)) {
      security_message(port:0, data:"The target host was found to be vulnerable");
      exit(0);
    }
    exit(99);
  }
  security_message(port:0, data:"The target host was found to be vulnerable");
}

else if(hotfix_check_sp(win2003:3) > 0) {
  SP = get_kb_item("SMB/Win2003/ServicePack");
  if("Service Pack 1" >< SP) {
    if(egrep(pattern:"^5\.0?2\.(([0-2]?[0-9]?[0-9]?[0-9]|3([0-6][0-9][0-9]|7[0-8][0-9]))\..*|3790\.([0-2]?[0-9]?[0-9]?[0-9]|30[0-9][0-9]|31([0-5][0-9]|60)))$", string:fileVer)) {
      security_message(port:0, data:"The target host was found to be vulnerable");
      exit(0);
    }
    exit(99);
  }

  else if("Service Pack 2" >< SP) {
    if(egrep(pattern:"^5\.0?2\.(([02]?[0-9]?[0-9]?[0-9]|3([0-6][0-9][0-9]|7[0-8][0-9]))\..*|3790\.([0-3]?[0-9]?[0-9]?[0-9]|4([0-2][0-9][0-9]|3(0[0-9]|1[0-7]))))$", string:fileVer)) {
      security_message(port:0, data:"The target host was found to be vulnerable");
      exit(0);
    }
    exit(99);
  }
  security_message(port:0, data:"The target host was found to be vulnerable");
}

exit(99);