Active Perl Denial of Service Vulnerability (Feb 2014) - Windows

# SPDX-FileCopyrightText: 2014 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

CPE = "cpe:/a:perl:perl";

if(description)
{
  script_oid("1.3.6.1.4.1.25623.1.0.804315");
  script_version("2024-02-20T14:37:13+0000");
  script_cve_id("CVE-2010-4777");
  script_tag(name:"cvss_base", value:"4.3");
  script_tag(name:"cvss_base_vector", value:"AV:N/AC:M/Au:N/C:N/I:N/A:P");
  script_tag(name:"last_modification", value:"2024-02-20 14:37:13 +0000 (Tue, 20 Feb 2024)");
  script_tag(name:"creation_date", value:"2014-02-17 10:12:58 +0530 (Mon, 17 Feb 2014)");
  script_name("Active Perl Denial of Service Vulnerability (Feb 2014) - Windows");

  script_tag(name:"summary", value:"Active Perl is prone to a denial of service (DoS) vulnerability.");
  script_tag(name:"vuldetect", value:"Checks if a vulnerable version is present on the target host.");
  script_tag(name:"insight", value:"The flaw is due to improper handling of crafted input by
'Perl_reg_numbered_buff_fetch' function.");
  script_tag(name:"impact", value:"Successful exploitation will allow remote attackers to conduct denial of
service.");
  script_tag(name:"affected", value:"Active Perl versions 5.10.0, 5.12.0, 5.14.0 and other versions.");
  script_tag(name:"solution", value:"No known solution was made available for at least one year since the disclosure of this vulnerability.
Likely none will be provided anymore.
General solution options are to upgrade to a newer release, disable respective features, remove the product or replace the product by another one.");
  script_tag(name:"qod_type", value:"registry");
  script_tag(name:"solution_type", value:"WillNotFix");

  script_xref(name:"URL", value:"http://www.securitytracker.com/id/1029735");
  script_xref(name:"URL", value:"http://www.securityfocus.com/bid/47006");
  script_xref(name:"URL", value:"http://news.debuntu.org/content/56643-cve-2010-4777-perl");
  script_xref(name:"URL", value:"https://bugzilla.redhat.com/show_bug.cgi?id=CVE-2010-4777");
  script_copyright("Copyright (C) 2014 Greenbone AG");
  script_category(ACT_GATHER_INFO);
  script_family("Denial of Service");
  script_dependencies("gb_perl_detect_win.nasl");
  script_mandatory_keys("ActivePerl/Ver");
  exit(0);
}

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

if(!perlVer = get_app_version(cpe:CPE)){
  exit(0);
}

if(version_is_equal(version:perlVer, test_version:"5.10.0")||
  version_is_equal(version:perlVer, test_version:"5.12.0")||
  version_is_equal(version:perlVer, test_version:"5.14.0"))
{
  security_message( port: 0, data: "The target host was found to be vulnerable" );
  exit(0);
}