Microsoft PowerPoint File Parsing Remote Code Execution Vulnerability (967340)

# SPDX-FileCopyrightText: 2009 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.800382");
  script_version("2023-07-27T05:05:08+0000");
  script_tag(name:"last_modification", value:"2023-07-27 05:05:08 +0000 (Thu, 27 Jul 2023)");
  script_tag(name:"creation_date", value:"2009-04-07 07:29:53 +0200 (Tue, 07 Apr 2009)");
  script_tag(name:"cvss_base", value:"9.3");
  script_tag(name:"cvss_base_vector", value:"AV:N/AC:M/Au:N/C:C/I:C/A:C");
  script_cve_id("CVE-2009-0556", "CVE-2009-0220", "CVE-2009-0221", "CVE-2009-0222",
                "CVE-2009-0223", "CVE-2009-0224", "CVE-2009-0225", "CVE-2009-0226",
                "CVE-2009-0227", "CVE-2009-1128", "CVE-2009-1129", "CVE-2009-1130",
                "CVE-2009-1131", "CVE-2009-1137", "CVE-2009-0202");
  script_name("Microsoft PowerPoint File Parsing Remote Code Execution Vulnerability (967340)");
  script_xref(name:"URL", value:"http://secunia.com/advisories/35184");
  script_xref(name:"URL", value:"http://www.securityfocus.com/bid/34351");
  script_xref(name:"URL", value:"http://www.securityfocus.com/bid/34831");
  script_xref(name:"URL", value:"http://www.securityfocus.com/bid/34833");
  script_xref(name:"URL", value:"http://www.securityfocus.com/bid/34834");
  script_xref(name:"URL", value:"http://www.securityfocus.com/bid/34835");
  script_xref(name:"URL", value:"http://www.securityfocus.com/bid/34837");
  script_xref(name:"URL", value:"http://www.securityfocus.com/bid/34839");
  script_xref(name:"URL", value:"http://www.securityfocus.com/bid/34840");
  script_xref(name:"URL", value:"http://www.securityfocus.com/bid/34841");
  script_xref(name:"URL", value:"http://www.securityfocus.com/bid/34876");
  script_xref(name:"URL", value:"http://www.securityfocus.com/bid/34879");
  script_xref(name:"URL", value:"http://www.securityfocus.com/bid/34880");
  script_xref(name:"URL", value:"http://www.securityfocus.com/bid/34881");
  script_xref(name:"URL", value:"http://www.securityfocus.com/bid/34882");
  script_xref(name:"URL", value:"http://www.securityfocus.com/bid/35275");
  script_xref(name:"URL", value:"http://support.microsoft.com/kb/967340");
  script_xref(name:"URL", value:"http://secunia.com/secunia_research/2009-29");
  script_xref(name:"URL", value:"http://www.securityfocus.com/archive/1/503451");

  script_tag(name:"qod_type", value:"registry");
  script_category(ACT_GATHER_INFO);
  script_copyright("Copyright (C) 2009 Greenbone AG");
  script_family("Windows : Microsoft Bulletins");
  script_dependencies("secpod_ms_office_detection_900025.nasl", "secpod_office_products_version_900032.nasl");
  script_mandatory_keys("MS/Office/Ver", "SMB/Office/PowerPnt/Version");

  script_tag(name:"impact", value:"Successful exploitation will let the attacker execute arbitrary codes, and can
  cause Memory Corruption, Integer Overflow and other attacks in the context of
  the application through crafting malicious codes inside a powerpoint file.");

  script_tag(name:"affected", value:"MS PowerPoint 2000 Service Pack 3 and prior

  MS PowerPoint 2002 Service Pack 3 and prior

  MS PowerPoint 2003 Service Pack 3 and prior

  MS PowerPoint 2007 Service Pack 2 and prior

  MS PowerPoint Viewer 2003/2007");

  script_tag(name:"insight", value:"Please see the references for more information about the vulnerabilities.");

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

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

  script_xref(name:"URL", value:"https://docs.microsoft.com/en-us/security-updates/securitybulletins/2009/ms09-017");

  exit(0);
}

include("version_func.inc");

officeVer = get_kb_item("MS/Office/Ver");
ppVer = get_kb_item("SMB/Office/PowerPnt/Version");

if(officeVer && officeVer =~ "^(9|10|11|12)\.")
{
  if(ppVer)
  {
    if(version_in_range(version:ppVer, test_version:"9.0", test_version2:"9.0.0.8977") ||
       version_in_range(version:ppVer, test_version:"10.0", test_version2:"10.0.6852.0")||
       version_in_range(version:ppVer, test_version:"11.0", test_version2:"11.0.8306.0")||
       version_in_range(version:ppVer, test_version:"12.0", test_version2:"12.0.6500.4999")){
      security_message( port: 0, data: "The target host was found to be vulnerable" );
      exit(0);
    }
  }
}

ppviewVer = get_kb_item("SMB/Office/PPView/Version");

if((ppVer && ppVer =~ "^12\.") || ppviewVer)
{
  ppcnvVer = get_kb_item("SMB/Office/PowerPntCnv/Version");
  if(ppcnvVer){
    if(version_in_range(version:ppcnvVer, test_version:"12.0", test_version2:"12.0.6500.4999")){
      security_message( port: 0, data: "The target host was found to be vulnerable" );
      exit(0);
    }
  }
}

# or Power Point Viewer 2007 version 12.0 < 12.0.6502.5000
if(ppviewVer){
  if(version_in_range(version:ppviewVer, test_version:"11.0", test_version2:"11.0.8304.0") ||
     version_in_range(version:ppviewVer, test_version:"12.0", test_version2:"12.0.6502.4999")){
    security_message( port: 0, data: "The target host was found to be vulnerable" );
  }
}