EulerOS 2.0 SP15 : perl (EulerOS-SA-2026-3999)

#%NASL_MIN_LEVEL 80900
##
# (C) Tenable, Inc.
##

include('compat.inc');

if (description)
{
  script_id(364060);
  script_version("1.1");
  script_set_attribute(attribute:"plugin_modification_date", value:"2026/10/08");

  script_cve_id("CVE-2026-12087", "CVE-2026-13221", "CVE-2026-57432");
  script_xref(name:"IAVA", value:"2026-A-0618");
  script_xref(name:"IAVA", value:"2026-A-0696-S");

  script_name(english:"EulerOS 2.0 SP15 : perl (EulerOS-SA-2026-3999)");

  script_set_attribute(attribute:"synopsis", value:
"The remote EulerOS host is missing multiple security updates.");
  script_set_attribute(attribute:"description", value:
"According to the versions of the perl packages installed, the EulerOS installation on the remote host is affected by the
following vulnerabilities :

    Perl versions through 5.43.9 produce silently incorrect regular expression matches when an alternation of
    more than 65535 fixed string branches is compiled into a trie in Perl_study_chunk._x000D_
    _x000D_
    When such branches are combined into a trie, the delta between the first branch and the shared tail is
    stored in a 16-bit field. A branch count above 65535 overflows the field, and the trie's match decision
    table is truncated with no warning or error._x000D_
    _x000D_
    A pattern of this shape produces false positive matches (matching strings it should not) and false
    negative matches (failing to match strings it should). When such a pattern gates an access or filtering
    decision, the result is wrong.(CVE-2026-13221)

    Socket versions before 2.041 for Perl have an out-of-bounds heap read._x000D_
    _x000D_
    In Socket.xs, pack_ip_mreq_source() checks the length of its source argument before the argument is read,
    so the check tests the byte length carried over from the preceding multiaddr argument instead. Both
    addresses occupy a 4-byte field, so a valid multiaddr lets a source of any length pass the check, and the
    source is then copied into the 4-byte imr_sourceaddr field with a fixed-size copy. A source shorter than 4
    bytes is not rejected, and the copy reads up to 3 bytes past the end of its buffer._x000D_
    _x000D_
    Calling pack_ip_mreq_source() with a source value shorter than 4 bytes copies adjacent heap memory into
    the returned packed structure.(CVE-2026-12087)

    Perl versions through 5.43.10 have an integer overflow in S_measure_struct leading to an out-of-bounds
    heap read in pack and unpack._x000D_
    _x000D_
    S_measure_struct adds each item's size times its repeat count to a running total with no overflow check,
    so a large repeat count in a pack or unpack template wraps the signed SSize_t total negative. The @, X,
    and x position codes then guard their moves with a signed length comparison that passes when the length is
    negative, advancing the buffer pointer out of bounds._x000D_
    _x000D_
    A template derived from untrusted input can read heap memory past the buffer and return it to the
    caller.(CVE-2026-57432)

Tenable has extracted the preceding description block directly from the EulerOS perl security advisory.

Note that Nessus has not tested for these issues but has instead relied only on the application's self-reported version
number.");
  # https://developer.huaweicloud.com/ict/en/site-euleros/euleros/security-advisories/EulerOS-SA-2026-3999
  script_set_attribute(attribute:"see_also", value:"http://www.nessus.org/u?2913dfd7");
  script_set_attribute(attribute:"solution", value:
"Update the affected perl packages.");
  script_set_cvss_base_vector("CVSS2#AV:N/AC:L/Au:N/C:N/I:C/A:C");
  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:N/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-2026-13221");

  script_set_attribute(attribute:"exploitability_ease", value:"No known exploits are available");
  script_set_attribute(attribute:"exploit_available", value:"false");

  script_set_attribute(attribute:"vuln_publication_date", value:"2026/06/15");
  script_set_attribute(attribute:"patch_publication_date", value:"2026/10/08");
  script_set_attribute(attribute:"plugin_publication_date", value:"2026/10/08");

  script_set_attribute(attribute:"plugin_type", value:"local");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:huawei:euleros:perl");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:huawei:euleros:perl-devel");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:huawei:euleros:perl-help");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:huawei:euleros:perl-libs");
  script_set_attribute(attribute:"cpe", value:"cpe:/o:huawei:euleros:2.0");
  script_set_attribute(attribute:"generated_plugin", value:"current");
  script_set_attribute(attribute:"stig_severity", value:"I");
  script_end_attributes();

  script_category(ACT_GATHER_INFO);
  script_family(english:"Huawei Local Security Checks");

  script_copyright(english:"This script is Copyright (C) 2026 and is owned by Tenable, Inc. or an Affiliate thereof.");

  script_dependencies("ssh_get_info.nasl");
  script_require_keys("Host/local_checks_enabled", "Host/cpu", "Host/EulerOS/release", "Host/EulerOS/rpm-list", "Host/EulerOS/sp");
  script_exclude_keys("Host/EulerOS/uvp_version");

  exit(0);
}

include("rpm.inc");

if (!get_kb_item("Host/local_checks_enabled")) audit(AUDIT_LOCAL_CHECKS_NOT_ENABLED);

var _release = get_kb_item("Host/EulerOS/release");
if (isnull(_release) || _release !~ "^EulerOS") audit(AUDIT_OS_NOT, "EulerOS");
var uvp = get_kb_item("Host/EulerOS/uvp_version");
if (_release !~ "^EulerOS release 2\.0(\D|$)") audit(AUDIT_OS_NOT, "EulerOS 2.0 SP15");

var sp = get_kb_item("Host/EulerOS/sp");
if (isnull(sp) || sp !~ "^(15)$") audit(AUDIT_OS_NOT, "EulerOS 2.0 SP15");

if (!empty_or_null(uvp)) audit(AUDIT_OS_NOT, "EulerOS 2.0 SP15", "EulerOS UVP " + uvp);

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

var cpu = get_kb_item("Host/cpu");
if (isnull(cpu)) audit(AUDIT_UNKNOWN_ARCH);
if ("x86_64" >!< cpu && cpu !~ "^i[3-6]86$" && "aarch64" >!< cpu && "x86" >!< cpu) audit(AUDIT_LOCAL_CHECKS_NOT_IMPLEMENTED, "EulerOS", cpu);
if ("aarch64" >!< cpu) audit(AUDIT_ARCH_NOT, "aarch64", cpu);

var flag = 0;

var pkgs = [
  "perl-5.38.0-8.h21510.109.eulerosv2r15",
  "perl-devel-5.38.0-8.h21510.109.eulerosv2r15",
  "perl-help-5.38.0-8.h21510.109.eulerosv2r15",
  "perl-libs-5.38.0-8.h21510.109.eulerosv2r15"
];

foreach (var pkg in pkgs)
  if (rpm_check(release:"EulerOS-2.0", sp:"15", reference:pkg)) flag++;

if (flag)
{
  security_report_v4(
    port       : 0,
    severity   : SECURITY_HOLE,
    extra      : rpm_report_get()
  );
  exit(0);
}
else
{
  var tested = pkg_tests_get();
  if (tested) audit(AUDIT_PACKAGE_NOT_AFFECTED, tested);
  else audit(AUDIT_PACKAGE_NOT_INSTALLED, "perl");
}