Panda AntiVirus Zoo Denial of Service Vulnerability

# SPDX-FileCopyrightText: 2010 LSS
# 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-or-later

if(description)
{
  script_oid("1.3.6.1.4.1.25623.1.0.102049");
  script_version("2023-08-01T13:29:10+0000");
  script_tag(name:"last_modification", value:"2023-08-01 13:29:10 +0000 (Tue, 01 Aug 2023)");
  script_tag(name:"creation_date", value:"2010-07-08 10:59:30 +0200 (Thu, 08 Jul 2010)");
  script_cve_id("CVE-2007-1670");
  script_name("Panda AntiVirus Zoo Denial of Service Vulnerability");
  script_xref(name:"URL", value:"http://www.securityfocus.com/archive/1/archive/1/467646/100/0/threaded");
  script_xref(name:"URL", value:"http://www.securityfocus.com/bid/23823");
  script_xref(name:"URL", value:"http://secunia.com/advisories/25152");
  script_tag(name:"qod_type", value:"registry");
  script_tag(name:"cvss_base", value:"7.8");
  script_tag(name:"cvss_base_vector", value:"AV:N/AC:L/Au:N/C:N/I:N/A:C");
  script_category(ACT_GATHER_INFO);
  script_copyright("Copyright (C) 2010 LSS");
  script_family("Denial of Service");
  script_dependencies("panda_av_update_detect.nasl");
  script_mandatory_keys("Panda/LastUpdate/Available");

  script_tag(name:"solution", value:"An update has been issued on April 02 2007 to
  solve this vulnerability through the regular update mechanism.");

  script_tag(name:"summary", value:"Panda Software Antivirus/Internet Security before 20070402 allows
  remote attackers to cause a denial of service (infinite loop) via
  a ZOO archive with a direntry structure that points to a previous file.");

  script_tag(name:"solution_type", value:"VendorFix");

  exit(0);
}

include("version_func.inc");

vuln = FALSE; #if vulnerable, vuln = TRUE
vuln_update = "04-02-2007";
#software not updated after this date is vulnerable

#This part of code converts the Vuln_update date in a format
#that is checkable using the version_func.inc constructs
vuln_update = ereg_replace(pattern:"^(.*)-(.*)-(.*)$", replace:"\3.\2.\1", string:vuln_update);

# nb: Panda Antivirus 2006/2007
if (last_update = get_kb_item("Panda/AntiVirus/LastUpdate")) {
  last_update = ereg_replace(pattern:"^(.*)-(.*)-(.*)$", replace:"\3.\2.\1", string:last_update);
  vuln = version_is_less(version: last_update, test_version:vuln_update);
}

# nb: Panda Internet Security 2006/2007
if (last_update = get_kb_item("Panda/InternetSecurity/LastUpdate")) {
  last_update = ereg_replace(pattern:"^(.*)-(.*)-(.*)$", replace:"\3.\2.\1", string:last_update);
  vuln = version_is_less(version: last_update, test_version:vuln_update);
}

if(vuln) {
  security_message(port:0);
  exit(0);
}

exit(99);