RHEL 5 / 6 : perl (RHSA-2013:0685) - Nessus

High Plugin ID: 65698

This page contains detailed information about the RHEL 5 / 6 : perl (RHSA-2013:0685) Nessus plugin including available exploits and PoCs found on GitHub, in Metasploit or Exploit-DB for verifying of this vulnerability.

Table Of Contents

hide

Plugin Overview
Vulnerability Information

Synopsis
Description
Solution

Public Exploits
Risk Information
Plugin Source
How to Run
References
Version

Plugin Overview

ID: 65698
Name: RHEL 5 / 6 : perl (RHSA-2013:0685)
Filename: redhat-RHSA-2013-0685.nasl
Vulnerability Published: 2012-11-21
This Plugin Published: 2013-03-27
Last Modification Time: 2021-01-14
Plugin Version: 1.34
Plugin Type: local
Plugin Family: Red Hat Local Security Checks
Dependencies: ssh_get_info.nasl
Required KB Items [?]: Host/cpu, Host/local_checks_enabled, Host/RedHat/release, Host/RedHat/rpm-list

Vulnerability Information

Synopsis

The remote Red Hat host is missing one or more security updates.

Description

Updated perl packages that fix multiple security issues now available for Red Hat Enterprise Linux 5 and 6.

The Red Hat Security Response Team has rated this update as having moderate security impact. Common Vulnerability Scoring System (CVSS) base scores, which give detailed severity ratings, are available for each vulnerability from the CVE links in the References section.

Perl is a high-level programming language commonly used for system administration utilities and web programming.

A heap overflow flaw was found in Perl. If a Perl application allowed user input to control the count argument of the string repeat operator, an attacker could cause the application to crash or, potentially, execute arbitrary code with the privileges of the user running the application. (CVE-2012-5195)

A denial of service flaw was found in the way Perl's rehashing code implementation, responsible for recalculation of hash keys and redistribution of hash content, handled certain input. If an attacker supplied specially crafted input to be used as hash keys by a Perl application, it could cause excessive memory consumption. (CVE-2013-1667)

It was found that the Perl CGI module, used to handle Common Gateway Interface requests and responses, incorrectly sanitized the values for Set-Cookie and P3P headers. If a Perl application using the CGI module reused cookies values and accepted untrusted input from web browsers, a remote attacker could use this flaw to alter member items of the cookie or add new items. (CVE-2012-5526)

It was found that the Perl Locale::Maketext module, used to localize Perl applications, did not properly handle backslashes or fully-qualified method names. An attacker could possibly use this flaw to execute arbitrary Perl code with the privileges of a Perl application that uses untrusted Locale::Maketext templates. (CVE-2012-6329)

Red Hat would like to thank the Perl project for reporting CVE-2012-5195 and CVE-2013-1667. Upstream acknowledges Tim Brown as the original reporter of CVE-2012-5195 and Yves Orton as the original reporter of CVE-2013-1667.

All Perl users should upgrade to these updated packages, which contain backported patches to correct these issues. All running Perl programs must be restarted for this update to take effect.

Solution

Update the affected packages.

Public Exploits

Target Network Port(s): N/A
Target Asset(s): N/A
Exploit Available: True (Metasploit Framework, Exploit-DB, D2 Elliot)
Exploit Ease: Exploits are available

Here's the list of publicly known exploits and PoCs for verifying the RHEL 5 / 6 : perl (RHSA-2013:0685) vulnerability:

Metasploit: exploit/unix/webapp/twiki_maketext
[TWiki MAKETEXT Remote Command Execution]
Metasploit: exploit/unix/webapp/foswiki_maketext
[Foswiki MAKETEXT Remote Command Execution]
Exploit-DB: exploits/unix/remote/23579.rb
[EDB-23579: TWiki MAKETEXT - Remote Command Execution (Metasploit)]
Exploit-DB: exploits/unix/remote/23580.rb
[EDB-23580: Foswiki MAKETEXT - Remote Command Execution (Metasploit)]
D2 Elliot: foswiki_1.1.5_rce.html
[Foswiki 1.1.5 RCE]

Before running any exploit against any system, make sure you are authorized by the owner of the target system(s) to perform such activity. In any other case, this would be considered as an illegal activity.

WARNING: Beware of using unverified exploits from sources such as GitHub or Exploit-DB. These exploits and PoCs could contain malware. For more information, see how to use exploits safely.

Risk Information

CVSS V2 Vector [?]: AV:N/AC:L/Au:N/C:P/I:P/A:P/E:F/RL:OF/RC:C

CVSS Base Score:	7.5 (High)
Impact Subscore:	6.4
Exploitability Subscore:	10.0
CVSS Temporal Score:	6.2 (Medium)
CVSS Environmental Score:	NA (None)
Modified Impact Subscore:	NA
Overall CVSS Score:	6.2 (Medium)

Go back to menu.

Plugin Source

#%NASL_MIN_LEVEL 70300
#
# (C) Tenable Network Security, Inc.
#
# The descriptive text and package checks in this plugin were  
# extracted from Red Hat Security Advisory RHSA-2013:0685. The text 
# itself is copyright (C) Red Hat, Inc.
#

include('deprecated_nasl_level.inc');
include('compat.inc');

if (description)
{
  script_id(65698);
  script_version("1.34");
  script_set_attribute(attribute:"plugin_modification_date", value:"2021/01/14");

  script_cve_id("CVE-2012-5195", "CVE-2012-5526", "CVE-2012-6329", "CVE-2013-1667");
  script_bugtraq_id(56287, 56562, 56950, 58311);
  script_xref(name:"RHSA", value:"2013:0685");

  script_name(english:"RHEL 5 / 6 : perl (RHSA-2013:0685)");
  script_summary(english:"Checks the rpm output for the updated packages");

  script_set_attribute(
    attribute:"synopsis", 
    value:"The remote Red Hat host is missing one or more security updates."
  );
  script_set_attribute(
    attribute:"description", 
    value:
"Updated perl packages that fix multiple security issues now available
for Red Hat Enterprise Linux 5 and 6.

The Red Hat Security Response Team has rated this update as having
moderate security impact. Common Vulnerability Scoring System (CVSS)
base scores, which give detailed severity ratings, are available for
each vulnerability from the CVE links in the References section.

Perl is a high-level programming language commonly used for system
administration utilities and web programming.

A heap overflow flaw was found in Perl. If a Perl application allowed
user input to control the count argument of the string repeat
operator, an attacker could cause the application to crash or,
potentially, execute arbitrary code with the privileges of the user
running the application. (CVE-2012-5195)

A denial of service flaw was found in the way Perl's rehashing code
implementation, responsible for recalculation of hash keys and
redistribution of hash content, handled certain input. If an attacker
supplied specially crafted input to be used as hash keys by a Perl
application, it could cause excessive memory consumption.
(CVE-2013-1667)

It was found that the Perl CGI module, used to handle Common Gateway
Interface requests and responses, incorrectly sanitized the values for
Set-Cookie and P3P headers. If a Perl application using the CGI module
reused cookies values and accepted untrusted input from web browsers,
a remote attacker could use this flaw to alter member items of the
cookie or add new items. (CVE-2012-5526)

It was found that the Perl Locale::Maketext module, used to localize
Perl applications, did not properly handle backslashes or
fully-qualified method names. An attacker could possibly use this flaw
to execute arbitrary Perl code with the privileges of a Perl
application that uses untrusted Locale::Maketext templates.
(CVE-2012-6329)

Red Hat would like to thank the Perl project for reporting
CVE-2012-5195 and CVE-2013-1667. Upstream acknowledges Tim Brown as
the original reporter of CVE-2012-5195 and Yves Orton as the original
reporter of CVE-2013-1667.

All Perl users should upgrade to these updated packages, which contain
backported patches to correct these issues. All running Perl programs
must be restarted for this update to take effect."
  );
  script_set_attribute(
    attribute:"see_also",
    value:"https://access.redhat.com/errata/RHSA-2013:0685"
  );
  script_set_attribute(
    attribute:"see_also",
    value:"https://access.redhat.com/security/cve/cve-2012-6329"
  );
  script_set_attribute(
    attribute:"see_also",
    value:"https://access.redhat.com/security/cve/cve-2013-1667"
  );
  script_set_attribute(
    attribute:"see_also",
    value:"https://access.redhat.com/security/cve/cve-2012-5526"
  );
  script_set_attribute(
    attribute:"see_also",
    value:"https://access.redhat.com/security/cve/cve-2012-5195"
  );
  script_set_attribute(attribute:"solution", value:"Update the affected packages.");
  script_set_cvss_base_vector("CVSS2#AV:N/AC:L/Au:N/C:P/I:P/A:P");
  script_set_cvss_temporal_vector("CVSS2#E:F/RL:OF/RC:C");
  script_set_attribute(attribute:"exploitability_ease", value:"Exploits are available");
  script_set_attribute(attribute:"exploit_available", value:"true");
  script_set_attribute(attribute:"d2_elliot_name", value:"Foswiki 1.1.5 RCE");
  script_set_attribute(attribute:"exploit_framework_d2_elliot", value:"true");
  script_set_attribute(attribute:"metasploit_name", value:'TWiki MAKETEXT Remote Command Execution');
  script_set_attribute(attribute:"exploit_framework_metasploit", value:"true");

  script_set_attribute(attribute:"plugin_type", value:"local");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-Archive-Extract");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-Archive-Tar");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-CGI");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-CPAN");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-CPANPLUS");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-Compress-Raw-Bzip2");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-Compress-Raw-Zlib");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-Compress-Zlib");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-Digest-SHA");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-ExtUtils-CBuilder");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-ExtUtils-Embed");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-ExtUtils-MakeMaker");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-ExtUtils-ParseXS");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-File-Fetch");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-IO-Compress-Base");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-IO-Compress-Bzip2");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-IO-Compress-Zlib");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-IO-Zlib");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-IPC-Cmd");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-Locale-Maketext-Simple");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-Log-Message");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-Log-Message-Simple");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-Module-Build");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-Module-CoreList");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-Module-Load");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-Module-Load-Conditional");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-Module-Loaded");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-Module-Pluggable");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-Object-Accessor");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-Package-Constants");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-Params-Check");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-Parse-CPAN-Meta");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-Pod-Escapes");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-Pod-Simple");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-Term-UI");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-Test-Harness");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-Test-Simple");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-Time-HiRes");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-Time-Piece");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-core");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-debuginfo");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-devel");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-libs");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-parent");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-suidperl");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:redhat:enterprise_linux:perl-version");
  script_set_attribute(attribute:"cpe", value:"cpe:/o:redhat:enterprise_linux:5");
  script_set_attribute(attribute:"cpe", value:"cpe:/o:redhat:enterprise_linux:5.9");
  script_set_attribute(attribute:"cpe", value:"cpe:/o:redhat:enterprise_linux:6");
  script_set_attribute(attribute:"cpe", value:"cpe:/o:redhat:enterprise_linux:6.4");

  script_set_attribute(attribute:"vuln_publication_date", value:"2012/11/21");
  script_set_attribute(attribute:"patch_publication_date", value:"2013/03/26");
  script_set_attribute(attribute:"plugin_publication_date", value:"2013/03/27");
  script_set_attribute(attribute:"generated_plugin", value:"current");
  script_end_attributes();

  script_category(ACT_GATHER_INFO);
  script_copyright(english:"This script is Copyright (C) 2013-2021 and is owned by Tenable, Inc. or an Affiliate thereof.");
  script_family(english:"Red Hat Local Security Checks");

  script_dependencies("ssh_get_info.nasl");
  script_require_keys("Host/local_checks_enabled", "Host/RedHat/release", "Host/RedHat/rpm-list", "Host/cpu");

  exit(0);
}


include("audit.inc");
include("global_settings.inc");
include("misc_func.inc");
include("rpm.inc");

if (!get_kb_item("Host/local_checks_enabled")) audit(AUDIT_LOCAL_CHECKS_NOT_ENABLED);
release = get_kb_item("Host/RedHat/release");
if (isnull(release) || "Red Hat" >!< release) audit(AUDIT_OS_NOT, "Red Hat");
os_ver = pregmatch(pattern: "Red Hat Enterprise Linux.*release ([0-9]+(\.[0-9]+)?)", string:release);
if (isnull(os_ver)) audit(AUDIT_UNKNOWN_APP_VER, "Red Hat");
os_ver = os_ver[1];
if (! preg(pattern:"^(5|6)([^0-9]|$)", string:os_ver)) audit(AUDIT_OS_NOT, "Red Hat 5.x / 6.x", "Red Hat " + os_ver);

if (!get_kb_item("Host/RedHat/rpm-list")) audit(AUDIT_PACKAGE_LIST_MISSING);

cpu = get_kb_item("Host/cpu");
if (isnull(cpu)) audit(AUDIT_UNKNOWN_ARCH);
if ("x86_64" >!< cpu && cpu !~ "^i[3-6]86$" && "s390" >!< cpu) audit(AUDIT_LOCAL_CHECKS_NOT_IMPLEMENTED, "Red Hat", cpu);

yum_updateinfo = get_kb_item("Host/RedHat/yum-updateinfo");
if (!empty_or_null(yum_updateinfo)) 
{
  rhsa = "RHSA-2013:0685";
  yum_report = redhat_generate_yum_updateinfo_report(rhsa:rhsa);
  if (!empty_or_null(yum_report))
  {
    security_report_v4(
      port       : 0,
      severity   : SECURITY_HOLE,
      extra      : yum_report 
    );
    exit(0);
  }
  else
  {
    audit_message = "affected by Red Hat security advisory " + rhsa;
    audit(AUDIT_OS_NOT, audit_message);
  }
}
else
{
  flag = 0;
  if (rpm_check(release:"RHEL5", cpu:"i386", reference:"perl-5.8.8-40.el5_9")) flag++;

  if (rpm_check(release:"RHEL5", cpu:"s390x", reference:"perl-5.8.8-40.el5_9")) flag++;

  if (rpm_check(release:"RHEL5", cpu:"x86_64", reference:"perl-5.8.8-40.el5_9")) flag++;

  if (rpm_check(release:"RHEL5", cpu:"i386", reference:"perl-debuginfo-5.8.8-40.el5_9")) flag++;

  if (rpm_check(release:"RHEL5", cpu:"s390x", reference:"perl-debuginfo-5.8.8-40.el5_9")) flag++;

  if (rpm_check(release:"RHEL5", cpu:"x86_64", reference:"perl-debuginfo-5.8.8-40.el5_9")) flag++;

  if (rpm_check(release:"RHEL5", cpu:"i386", reference:"perl-suidperl-5.8.8-40.el5_9")) flag++;

  if (rpm_check(release:"RHEL5", cpu:"s390x", reference:"perl-suidperl-5.8.8-40.el5_9")) flag++;

  if (rpm_check(release:"RHEL5", cpu:"x86_64", reference:"perl-suidperl-5.8.8-40.el5_9")) flag++;


  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-5.10.1-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-5.10.1-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-5.10.1-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-Archive-Extract-0.38-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-Archive-Extract-0.38-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-Archive-Extract-0.38-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-Archive-Tar-1.58-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-Archive-Tar-1.58-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-Archive-Tar-1.58-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-CGI-3.51-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-CGI-3.51-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-CGI-3.51-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-CPAN-1.9402-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-CPAN-1.9402-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-CPAN-1.9402-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-CPANPLUS-0.88-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-CPANPLUS-0.88-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-CPANPLUS-0.88-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-Compress-Raw-Bzip2-2.020-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-Compress-Raw-Bzip2-2.020-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-Compress-Raw-Bzip2-2.020-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-Compress-Raw-Zlib-2.020-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-Compress-Raw-Zlib-2.020-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-Compress-Raw-Zlib-2.020-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-Compress-Zlib-2.020-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-Compress-Zlib-2.020-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-Compress-Zlib-2.020-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-Digest-SHA-5.47-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-Digest-SHA-5.47-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-Digest-SHA-5.47-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-ExtUtils-CBuilder-0.27-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-ExtUtils-CBuilder-0.27-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-ExtUtils-CBuilder-0.27-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-ExtUtils-Embed-1.28-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-ExtUtils-Embed-1.28-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-ExtUtils-Embed-1.28-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-ExtUtils-MakeMaker-6.55-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-ExtUtils-MakeMaker-6.55-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-ExtUtils-MakeMaker-6.55-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-ExtUtils-ParseXS-2.2003.0-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-ExtUtils-ParseXS-2.2003.0-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-ExtUtils-ParseXS-2.2003.0-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-File-Fetch-0.26-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-File-Fetch-0.26-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-File-Fetch-0.26-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-IO-Compress-Base-2.020-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-IO-Compress-Base-2.020-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-IO-Compress-Base-2.020-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-IO-Compress-Bzip2-2.020-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-IO-Compress-Bzip2-2.020-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-IO-Compress-Bzip2-2.020-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-IO-Compress-Zlib-2.020-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-IO-Compress-Zlib-2.020-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-IO-Compress-Zlib-2.020-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-IO-Zlib-1.09-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-IO-Zlib-1.09-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-IO-Zlib-1.09-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-IPC-Cmd-0.56-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-IPC-Cmd-0.56-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-IPC-Cmd-0.56-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-Locale-Maketext-Simple-0.18-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-Locale-Maketext-Simple-0.18-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-Locale-Maketext-Simple-0.18-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-Log-Message-0.02-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-Log-Message-0.02-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-Log-Message-0.02-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-Log-Message-Simple-0.04-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-Log-Message-Simple-0.04-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-Log-Message-Simple-0.04-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-Module-Build-0.3500-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-Module-Build-0.3500-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-Module-Build-0.3500-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-Module-CoreList-2.18-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-Module-CoreList-2.18-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-Module-CoreList-2.18-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-Module-Load-0.16-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-Module-Load-0.16-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-Module-Load-0.16-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-Module-Load-Conditional-0.30-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-Module-Load-Conditional-0.30-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-Module-Load-Conditional-0.30-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-Module-Loaded-0.02-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-Module-Loaded-0.02-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-Module-Loaded-0.02-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-Module-Pluggable-3.90-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-Module-Pluggable-3.90-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-Module-Pluggable-3.90-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-Object-Accessor-0.34-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-Object-Accessor-0.34-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-Object-Accessor-0.34-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-Package-Constants-0.02-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-Package-Constants-0.02-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-Package-Constants-0.02-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-Params-Check-0.26-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-Params-Check-0.26-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-Params-Check-0.26-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-Parse-CPAN-Meta-1.40-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-Parse-CPAN-Meta-1.40-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-Parse-CPAN-Meta-1.40-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-Pod-Escapes-1.04-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-Pod-Escapes-1.04-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-Pod-Escapes-1.04-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-Pod-Simple-3.13-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-Pod-Simple-3.13-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-Pod-Simple-3.13-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-Term-UI-0.20-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-Term-UI-0.20-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-Term-UI-0.20-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-Test-Harness-3.17-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-Test-Harness-3.17-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-Test-Harness-3.17-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-Test-Simple-0.92-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-Test-Simple-0.92-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-Test-Simple-0.92-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-Time-HiRes-1.9721-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-Time-HiRes-1.9721-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-Time-HiRes-1.9721-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-Time-Piece-1.15-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-Time-Piece-1.15-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-Time-Piece-1.15-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-core-5.10.1-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-core-5.10.1-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-core-5.10.1-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", reference:"perl-debuginfo-5.10.1-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", reference:"perl-devel-5.10.1-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", reference:"perl-libs-5.10.1-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-parent-0.221-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-parent-0.221-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-parent-0.221-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-suidperl-5.10.1-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-suidperl-5.10.1-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-suidperl-5.10.1-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"i686", reference:"perl-version-0.77-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"s390x", reference:"perl-version-0.77-130.el6_4")) flag++;

  if (rpm_check(release:"RHEL6", cpu:"x86_64", reference:"perl-version-0.77-130.el6_4")) flag++;


  if (flag)
  {
    security_report_v4(
      port       : 0,
      severity   : SECURITY_HOLE,
      extra      : rpm_report_get() + redhat_report_package_caveat()
    );
    exit(0);
  }
  else
  {
    tested = pkg_tests_get();
    if (tested) audit(AUDIT_PACKAGE_NOT_AFFECTED, tested);
    else audit(AUDIT_PACKAGE_NOT_INSTALLED, "perl / perl-Archive-Extract / perl-Archive-Tar / perl-CGI / etc");
  }
}

The latest version of this script can be found in these locations depending on your platform:

Linux / Unix:
/opt/nessus/lib/nessus/plugins/redhat-RHSA-2013-0685.nasl
Windows:
C:\ProgramData\Tenable\Nessus\nessus\plugins\redhat-RHSA-2013-0685.nasl
Mac OS X:
/Library/Nessus/run/lib/nessus/plugins/redhat-RHSA-2013-0685.nasl

Go back to menu.

How to Run

Here is how to run the RHEL 5 / 6 : perl (RHSA-2013:0685) as a standalone plugin via the Nessus web user interface (https://localhost:8834/):

Click to start a New Scan.
Select Advanced Scan.
Navigate to the Plugins tab.
On the top right corner click to Disable All plugins.
On the left side table select Red Hat Local Security Checks plugin family.
On the right side table select RHEL 5 / 6 : perl (RHSA-2013:0685) plugin ID 65698.
Specify the target on the Settings tab and click to Save the scan.
Run the scan.

Here are a few examples of how to run the plugin in the command line. Note that the examples below demonstrate the usage on the Linux / Unix platform.

Basic usage:

/opt/nessus/bin/nasl redhat-RHSA-2013-0685.nasl -t <IP/HOST>

Run the plugin with audit trail message on the console:

/opt/nessus/bin/nasl -a redhat-RHSA-2013-0685.nasl -t <IP/HOST>

Run the plugin with trace script execution written to the console (useful for debugging):

/opt/nessus/bin/nasl -T - redhat-RHSA-2013-0685.nasl -t <IP/HOST>

Run the plugin with using a state file for the target and updating it (useful for running multiple plugins on the target):

/opt/nessus/bin/nasl -K /tmp/state redhat-RHSA-2013-0685.nasl -t <IP/HOST>

Go back to menu.

References

BID | SecurityFocus Bugtraq ID:

56287, 56562, 56950, 58311

RHSA | Red Hat Security Advisory:

2013:0685

See also:

Similar and related Nessus plugins:

73735 - AIX Perl Advisory : perl_advisory4.asc
69736 - Amazon Linux AMI : perl (ALAS-2013-177)
65694 - CentOS 5 / 6 : perl (CESA-2013:0685)
85945 - F5 Networks BIG-IP : Perl vulnerabilities (K15867)
64085 - Fedora 16 : perl-5.14.3-205.fc16 (2013-0633)
64368 - Fedora 18 : perl-5.16.2-237.fc18 (2013-0659)
64673 - Fedora 17 : perl-5.14.3-221.fc17 (2013-1836)
78384 - GLSA-201410-02 : Perl, Perl Locale-Maketext module: Multiple vulnerabilities
70561 - Mac OS X 10.x < 10.9 Multiple Vulnerabilities (BEAST)
66125 - Mandriva Linux Security Advisory : perl (MDVSA-2013:113)
74932 - openSUSE Security Update : perl (openSUSE-SU-2013:0497-1)
68797 - Oracle Linux 5 / 6 : perl (ELSA-2013-0685)
91752 - OracleVM 3.2 : perl (OVMSA-2016-0076)
65715 - Scientific Linux Security Update : perl on SL5.x, SL6.x i386/x86_64 (20130326)
80727 - Oracle Solaris Third-Party Patch Update : perl-512 (cve_2012_5195_heap_buffer)
80730 - Oracle Solaris Third-Party Patch Update : perl-58 (cve_2012_6329_code_injection1)
65247 - SuSE 11.2 Security Update : Perl (SAT Patch Number 7439)
65249 - SuSE 10 Security Update : Perl (ZYPP Patch Number 8479)
63399 - TWiki < 5.1.3 Multiple Vulnerabilities
72366 - Ubuntu 10.04 LTS / 12.04 LTS / 12.10 : perl vulnerability (USN-2099-1)

Version

This page has been produced using Nessus Professional 10.1.2 (#68) LINUX, Plugin set 202205072148.
Plugin file redhat-RHSA-2013-0685.nasl version 1.34. For more plugins, visit the Nessus Plugin Library.

Go back to menu.

RHEL 5 / 6 : perl (RHSA-2013:0685) - Nessus

Plugin Overview

Vulnerability Information

Synopsis

Description

Solution

Public Exploits

Risk Information

Plugin Source

How to Run

References

Version

Nessus Plugin Library

Solving Problems with Office 365 Email from GoDaddy

Empire Module Library

CrackMapExec Module Library

Metasploit Android Modules

Top 16 Active Directory Vulnerabilities

Top 10 Vulnerabilities: Internal Infrastructure Pentest

Terminal Escape Injection

Cisco Password Cracking and Decrypting Guide

Capture Passwords using Wireshark

SSH Brute Force Attack Tool using PuTTY / Plink (ssh-putty-brute.ps1)

SMB Brute Force Attack Tool in PowerShell (SMBLogin.ps1)

Port Scanner in PowerShell (TCP/UDP)

Nessus CSV Parser and Extractor

Default Password Scanner (default-http-login-hunter.sh)