EulerOS 2.0 SP13 : perl-DBI (EulerOS-SA-2026-4083)

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

include('compat.inc');

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

  script_cve_id(
    "CVE-2026-9698",
    "CVE-2026-10879",
    "CVE-2026-14739",
    "CVE-2026-15043",
    "CVE-2026-60081",
    "CVE-2026-60082",
    "CVE-2026-73194"
  );

  script_name(english:"EulerOS 2.0 SP13 : perl-DBI (EulerOS-SA-2026-4083)");

  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-DBI packages installed, the EulerOS installation on the remote host is affected by
the following vulnerabilities :

    DBI versions before 1.648 for Perl have a heap overflow when preparsing SQL statements with more than 9
    binders.

    The preparse method expands SQL placeholder characters to numbered binders of the form :pN, but only
    allocates three characters per binder in the buffer.  Placeholders 10-99 require four characters, 100-999
    require five characters, et cetera.(CVE-2026-10879)

    DBI versions before 1.650 for Perl have a heap overflow when preparsing SQL statements with an extreme
    number of placeholders.

    The fix for CVE-2026-10879 did not allocate enough memory to handle approximately 1.2-million
    placeholders.

    DBI version 1.650 sets a hard limit of 99,999 placeholders.(CVE-2026-14739)

    DBI versions before 1.651 for Perl do not enforce statement handle consistency with the row.

    When the statement handle had no fields but the source row was non-empty, the internal row-buffer helper
    would read from a negative array index.

    This could be triggered by a caller supplying inconsistent metadata and rows to the prepare
    method.(CVE-2026-60082)

    DBI::ProfileData versions before 1.651 for Perl do not limit the path index.

    The path index column of profile dump files is used to allocate an array of data for the parser. An
    unbounded value allows an attacker to specify a large index and consume available memory.(CVE-2026-60081)

    DBI versions before 1.648 for Perl saved errors in a limited-sized buffer.

    Error messages that were returned when RaiseError, PrintError or HandleError were set were written to a
    200-byte buffer without a length limit.

    Attackers that can influence the error text in an application can trigger a buffer
    overflow.(CVE-2026-9698)

    DBI::SQL::Nano versions from 1.42 before 1.651 for Perl have inverted = and = SQL operators on text.

    DBI::SQL::Nano, DBI's built-in mini-SQL engine, evaluated WHERE predicates incorrectly in some cases. In
    the non-numeric string branch of the is_matched method, = was evaluated using Perl's ge operator, and
    = was evaluated using Perl's le operator.

    SQL::Nano is the fallback query engine for DBI's file-backed drivers (DBD::File, DBD::DBM, CSV-style
    drivers) whenever SQL::Statement is not installed, and is forced whenever DBI_SQL_NANO=1. Queries over
    such tables use these predicates directly.

    The impact depends on the context. Where an application relies on a WHERE clause to filter file-backed
    data for policy or authorization, an inverted =/= comparison silently returns the wrong
    rows.(CVE-2026-15043)

    DBI versions before 1.652 for Perl allow a heap out-of-bounds write via an unvalidated numeric placeholder
    that sets the binder counter in preparse.

    preparse reserves seven output bytes per input byte, the width of the longest ':p99999' expansion. The
    ':N' branch parses the number with `atoi(src)` and assigns it to the binder counter with no range check,
    so a statement containing ':2147483648' leaves the counter negative (-2147483648 with glibc, where atoi
    wraps). Each following '?' then expands through `sprintf(start, ':p%d', idx++)` to ':p-2147483648', 14
    bytes with the terminating NUL where the buffer budgets 7. The placeholder limit added in 1.650 tests the
    counter against 99,999, which a negative counter passes.

    Any caller that preparses an untrusted statement into ':pN' style placeholders gets a heap out-of-bounds
    write that grows with the number of '?' marks following the poisoned placeholder. The '?' and '%s' return
    styles compare the parsed number against the expected sequence and error out, and are
    unaffected.(CVE-2026-73194)

Tenable has extracted the preceding description block directly from the EulerOS perl-DBI 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-4083
  script_set_attribute(attribute:"see_also", value:"http://www.nessus.org/u?c3c5ac7e");
  script_set_attribute(attribute:"solution", value:
"Update the affected perl-DBI packages.");
  script_set_cvss_base_vector("CVSS2#AV:N/AC:L/Au:N/C:C/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: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-2026-9698");

  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/05");
  script_set_attribute(attribute:"patch_publication_date", value:"2026/10/10");
  script_set_attribute(attribute:"plugin_publication_date", value:"2026/10/12");

  script_set_attribute(attribute:"plugin_type", value:"local");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:huawei:euleros:perl-DBI");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:huawei:euleros:perl-DBI-help");
  script_set_attribute(attribute:"cpe", value:"cpe:/o:huawei:euleros:2.0");
  script_set_attribute(attribute:"generated_plugin", value:"current");
  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_info2.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 SP13");

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

if (!empty_or_null(uvp)) audit(AUDIT_OS_NOT, "EulerOS 2.0 SP13", "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 ("x86_64" >!< cpu && cpu !~ "^i[3-6]86$" && "x86" >!< cpu) audit(AUDIT_ARCH_NOT, "i686 / x86_64", cpu);

var flag = 0;

var pkgs = [
  "perl-DBI-1.643-3.h3.eulerosv2r13",
  "perl-DBI-help-1.643-3.h3.eulerosv2r13"
];

foreach (var pkg in pkgs)
  if (rpm_check(release:"EulerOS-2.0", sp:"13", 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-DBI");
}