Active Perl Locale::Maketext Module Multiple Code Injection Vulnerabilities (Windows)

2013-01-24T00:00:00
ID OPENVAS:1361412562310803339
Type openvas
Reporter Copyright (C) 2013 Greenbone Networks GmbH
Modified 2020-04-21T00:00:00

Description

The host is installed with Active Perl and is prone to multiple code injection vulnerabilities.

                                        
                                            ###############################################################################
# OpenVAS Vulnerability Test
#
# Active Perl Locale::Maketext Module Multiple Code Injection Vulnerabilities (Windows)
#
# Authors:
# Arun kallavi <karun@secpod.com>
#
# Copyright:
# Copyright (C) 2013 Greenbone Networks GmbH, http://www.greenbone.net
#
# 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.
###############################################################################

if(description)
{
  script_tag(name:"impact", value:"Successful exploitation will allow attackers to execute arbitrary code on
  the system.");
  script_tag(name:"affected", value:"Active Perl version prior to 5.17.7 on Windows");
  script_tag(name:"insight", value:"An improper validation of input by the '_compile()' function which can be
  exploited to inject and execute arbitrary Perl code on the system.");
  script_tag(name:"solution", value:"Upgrade to Active Perl version 5.17.7 or later.");
  script_tag(name:"summary", value:"The host is installed with Active Perl and is prone to multiple
  code injection vulnerabilities.");
  script_oid("1.3.6.1.4.1.25623.1.0.803339");
  script_version("2020-04-21T11:03:03+0000");
  script_cve_id("CVE-2012-6329");
  script_bugtraq_id(56852);
  script_tag(name:"cvss_base", value:"7.5");
  script_tag(name:"cvss_base_vector", value:"AV:N/AC:L/Au:N/C:P/I:P/A:P");
  script_tag(name:"last_modification", value:"2020-04-21 11:03:03 +0000 (Tue, 21 Apr 2020)");
  script_tag(name:"creation_date", value:"2013-01-24 12:42:04 +0530 (Thu, 24 Jan 2013)");
  script_tag(name:"qod_type", value:"registry");
  script_tag(name:"solution_type", value:"VendorFix");
  script_name("Active Perl Locale::Maketext Module Multiple Code Injection Vulnerabilities (Windows)");

  script_xref(name:"URL", value:"http://secunia.com/advisories/51498");
  script_xref(name:"URL", value:"http://xforce.iss.net/xforce/xfdb/80566");
  script_category(ACT_GATHER_INFO);
  script_copyright("Copyright (C) 2013 Greenbone Networks GmbH");
  script_family("General");
  script_dependencies("gb_perl_detect_win.nasl");
  script_mandatory_keys("ActivePerl/Ver");
  script_xref(name:"URL", value:"http://www.perl.org/get.html");
  exit(0);
}

include("version_func.inc");

apVer = get_kb_item("ActivePerl/Ver");
if(apVer)
{
  if(version_is_less(version:apVer, test_version:"5.17.7"))
  {
    report = report_fixed_ver(installed_version:apVer, fixed_version:"5.17.7");
    security_message(port: 0, data: report);
    exit(0);
  }
}