Vulnerabilities > CVE-2018-6798 - Out-of-bounds Read vulnerability in multiple products

047910
CVSS 5.0 - MEDIUM
Attack vector
NETWORK
Attack complexity
LOW
Privileges required
NONE
Confidentiality impact
PARTIAL
Integrity impact
NONE
Availability impact
NONE
network
low complexity
debian
perl
canonical
redhat
CWE-125
nessus

Summary

An issue was discovered in Perl 5.22 through 5.26. Matching a crafted locale dependent regular expression can cause a heap-based buffer over-read and potentially information disclosure.

Common Weakness Enumeration (CWE)

Common Attack Pattern Enumeration and Classification (CAPEC)

  • Overread Buffers
    An adversary attacks a target by providing input that causes an application to read beyond the boundary of a defined buffer. This typically occurs when a value influencing where to start or stop reading is set to reflect positions outside of the valid memory location of the buffer. This type of attack may result in exposure of sensitive information, a system crash, or arbitrary code execution.

Nessus

  • NASL familyUbuntu Local Security Checks
    NASL idUBUNTU_USN-3625-1.NASL
    descriptionIt was discovered that Perl incorrectly handled certain regular expressions. An attacker could possibly use this issue to cause Perl to hang, resulting in a denial of service. This issue only affected Ubuntu 14.04 LTS. (CVE-2015-8853) It was discovered that Perl incorrectly loaded libraries from the current working directory. A local attacker could possibly use this issue to execute arbitrary code. This issue only affected Ubuntu 14.04 LTS and Ubuntu 16.04 LTS. (CVE-2016-6185) It was discovered that Perl incorrectly handled the rmtree and remove_tree functions. A local attacker could possibly use this issue to set the mode on arbitrary files. This issue only affected Ubuntu 14.04 LTS and Ubuntu 16.04 LTS. (CVE-2017-6512) Brian Carpenter discovered that Perl incorrectly handled certain regular expressions. An attacker could use this issue to cause Perl to crash, resulting in a denial of service, or possibly execute arbitrary code. This issue has only been addressed in Ubuntu 16.04 LTS and Ubuntu 17.10. (CVE-2018-6797) Nguyen Duc Manh discovered that Perl incorrectly handled certain regular expressions. An attacker could use this issue to cause Perl to crash, resulting in a denial of service. This issue only affected Ubuntu 16.04 LTS and Ubuntu 17.10. (CVE-2018-6798) GwanYeong Kim discovered that Perl incorrectly handled certain data when using the pack function. An attacker could use this issue to cause Perl to crash, resulting in a denial of service, or possibly execute arbitrary code. (CVE-2018-6913). Note that Tenable Network Security has extracted the preceding description block directly from the Ubuntu security advisory. Tenable has attempted to automatically clean and format it as much as possible without introducing additional issues.
    last seen2020-06-01
    modified2020-06-02
    plugin id109086
    published2018-04-17
    reporterUbuntu Security Notice (C) 2018-2019 Canonical, Inc. / NASL script (C) 2018-2019 and is owned by Tenable, Inc. or an Affiliate thereof.
    sourcehttps://www.tenable.com/plugins/nessus/109086
    titleUbuntu 14.04 LTS / 16.04 LTS / 17.10 : perl vulnerabilities (USN-3625-1)
    code
    #
    # (C) Tenable Network Security, Inc.
    #
    # The descriptive text and package checks in this plugin were
    # extracted from Ubuntu Security Notice USN-3625-1. The text 
    # itself is copyright (C) Canonical, Inc. See 
    # <http://www.ubuntu.com/usn/>. Ubuntu(R) is a registered 
    # trademark of Canonical, Inc.
    #
    
    include("compat.inc");
    
    if (description)
    {
      script_id(109086);
      script_version("1.5");
      script_cvs_date("Date: 2019/09/18 12:31:48");
    
      script_cve_id("CVE-2015-8853", "CVE-2016-6185", "CVE-2017-6512", "CVE-2018-6797", "CVE-2018-6798", "CVE-2018-6913");
      script_xref(name:"USN", value:"3625-1");
    
      script_name(english:"Ubuntu 14.04 LTS / 16.04 LTS / 17.10 : perl vulnerabilities (USN-3625-1)");
      script_summary(english:"Checks dpkg output for updated package.");
    
      script_set_attribute(
        attribute:"synopsis", 
        value:"The remote Ubuntu host is missing a security-related patch."
      );
      script_set_attribute(
        attribute:"description", 
        value:
    "It was discovered that Perl incorrectly handled certain regular
    expressions. An attacker could possibly use this issue to cause Perl
    to hang, resulting in a denial of service. This issue only affected
    Ubuntu 14.04 LTS. (CVE-2015-8853)
    
    It was discovered that Perl incorrectly loaded libraries from the
    current working directory. A local attacker could possibly use this
    issue to execute arbitrary code. This issue only affected Ubuntu 14.04
    LTS and Ubuntu 16.04 LTS. (CVE-2016-6185)
    
    It was discovered that Perl incorrectly handled the rmtree and
    remove_tree functions. A local attacker could possibly use this issue
    to set the mode on arbitrary files. This issue only affected Ubuntu
    14.04 LTS and Ubuntu 16.04 LTS. (CVE-2017-6512)
    
    Brian Carpenter discovered that Perl incorrectly handled certain
    regular expressions. An attacker could use this issue to cause Perl to
    crash, resulting in a denial of service, or possibly execute arbitrary
    code. This issue has only been addressed in Ubuntu 16.04 LTS and
    Ubuntu 17.10. (CVE-2018-6797)
    
    Nguyen Duc Manh discovered that Perl incorrectly handled certain
    regular expressions. An attacker could use this issue to cause Perl to
    crash, resulting in a denial of service. This issue only affected
    Ubuntu 16.04 LTS and Ubuntu 17.10. (CVE-2018-6798)
    
    GwanYeong Kim discovered that Perl incorrectly handled certain data
    when using the pack function. An attacker could use this issue to
    cause Perl to crash, resulting in a denial of service, or possibly
    execute arbitrary code. (CVE-2018-6913).
    
    Note that Tenable Network Security has extracted the preceding
    description block directly from the Ubuntu security advisory. Tenable
    has attempted to automatically clean and format it as much as possible
    without introducing additional issues."
      );
      script_set_attribute(
        attribute:"see_also",
        value:"https://usn.ubuntu.com/3625-1/"
      );
      script_set_attribute(attribute:"solution", value:"Update the affected perl package.");
      script_set_cvss_base_vector("CVSS2#AV:N/AC:L/Au:N/C:P/I:P/A:P");
      script_set_cvss3_base_vector("CVSS:3.0/AV:N/AC:L/PR:N/UI:N/S:U/C:H/I:H/A:H");
    
      script_set_attribute(attribute:"plugin_type", value:"local");
      script_set_attribute(attribute:"cpe", value:"p-cpe:/a:canonical:ubuntu_linux:perl");
      script_set_attribute(attribute:"cpe", value:"cpe:/o:canonical:ubuntu_linux:14.04");
      script_set_attribute(attribute:"cpe", value:"cpe:/o:canonical:ubuntu_linux:16.04");
      script_set_attribute(attribute:"cpe", value:"cpe:/o:canonical:ubuntu_linux:17.10");
    
      script_set_attribute(attribute:"vuln_publication_date", value:"2016/05/25");
      script_set_attribute(attribute:"patch_publication_date", value:"2018/04/16");
      script_set_attribute(attribute:"plugin_publication_date", value:"2018/04/17");
      script_set_attribute(attribute:"generated_plugin", value:"current");
      script_end_attributes();
    
      script_category(ACT_GATHER_INFO);
      script_copyright(english:"Ubuntu Security Notice (C) 2018-2019 Canonical, Inc. / NASL script (C) 2018-2019 and is owned by Tenable, Inc. or an Affiliate thereof.");
      script_family(english:"Ubuntu Local Security Checks");
    
      script_dependencies("ssh_get_info.nasl");
      script_require_keys("Host/cpu", "Host/Ubuntu", "Host/Ubuntu/release", "Host/Debian/dpkg-l");
    
      exit(0);
    }
    
    
    include("audit.inc");
    include("ubuntu.inc");
    include("misc_func.inc");
    
    if ( ! get_kb_item("Host/local_checks_enabled") ) audit(AUDIT_LOCAL_CHECKS_NOT_ENABLED);
    release = get_kb_item("Host/Ubuntu/release");
    if ( isnull(release) ) audit(AUDIT_OS_NOT, "Ubuntu");
    release = chomp(release);
    if (! preg(pattern:"^(14\.04|16\.04|17\.10)$", string:release)) audit(AUDIT_OS_NOT, "Ubuntu 14.04 / 16.04 / 17.10", "Ubuntu " + release);
    if ( ! get_kb_item("Host/Debian/dpkg-l") ) 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$") audit(AUDIT_LOCAL_CHECKS_NOT_IMPLEMENTED, "Ubuntu", cpu);
    
    flag = 0;
    
    if (ubuntu_check(osver:"14.04", pkgname:"perl", pkgver:"5.18.2-2ubuntu1.4")) flag++;
    if (ubuntu_check(osver:"16.04", pkgname:"perl", pkgver:"5.22.1-9ubuntu0.3")) flag++;
    if (ubuntu_check(osver:"17.10", pkgname:"perl", pkgver:"5.26.0-8ubuntu1.1")) flag++;
    
    if (flag)
    {
      security_report_v4(
        port       : 0,
        severity   : SECURITY_HOLE,
        extra      : ubuntu_report_get()
      );
      exit(0);
    }
    else
    {
      tested = ubuntu_pkg_tests_get();
      if (tested) audit(AUDIT_PACKAGE_NOT_AFFECTED, tested);
      else audit(AUDIT_PACKAGE_NOT_INSTALLED, "perl");
    }
    
  • NASL familyPhotonOS Local Security Checks
    NASL idPHOTONOS_PHSA-2018-1_0-0167_PERL.NASL
    descriptionAn update of the perl package has been released.
    last seen2020-03-17
    modified2019-02-07
    plugin id121865
    published2019-02-07
    reporterThis script is Copyright (C) 2019-2020 and is owned by Tenable, Inc. or an Affiliate thereof.
    sourcehttps://www.tenable.com/plugins/nessus/121865
    titlePhoton OS 1.0: Perl PHSA-2018-1.0-0167
    code
    #
    # (C) Tenable Network Security, Inc.
    #
    
    
    # The descriptive text and package checks in this plugin were
    # extracted from VMware Security Advisory PHSA-2018-1.0-0167. The text
    # itself is copyright (C) VMware, Inc.
    
    
    include('compat.inc');
    
    if (description)
    {
      script_id(121865);
      script_version("1.3");
      script_set_attribute(attribute:"plugin_modification_date", value:"2019/03/08");
    
      script_cve_id("CVE-2018-6797", "CVE-2018-6798", "CVE-2018-6913");
    
      script_name(english:"Photon OS 1.0: Perl PHSA-2018-1.0-0167");
      script_summary(english:"Checks the rpm output for the updated packages.");
    
      script_set_attribute(attribute:"synopsis", value:
    "The remote PhotonOS host is missing multiple security updates.");
      script_set_attribute(attribute:"description", value:
    "An update of the perl package has been released.");
      script_set_attribute(attribute:"see_also", value:"https://github.com/vmware/photon/wiki/Security-Updates-1.0-167.md");
      script_set_attribute(attribute:"solution", value:
    "Update the affected Linux 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:U/RL:OF/RC:C");
      script_set_cvss3_base_vector("CVSS:3.0/AV:N/AC:L/PR:N/UI:N/S:U/C:H/I:H/A:H");
      script_set_cvss3_temporal_vector("CVSS:3.0/E:U/RL:O/RC:C");
      script_set_attribute(attribute:"cvss_score_source", value:"CVE-2018-6913");
    
      script_set_attribute(attribute:"exploitability_ease", value:"No known exploits are available");
    
      script_set_attribute(attribute:"vuln_publication_date", value:"2018/07/27");
      script_set_attribute(attribute:"patch_publication_date", value:"2018/07/27");
      script_set_attribute(attribute:"plugin_publication_date", value:"2019/02/07");
    
      script_set_attribute(attribute:"plugin_type", value:"local");
      script_set_attribute(attribute:"cpe", value:"p-cpe:/a:vmware:photonos:perl");
      script_set_attribute(attribute:"cpe", value:"cpe:/o:vmware:photonos:1.0");
      script_end_attributes();
    
      script_category(ACT_GATHER_INFO);
      script_family(english:"PhotonOS Local Security Checks");
    
      script_copyright(english:"This script is Copyright (C) 2019-2020 and is owned by Tenable, Inc. or an Affiliate thereof.");
    
      script_dependencies("ssh_get_info.nasl");
      script_require_keys("Host/local_checks_enabled", "Host/PhotonOS/release", "Host/PhotonOS/rpm-list");
    
      exit(0);
    }
    
    include("audit.inc");
    include("global_settings.inc");
    include("rpm.inc");
    
    if (!get_kb_item("Host/local_checks_enabled")) audit(AUDIT_LOCAL_CHECKS_NOT_ENABLED);
    
    release = get_kb_item("Host/PhotonOS/release");
    if (isnull(release) || release !~ "^VMware Photon") audit(AUDIT_OS_NOT, "PhotonOS");
    if (release !~ "^VMware Photon (?:Linux|OS) 1\.0(\D|$)") audit(AUDIT_OS_NOT, "PhotonOS 1.0");
    
    if (!get_kb_item("Host/PhotonOS/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$") audit(AUDIT_LOCAL_CHECKS_NOT_IMPLEMENTED, "PhotonOS", cpu);
    
    flag = 0;
    
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-5.24.1-1.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-CGI-4.26-3.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-Config-IniFiles-2.88-3.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-Crypt-SSLeay-0.72-2.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-DBD-SQLite-1.50-6.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-DBD-SQLite-debuginfo-1.50-6.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-DBI-1.634-3.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-DBI-debuginfo-1.634-3.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-DBIx-Simple-1.35-3.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-Exporter-Tiny-0.042-3.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-File-HomeDir-1.00-3.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-File-Which-1.21-3.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-IO-Socket-SSL-2.024-3.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-JSON-Any-1.39-3.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-JSON-XS-3.01-3.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-JSON-XS-debuginfo-3.01-3.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-List-MoreUtils-0.413-3.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-List-MoreUtils-debuginfo-0.413-3.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-Module-Build-0.4216-3.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-Module-Install-1.16-3.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-Module-ScanDeps-1.18-3.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-Net-SSLeay-1.72-3.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-Net-SSLeay-debuginfo-1.72-3.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-Object-Accessor-0.48-3.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-Path-Class-0.37-2.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-Try-Tiny-0.28-2.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-Types-Serialiser-1.0-3.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-WWW-Curl-4.17-4.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-WWW-Curl-debuginfo-4.17-4.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-YAML-1.15-3.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-YAML-Tiny-1.69-3.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-common-sense-3.74-3.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-debuginfo-5.24.1-1.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-libintl-1.24-3.ph1")) flag++;
    if (rpm_check(release:"PhotonOS-1.0", reference:"perl-libintl-debuginfo-1.24-3.ph1")) flag++;
    
    if (flag)
    {
      security_report_v4(
        port       : 0,
        severity   : SECURITY_HOLE,
        extra      : rpm_report_get()
      );
      exit(0);
    }
    else
    {
      tested = pkg_tests_get();
      if (tested) audit(AUDIT_PACKAGE_NOT_AFFECTED, tested);
      else audit(AUDIT_PACKAGE_NOT_INSTALLED, "perl");
    }
    
  • NASL familySuSE Local Security Checks
    NASL idOPENSUSE-2018-400.NASL
    descriptionThis update for perl fixes the following issues : Security issues fixed : - CVE-2018-6913: Fixed space calculation issues in pp_pack.c (bsc#1082216). - CVE-2018-6798: Fixed heap buffer overflow in regexec.c (bsc#1082233). - CVE-2018-6797: Fixed sharp-s regexp overflow (bsc#1082234). This update was imported from the SUSE:SLE-12:Update update project.
    last seen2020-06-05
    modified2018-04-27
    plugin id109385
    published2018-04-27
    reporterThis script is Copyright (C) 2018-2020 and is owned by Tenable, Inc. or an Affiliate thereof.
    sourcehttps://www.tenable.com/plugins/nessus/109385
    titleopenSUSE Security Update : perl (openSUSE-2018-400)
    code
    #%NASL_MIN_LEVEL 80502
    #
    # (C) Tenable Network Security, Inc.
    #
    # The descriptive text and package checks in this plugin were
    # extracted from openSUSE Security Update openSUSE-2018-400.
    #
    # The text description of this plugin is (C) SUSE LLC.
    #
    
    include("compat.inc");
    
    if (description)
    {
      script_id(109385);
      script_version("1.4");
      script_set_attribute(attribute:"plugin_modification_date", value:"2020/06/04");
    
      script_cve_id("CVE-2018-6797", "CVE-2018-6798", "CVE-2018-6913");
    
      script_name(english:"openSUSE Security Update : perl (openSUSE-2018-400)");
      script_summary(english:"Check for the openSUSE-2018-400 patch");
    
      script_set_attribute(
        attribute:"synopsis", 
        value:"The remote openSUSE host is missing a security update."
      );
      script_set_attribute(
        attribute:"description", 
        value:
    "This update for perl fixes the following issues :
    
    Security issues fixed :
    
      - CVE-2018-6913: Fixed space calculation issues in
        pp_pack.c (bsc#1082216).
    
      - CVE-2018-6798: Fixed heap buffer overflow in regexec.c
        (bsc#1082233).
    
      - CVE-2018-6797: Fixed sharp-s regexp overflow
        (bsc#1082234).
    
    This update was imported from the SUSE:SLE-12:Update update project."
      );
      script_set_attribute(
        attribute:"see_also",
        value:"https://bugzilla.opensuse.org/show_bug.cgi?id=1082216"
      );
      script_set_attribute(
        attribute:"see_also",
        value:"https://bugzilla.opensuse.org/show_bug.cgi?id=1082233"
      );
      script_set_attribute(
        attribute:"see_also",
        value:"https://bugzilla.opensuse.org/show_bug.cgi?id=1082234"
      );
      script_set_attribute(attribute:"solution", value:"Update the affected perl packages.");
      script_set_cvss_base_vector("CVSS2#AV:N/AC:L/Au:N/C:P/I:P/A:P");
      script_set_cvss3_base_vector("CVSS:3.0/AV:N/AC:L/PR:N/UI:N/S:U/C:H/I:H/A:H");
    
      script_set_attribute(attribute:"plugin_type", value:"local");
      script_set_attribute(attribute:"cpe", value:"p-cpe:/a:novell:opensuse:perl");
      script_set_attribute(attribute:"cpe", value:"p-cpe:/a:novell:opensuse:perl-32bit");
      script_set_attribute(attribute:"cpe", value:"p-cpe:/a:novell:opensuse:perl-base");
      script_set_attribute(attribute:"cpe", value:"p-cpe:/a:novell:opensuse:perl-base-32bit");
      script_set_attribute(attribute:"cpe", value:"p-cpe:/a:novell:opensuse:perl-base-debuginfo");
      script_set_attribute(attribute:"cpe", value:"p-cpe:/a:novell:opensuse:perl-base-debuginfo-32bit");
      script_set_attribute(attribute:"cpe", value:"p-cpe:/a:novell:opensuse:perl-debuginfo");
      script_set_attribute(attribute:"cpe", value:"p-cpe:/a:novell:opensuse:perl-debuginfo-32bit");
      script_set_attribute(attribute:"cpe", value:"p-cpe:/a:novell:opensuse:perl-debugsource");
      script_set_attribute(attribute:"cpe", value:"cpe:/o:novell:opensuse:42.3");
    
      script_set_attribute(attribute:"patch_publication_date", value:"2018/04/26");
      script_set_attribute(attribute:"plugin_publication_date", value:"2018/04/27");
      script_end_attributes();
    
      script_category(ACT_GATHER_INFO);
      script_copyright(english:"This script is Copyright (C) 2018-2020 and is owned by Tenable, Inc. or an Affiliate thereof.");
      script_family(english:"SuSE Local Security Checks");
    
      script_dependencies("ssh_get_info.nasl");
      script_require_keys("Host/local_checks_enabled", "Host/SuSE/release", "Host/SuSE/rpm-list", "Host/cpu");
    
      exit(0);
    }
    
    
    include("audit.inc");
    include("global_settings.inc");
    include("rpm.inc");
    
    if (!get_kb_item("Host/local_checks_enabled")) audit(AUDIT_LOCAL_CHECKS_NOT_ENABLED);
    release = get_kb_item("Host/SuSE/release");
    if (isnull(release) || release =~ "^(SLED|SLES)") audit(AUDIT_OS_NOT, "openSUSE");
    if (release !~ "^(SUSE42\.3)$") audit(AUDIT_OS_RELEASE_NOT, "openSUSE", "42.3", release);
    if (!get_kb_item("Host/SuSE/rpm-list")) audit(AUDIT_PACKAGE_LIST_MISSING);
    
    ourarch = get_kb_item("Host/cpu");
    if (!ourarch) audit(AUDIT_UNKNOWN_ARCH);
    if (ourarch !~ "^(i586|i686|x86_64)$") audit(AUDIT_ARCH_NOT, "i586 / i686 / x86_64", ourarch);
    
    flag = 0;
    
    if ( rpm_check(release:"SUSE42.3", reference:"perl-5.18.2-12.1") ) flag++;
    if ( rpm_check(release:"SUSE42.3", reference:"perl-base-5.18.2-12.1") ) flag++;
    if ( rpm_check(release:"SUSE42.3", reference:"perl-base-debuginfo-5.18.2-12.1") ) flag++;
    if ( rpm_check(release:"SUSE42.3", reference:"perl-debuginfo-5.18.2-12.1") ) flag++;
    if ( rpm_check(release:"SUSE42.3", reference:"perl-debugsource-5.18.2-12.1") ) flag++;
    if ( rpm_check(release:"SUSE42.3", cpu:"x86_64", reference:"perl-32bit-5.18.2-12.1") ) flag++;
    if ( rpm_check(release:"SUSE42.3", cpu:"x86_64", reference:"perl-base-32bit-5.18.2-12.1") ) flag++;
    if ( rpm_check(release:"SUSE42.3", cpu:"x86_64", reference:"perl-base-debuginfo-32bit-5.18.2-12.1") ) flag++;
    if ( rpm_check(release:"SUSE42.3", cpu:"x86_64", reference:"perl-debuginfo-32bit-5.18.2-12.1") ) flag++;
    
    if (flag)
    {
      if (report_verbosity > 0) security_hole(port:0, extra:rpm_report_get());
      else security_hole(0);
      exit(0);
    }
    else
    {
      tested = pkg_tests_get();
      if (tested) audit(AUDIT_PACKAGE_NOT_AFFECTED, tested);
      else audit(AUDIT_PACKAGE_NOT_INSTALLED, "perl-32bit / perl / perl-base-32bit / perl-base / etc");
    }
    
  • NASL familyGentoo Local Security Checks
    NASL idGENTOO_GLSA-201909-01.NASL
    descriptionThe remote host is affected by the vulnerability described in GLSA-201909-01 (Perl: Multiple vulnerabilities) Multiple vulnerabilities have been discovered in Perl. Please review the CVE identifiers referenced below for details. Impact : Please review the referenced CVE identifiers for details. Workaround : There is no known workaround at this time.
    last seen2020-06-01
    modified2020-06-02
    plugin id128590
    published2019-09-09
    reporterThis script is Copyright (C) 2019 and is owned by Tenable, Inc. or an Affiliate thereof.
    sourcehttps://www.tenable.com/plugins/nessus/128590
    titleGLSA-201909-01 : Perl: Multiple vulnerabilities
    code
    #
    # (C) Tenable Network Security, Inc.
    #
    # The descriptive text and package checks in this plugin were
    # extracted from Gentoo Linux Security Advisory GLSA 201909-01.
    #
    # The advisory text is Copyright (C) 2001-2019 Gentoo Foundation, Inc.
    # and licensed under the Creative Commons - Attribution / Share Alike 
    # license. See http://creativecommons.org/licenses/by-sa/3.0/
    #
    
    include("compat.inc");
    
    if (description)
    {
      script_id(128590);
      script_version("1.2");
      script_cvs_date("Date: 2019/12/31");
    
      script_cve_id("CVE-2018-18311", "CVE-2018-18312", "CVE-2018-18313", "CVE-2018-18314", "CVE-2018-6797", "CVE-2018-6798", "CVE-2018-6913");
      script_xref(name:"GLSA", value:"201909-01");
    
      script_name(english:"GLSA-201909-01 : Perl: Multiple vulnerabilities");
      script_summary(english:"Checks for updated package(s) in /var/db/pkg");
    
      script_set_attribute(
        attribute:"synopsis", 
        value:
    "The remote Gentoo host is missing one or more security-related
    patches."
      );
      script_set_attribute(
        attribute:"description", 
        value:
    "The remote host is affected by the vulnerability described in GLSA-201909-01
    (Perl: Multiple vulnerabilities)
    
        Multiple vulnerabilities have been discovered in Perl. Please review the
          CVE identifiers referenced below for details.
      
    Impact :
    
        Please review the referenced CVE identifiers for details.
      
    Workaround :
    
        There is no known workaround at this time."
      );
      script_set_attribute(
        attribute:"see_also",
        value:"https://security.gentoo.org/glsa/201909-01"
      );
      script_set_attribute(
        attribute:"solution", 
        value:
    "All Perl users should upgrade to the latest version:
          # emerge --sync
          # emerge --ask --oneshot --verbose '>=dev-lang/perl-5.28.2'"
      );
      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:U/RL:OF/RC:C");
      script_set_cvss3_base_vector("CVSS:3.0/AV:N/AC:L/PR:N/UI:N/S:U/C:H/I:H/A:H");
      script_set_cvss3_temporal_vector("CVSS:3.0/E:U/RL:O/RC:C");
      script_set_attribute(attribute:"exploitability_ease", value:"No known exploits are available");
    
      script_set_attribute(attribute:"plugin_type", value:"local");
      script_set_attribute(attribute:"cpe", value:"p-cpe:/a:gentoo:linux:perl");
      script_set_attribute(attribute:"cpe", value:"cpe:/o:gentoo:linux");
    
      script_set_attribute(attribute:"vuln_publication_date", value:"2018/04/17");
      script_set_attribute(attribute:"patch_publication_date", value:"2019/09/06");
      script_set_attribute(attribute:"plugin_publication_date", value:"2019/09/09");
      script_set_attribute(attribute:"generated_plugin", value:"current");
      script_end_attributes();
    
      script_category(ACT_GATHER_INFO);
      script_copyright(english:"This script is Copyright (C) 2019 and is owned by Tenable, Inc. or an Affiliate thereof.");
      script_family(english:"Gentoo Local Security Checks");
    
      script_dependencies("ssh_get_info.nasl");
      script_require_keys("Host/local_checks_enabled", "Host/Gentoo/release", "Host/Gentoo/qpkg-list");
    
      exit(0);
    }
    
    
    include("audit.inc");
    include("global_settings.inc");
    include("qpkg.inc");
    
    if (!get_kb_item("Host/local_checks_enabled")) audit(AUDIT_LOCAL_CHECKS_NOT_ENABLED);
    if (!get_kb_item("Host/Gentoo/release")) audit(AUDIT_OS_NOT, "Gentoo");
    if (!get_kb_item("Host/Gentoo/qpkg-list")) audit(AUDIT_PACKAGE_LIST_MISSING);
    
    
    flag = 0;
    
    if (qpkg_check(package:"dev-lang/perl", unaffected:make_list("ge 5.28.2"), vulnerable:make_list("lt 5.28.2"))) flag++;
    
    if (flag)
    {
      if (report_verbosity > 0) security_hole(port:0, extra:qpkg_report_get());
      else security_hole(0);
      exit(0);
    }
    else
    {
      tested = qpkg_tests_get();
      if (tested) audit(AUDIT_PACKAGE_NOT_AFFECTED, tested);
      else audit(AUDIT_PACKAGE_NOT_INSTALLED, "Perl");
    }
    
  • NASL familyHuawei Local Security Checks
    NASL idEULEROS_SA-2019-2326.NASL
    descriptionAccording to the versions of the perl packages installed, the EulerOS Virtualization for ARM 64 installation on the remote host is affected by the following vulnerabilities : - An issue was discovered in Perl 5.18 through 5.26. A crafted regular expression can cause a heap-based buffer overflow, with control over the bytes written.(CVE-2018-6797) - An issue was discovered in Perl 5.22 through 5.26. Matching a crafted locale dependent regular expression can cause a heap-based buffer over-read and potentially information disclosure.(CVE-2018-6798) - Heap-based buffer overflow in the pack function in Perl before 5.26.2 allows context-dependent attackers to execute arbitrary code via a large item count.(CVE-2018-6913) - Perl before 5.26.3 and 5.28.0 before 5.28.1 has a buffer overflow via a crafted regular expression that triggers invalid write operations.(CVE-2018-18312) Note that Tenable Network Security has extracted the preceding description block directly from the EulerOS security advisory. Tenable has attempted to automatically clean and format it as much as possible without introducing additional issues.
    last seen2020-06-01
    modified2020-06-02
    plugin id131491
    published2019-12-03
    reporterThis script is Copyright (C) 2019 and is owned by Tenable, Inc. or an Affiliate thereof.
    sourcehttps://www.tenable.com/plugins/nessus/131491
    titleEulerOS Virtualization for ARM 64 3.0.3.0 : perl (EulerOS-SA-2019-2326)
  • NASL familyFedora Local Security Checks
    NASL idFEDORA_2018-1C8B49FBC7.NASL
    descriptionThis release provides Perl 5.24.4 that fixes a heap buffer overflow in the pack() function and two overflows in the regular expression engine. Note that Tenable Network Security has extracted the preceding description block directly from the Fedora update system website. Tenable has attempted to automatically clean and format it as much as possible without introducing additional issues.
    last seen2020-06-05
    modified2018-04-23
    plugin id109221
    published2018-04-23
    reporterThis script is Copyright (C) 2018-2020 and is owned by Tenable, Inc. or an Affiliate thereof.
    sourcehttps://www.tenable.com/plugins/nessus/109221
    titleFedora 27 : 1:perl-Module-CoreList / 4:perl (2018-1c8b49fbc7)
  • NASL familySuSE Local Security Checks
    NASL idSUSE_SU-2018-1074-1.NASL
    descriptionThis update for perl fixes the following issues: Security issues fixed : - CVE-2018-6913: Fixed space calculation issues in pp_pack.c (bsc#1082216). - CVE-2018-6798: Fixed heap buffer overflow in regexec.c (bsc#1082233). - CVE-2018-6797: Fixed sharp-s regexp overflow (bsc#1082234). Note that Tenable Network Security has extracted the preceding description block directly from the SUSE security advisory. Tenable has attempted to automatically clean and format it as much as possible without introducing additional issues.
    last seen2020-06-01
    modified2020-06-02
    plugin id109356
    published2018-04-26
    reporterThis script is Copyright (C) 2018-2019 and is owned by Tenable, Inc. or an Affiliate thereof.
    sourcehttps://www.tenable.com/plugins/nessus/109356
    titleSUSE SLED12 / SLES12 Security Update : perl (SUSE-SU-2018:1074-1)
  • NASL familyFedora Local Security Checks
    NASL idFEDORA_2018-D1BA58394E.NASL
    descriptionThis release provides Perl 5.26.2 that fixes a heap buffer overflow in the pack() function and two overflows in regular expression engine. Note that Tenable Network Security has extracted the preceding description block directly from the Fedora update system website. Tenable has attempted to automatically clean and format it as much as possible without introducing additional issues.
    last seen2020-06-05
    modified2019-01-03
    plugin id120813
    published2019-01-03
    reporterThis script is Copyright (C) 2019-2020 and is owned by Tenable, Inc. or an Affiliate thereof.
    sourcehttps://www.tenable.com/plugins/nessus/120813
    titleFedora 28 : 4:perl (2018-d1ba58394e)
  • NASL familyPhotonOS Local Security Checks
    NASL idPHOTONOS_PHSA-2018-1_0-0167.NASL
    descriptionAn update of 'vim', 'ntp', 'openjdk', 'libmspack', 'blktrace', 'systemd', 'perl' packages of Photon OS has been released.
    last seen2019-02-21
    modified2019-02-07
    plugin id111946
    published2018-08-17
    reporterTenable
    sourcehttps://www.tenable.com/plugins/index.php?view=single&id=111946
    titlePhoton OS 1.0: Blktrace / Libmspack / Ntp / Openjdk / Perl / Systemd / Vim PHSA-2018-1.0-0167 (deprecated)
  • NASL familyFedora Local Security Checks
    NASL idFEDORA_2018-0050F7C0D1.NASL
    descriptionThis release provides Perl 5.24.4 that fixes a heap buffer overflow in the pack() function and two overflows in the regular expression engine. Note that Tenable Network Security has extracted the preceding description block directly from the Fedora update system website. Tenable has attempted to automatically clean and format it as much as possible without introducing additional issues.
    last seen2020-06-05
    modified2018-04-26
    plugin id109350
    published2018-04-26
    reporterThis script is Copyright (C) 2018-2020 and is owned by Tenable, Inc. or an Affiliate thereof.
    sourcehttps://www.tenable.com/plugins/nessus/109350
    titleFedora 26 : 1:perl-Module-CoreList / 4:perl (2018-0050f7c0d1)
  • NASL familyFreeBSD Local Security Checks
    NASL idFREEBSD_PKG_41C96FFD29A64DCC9A8865F5038FA6EB.NASL
    descriptionperldelta : CVE-2018-6797: heap-buffer-overflow (WRITE of size 1) in S_regatom (regcomp.c) A crafted regular expression could cause a heap buffer write overflow, with control over the bytes written. [perl #132227] CVE-2018-6798: Heap-buffer-overflow in Perl__byte_dump_string (utf8.c) Matching a crafted locale dependent regular expression could cause a heap buffer read overflow and potentially information disclosure. [perl #132063] CVE-2018-6913: heap-buffer-overflow in S_pack_rec pack() could cause a heap buffer write overflow with a large item count. [perl #131844]
    last seen2020-06-01
    modified2020-06-02
    plugin id109051
    published2018-04-16
    reporterThis script is Copyright (C) 2018 and is owned by Tenable, Inc. or an Affiliate thereof.
    sourcehttps://www.tenable.com/plugins/nessus/109051
    titleFreeBSD : perl -- multiple vulnerabilities (41c96ffd-29a6-4dcc-9a88-65f5038fa6eb)
  • NASL familySuSE Local Security Checks
    NASL idSUSE_SU-2018-1972-1.NASL
    descriptionThis update for perl fixes the following issues: These security issue were fixed : - CVE-2018-6913: Fixed space calculation issues in pp_pack.c (bsc#1082216). - CVE-2018-6798: Fixed heap buffer overflow in regexec.c (bsc#1082233). - CVE-2018-6797: Fixed sharp-s regexp overflow (bsc#1082234). - CVE-2018-12015: The Archive::Tar module allowed remote attackers to bypass a directory-traversal protection mechanism and overwrite arbitrary files (bsc#1096718) The update package also includes non-security fixes. See advisory for details. Note that Tenable Network Security has extracted the preceding description block directly from the SUSE security advisory. Tenable has attempted to automatically clean and format it as much as possible without introducing additional issues.
    last seen2020-06-01
    modified2020-06-02
    plugin id111150
    published2018-07-18
    reporterThis script is Copyright (C) 2018-2019 and is owned by Tenable, Inc. or an Affiliate thereof.
    sourcehttps://www.tenable.com/plugins/nessus/111150
    titleSUSE SLED12 / SLES12 Security Update : perl (SUSE-SU-2018:1972-1)
  • NASL familySuSE Local Security Checks
    NASL idSUSE_SU-2018-1972-2.NASL
    descriptionThis update for perl fixes the following issues : These security issue were fixed : CVE-2018-6913: Fixed space calculation issues in pp_pack.c (bsc#1082216). CVE-2018-6798: Fixed heap buffer overflow in regexec.c (bsc#1082233). CVE-2018-6797: Fixed sharp-s regexp overflow (bsc#1082234). CVE-2018-12015: The Archive::Tar module allowed remote attackers to bypass a directory-traversal protection mechanism and overwrite arbitrary files (bsc#1096718) The update package also includes non-security fixes. See advisory for details. Note that Tenable Network Security has extracted the preceding description block directly from the SUSE security advisory. Tenable has attempted to automatically clean and format it as much as possible without introducing additional issues.
    last seen2020-06-01
    modified2020-06-02
    plugin id118275
    published2018-10-22
    reporterThis script is Copyright (C) 2018-2019 and is owned by Tenable, Inc. or an Affiliate thereof.
    sourcehttps://www.tenable.com/plugins/nessus/118275
    titleSUSE SLES12 Security Update : perl (SUSE-SU-2018:1972-2)
  • NASL familyDebian Local Security Checks
    NASL idDEBIAN_DSA-4172.NASL
    descriptionMultiple vulnerabilities were discovered in the implementation of the Perl programming language. The Common Vulnerabilities and Exposures project identifies the following problems : - CVE-2018-6797 Brian Carpenter reported that a crafted regular expression could cause a heap buffer write overflow, with control over the bytes written. - CVE-2018-6798 Nguyen Duc Manh reported that matching a crafted locale dependent regular expression can cause a heap-based buffer over-read and potentially information disclosure. - CVE-2018-6913 GwanYeong Kim reported that
    last seen2020-06-01
    modified2020-06-02
    plugin id109047
    published2018-04-16
    reporterThis script is Copyright (C) 2018 and is owned by Tenable, Inc. or an Affiliate thereof.
    sourcehttps://www.tenable.com/plugins/nessus/109047
    titleDebian DSA-4172-1 : perl - security update
  • NASL familyPhotonOS Local Security Checks
    NASL idPHOTONOS_PHSA-2018-2_0-0050_PERL.NASL
    descriptionAn update of the perl package has been released.
    last seen2020-03-17
    modified2019-02-07
    plugin id121950
    published2019-02-07
    reporterThis script is Copyright (C) 2019-2020 and is owned by Tenable, Inc. or an Affiliate thereof.
    sourcehttps://www.tenable.com/plugins/nessus/121950
    titlePhoton OS 2.0: Perl PHSA-2018-2.0-0050
  • NASL familySuSE Local Security Checks
    NASL idSUSE_SU-2018-0976-1.NASL
    descriptionThis update for perl fixes the following issues: Security issue fixed : - CVE-2018-6913: Fixed space calculation issues in pp_pack.c (bsc#1082216). - CVE-2018-6798: Fixed heap buffer overflow in regexec.c (bsc#1082233). Note that Tenable Network Security has extracted the preceding description block directly from the SUSE security advisory. Tenable has attempted to automatically clean and format it as much as possible without introducing additional issues.
    last seen2020-06-01
    modified2020-06-02
    plugin id109162
    published2018-04-19
    reporterThis script is Copyright (C) 2018-2019 and is owned by Tenable, Inc. or an Affiliate thereof.
    sourcehttps://www.tenable.com/plugins/nessus/109162
    titleSUSE SLES11 Security Update : perl (SUSE-SU-2018:0976-1)
  • NASL familyPhotonOS Local Security Checks
    NASL idPHOTONOS_PHSA-2018-2_0-0050.NASL
    descriptionAn update of {'perl', 'libmspack', 'zsh'} packages of Photon OS has been released.
    last seen2019-02-21
    modified2019-02-07
    plugin id111305
    published2018-07-24
    reporterTenable
    sourcehttps://www.tenable.com/plugins/index.php?view=single&id=111305
    titlePhoton OS 2.0 : perl / libmspack / zsh (PhotonOS-PHSA-2018-2.0-0050) (deprecated)

Redhat

advisories
rhsa
idRHSA-2018:1192
rpms
  • rh-perl524-perl-4:5.24.0-380.el6
  • rh-perl524-perl-4:5.24.0-380.el7
  • rh-perl524-perl-Attribute-Handlers-0:0.99-380.el6
  • rh-perl524-perl-Attribute-Handlers-0:0.99-380.el7
  • rh-perl524-perl-Devel-Peek-0:1.23-380.el6
  • rh-perl524-perl-Devel-Peek-0:1.23-380.el7
  • rh-perl524-perl-Devel-SelfStubber-0:1.05-380.el6
  • rh-perl524-perl-Devel-SelfStubber-0:1.05-380.el7
  • rh-perl524-perl-Errno-0:1.25-380.el6
  • rh-perl524-perl-Errno-0:1.25-380.el7
  • rh-perl524-perl-ExtUtils-Embed-0:1.33-380.el6
  • rh-perl524-perl-ExtUtils-Embed-0:1.33-380.el7
  • rh-perl524-perl-ExtUtils-Miniperl-0:1.05-380.el6
  • rh-perl524-perl-ExtUtils-Miniperl-0:1.05-380.el7
  • rh-perl524-perl-IO-0:1.36-380.el6
  • rh-perl524-perl-IO-0:1.36-380.el7
  • rh-perl524-perl-IO-Zlib-1:1.10-380.el6
  • rh-perl524-perl-IO-Zlib-1:1.10-380.el7
  • rh-perl524-perl-Locale-Maketext-Simple-1:0.21-380.el6
  • rh-perl524-perl-Locale-Maketext-Simple-1:0.21-380.el7
  • rh-perl524-perl-Math-BigInt-FastCalc-0:0.40-380.el6
  • rh-perl524-perl-Math-BigInt-FastCalc-0:0.40-380.el7
  • rh-perl524-perl-Math-BigRat-0:0.2608.02-380.el6
  • rh-perl524-perl-Math-BigRat-0:0.2608.02-380.el7
  • rh-perl524-perl-Math-Complex-0:1.59-380.el6
  • rh-perl524-perl-Math-Complex-0:1.59-380.el7
  • rh-perl524-perl-Memoize-0:1.03-380.el6
  • rh-perl524-perl-Memoize-0:1.03-380.el7
  • rh-perl524-perl-Module-Loaded-1:0.08-380.el6
  • rh-perl524-perl-Module-Loaded-1:0.08-380.el7
  • rh-perl524-perl-Net-Ping-0:2.43-380.el6
  • rh-perl524-perl-Net-Ping-0:2.43-380.el7
  • rh-perl524-perl-Pod-Html-0:1.22-380.el6
  • rh-perl524-perl-Pod-Html-0:1.22-380.el7
  • rh-perl524-perl-SelfLoader-0:1.23-380.el6
  • rh-perl524-perl-SelfLoader-0:1.23-380.el7
  • rh-perl524-perl-Test-0:1.28-380.el6
  • rh-perl524-perl-Test-0:1.28-380.el7
  • rh-perl524-perl-Time-Piece-0:1.31-380.el6
  • rh-perl524-perl-Time-Piece-0:1.31-380.el7
  • rh-perl524-perl-bignum-0:0.42-380.el6
  • rh-perl524-perl-bignum-0:0.42-380.el7
  • rh-perl524-perl-core-0:5.24.0-380.el6
  • rh-perl524-perl-core-0:5.24.0-380.el7
  • rh-perl524-perl-debuginfo-4:5.24.0-380.el6
  • rh-perl524-perl-debuginfo-4:5.24.0-380.el7
  • rh-perl524-perl-devel-4:5.24.0-380.el6
  • rh-perl524-perl-devel-4:5.24.0-380.el7
  • rh-perl524-perl-libnetcfg-4:5.24.0-380.el6
  • rh-perl524-perl-libnetcfg-4:5.24.0-380.el7
  • rh-perl524-perl-libs-4:5.24.0-380.el6
  • rh-perl524-perl-libs-4:5.24.0-380.el7
  • rh-perl524-perl-macros-4:5.24.0-380.el6
  • rh-perl524-perl-macros-4:5.24.0-380.el7
  • rh-perl524-perl-open-0:1.10-380.el6
  • rh-perl524-perl-open-0:1.10-380.el7
  • rh-perl524-perl-tests-4:5.24.0-380.el6
  • rh-perl524-perl-tests-4:5.24.0-380.el7
  • rh-perl524-perl-utils-0:5.24.0-380.el6
  • rh-perl524-perl-utils-0:5.24.0-380.el7