TencentOS Server 3: perl (TSSA-2026:1018)

#%NASL_MIN_LEVEL 80900
##
# (C) Tenable, Inc.
#
# The descriptive text and package checks in this plugin were
# extracted from Tencent Linux Security Advisory TSSA-2026:1018.
##

include('compat.inc');

if (description)
{
  script_id(348670);
  script_version("1.1");
  script_set_attribute(attribute:"plugin_modification_date", value:"2026/09/21");

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

  script_name(english:"TencentOS Server 3: perl (TSSA-2026:1018)");

  script_set_attribute(attribute:"synopsis", value:
"The remote TencentOS Server 3 host is missing one or more security updates.");
  script_set_attribute(attribute:"description", value:
"The version of Tencent Linux installed on the remote TencentOS Server 3 host is prior to tested version. It is,
therefore, affected by a vulnerability as referenced in the TSSA-2026:1018 advisory.

    Package updates are available for TencentOS Server 3 that fix the following vulnerabilities:

    CVE-2026-13221:
    A flaw was found in Perl. When the Perl regular expression engine processes patterns with a very large
    number of alternative fixed strings, an internal data field can overflow. This leads to silently incorrect
    regular expression matches, causing the engine to either match strings it should not (false positives) or
    fail to match strings it should (false negatives). If these regular expressions are used for security-
    sensitive operations like access control or data filtering, this flaw could result in incorrect security
    decisions.

Tenable has extracted the preceding description block directly from the Tencent Linux security advisory.

Note that Nessus has not tested for this issue but has instead relied only on the application's self-reported version
number.");
  script_set_attribute(attribute:"see_also", value:"https://mirrors.tencent.com/tlinux/errata/tssa-20261018.xml");
  script_set_attribute(attribute:"solution", value:
"Update the affected 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/07/13");
  script_set_attribute(attribute:"patch_publication_date", value:"2026/09/14");
  script_set_attribute(attribute:"plugin_publication_date", value:"2026/09/21");

  script_set_attribute(attribute:"plugin_type", value:"local");
  script_set_attribute(attribute:"cpe", value:"cpe:/o:tencent:tencentos_server:3");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:tencent:tencentos_server:perl");
  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:"Tencent 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/etc/os-release", "Host/TencentOS/rpm-list", "Host/cpu");

  exit(0);
}


include('rpm2.inc');

if (!get_kb_item('Host/local_checks_enabled')) audit(AUDIT_LOCAL_CHECKS_NOT_ENABLED);
var os_product = get_kb_item('installed_os/local/SSH/0/product');
if (isnull(os_product) || 'TencentOS' >!< os_product) audit(AUDIT_OS_NOT, 'TencentOS');
var os_version = get_kb_item('installed_os/local/SSH/0/version');
if (isnull(os_version)) audit(AUDIT_UNKNOWN_APP_VER, 'TencentOS');
if (! preg(pattern:"^3([^0-9]|$)", string:os_version)) audit(AUDIT_OS_NOT, 'TencentOS 3.x', 'TencentOS ' + os_version);

if (!get_kb_item('Host/TencentOS/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$" && 's390' >!< cpu && 'aarch64' >!< cpu) audit(AUDIT_LOCAL_CHECKS_NOT_IMPLEMENTED, 'TencentOS', cpu);

var constraints = [
  {
    'release': '3',
    'pkgs': [
      {'reference':'perl-5.30.1-452.module+el8.6.0+283+4ffeb9c6', 'cpu':'aarch64', 'rpm_spec_vers_cmp':TRUE, 'epoch':'4'},
      {'reference':'perl-5.30.1-452.module+el8.6.0+283+4ffeb9c6', 'cpu':'x86_64', 'rpm_spec_vers_cmp':TRUE, 'epoch':'4'},
      {'reference':'perl-Attribute-Handlers-1.01-452.module+el8.6.0+283+4ffeb9c6', 'rpm_spec_vers_cmp':TRUE},
      {'reference':'perl-debuginfo-5.32.1-473.module+el8.8.0+635+f8017b66', 'cpu':'aarch64', 'rpm_spec_vers_cmp':TRUE, 'epoch':'4'},
      {'reference':'perl-debuginfo-5.32.1-473.module+el8.8.0+635+f8017b66', 'cpu':'x86_64', 'rpm_spec_vers_cmp':TRUE, 'epoch':'4'},
      {'reference':'perl-debugsource-5.32.1-473.module+el8.8.0+635+f8017b66', 'cpu':'aarch64', 'rpm_spec_vers_cmp':TRUE, 'epoch':'4'},
      {'reference':'perl-debugsource-5.32.1-473.module+el8.8.0+635+f8017b66', 'cpu':'x86_64', 'rpm_spec_vers_cmp':TRUE, 'epoch':'4'},
      {'reference':'perl-devel-5.30.1-452.module+el8.6.0+283+4ffeb9c6', 'cpu':'aarch64', 'rpm_spec_vers_cmp':TRUE, 'epoch':'4'},
      {'reference':'perl-devel-5.30.1-452.module+el8.6.0+283+4ffeb9c6', 'cpu':'x86_64', 'rpm_spec_vers_cmp':TRUE, 'epoch':'4'},
      {'reference':'perl-Devel-Peek-1.28-452.module+el8.6.0+283+4ffeb9c6', 'cpu':'aarch64', 'rpm_spec_vers_cmp':TRUE},
      {'reference':'perl-Devel-Peek-1.28-452.module+el8.6.0+283+4ffeb9c6', 'cpu':'x86_64', 'rpm_spec_vers_cmp':TRUE},
      {'reference':'perl-Devel-Peek-debuginfo-1.28-473.module+el8.8.0+635+f8017b66', 'cpu':'aarch64', 'rpm_spec_vers_cmp':TRUE},
      {'reference':'perl-Devel-Peek-debuginfo-1.28-473.module+el8.8.0+635+f8017b66', 'cpu':'x86_64', 'rpm_spec_vers_cmp':TRUE},
      {'reference':'perl-Devel-SelfStubber-1.06-452.module+el8.6.0+283+4ffeb9c6', 'rpm_spec_vers_cmp':TRUE},
      {'reference':'perl-Errno-1.30-452.module+el8.6.0+283+4ffeb9c6', 'cpu':'aarch64', 'rpm_spec_vers_cmp':TRUE},
      {'reference':'perl-Errno-1.30-452.module+el8.6.0+283+4ffeb9c6', 'cpu':'x86_64', 'rpm_spec_vers_cmp':TRUE},
      {'reference':'perl-ExtUtils-Embed-1.35-452.module+el8.6.0+283+4ffeb9c6', 'rpm_spec_vers_cmp':TRUE},
      {'reference':'perl-ExtUtils-Miniperl-1.09-452.module+el8.6.0+283+4ffeb9c6', 'rpm_spec_vers_cmp':TRUE},
      {'reference':'perl-interpreter-5.30.1-452.module+el8.6.0+283+4ffeb9c6', 'cpu':'aarch64', 'rpm_spec_vers_cmp':TRUE, 'epoch':'4'},
      {'reference':'perl-interpreter-5.30.1-452.module+el8.6.0+283+4ffeb9c6', 'cpu':'x86_64', 'rpm_spec_vers_cmp':TRUE, 'epoch':'4'},
      {'reference':'perl-interpreter-debuginfo-5.32.1-473.module+el8.8.0+635+f8017b66', 'cpu':'aarch64', 'rpm_spec_vers_cmp':TRUE, 'epoch':'4'},
      {'reference':'perl-interpreter-debuginfo-5.32.1-473.module+el8.8.0+635+f8017b66', 'cpu':'x86_64', 'rpm_spec_vers_cmp':TRUE, 'epoch':'4'},
      {'reference':'perl-IO-1.40-452.module+el8.6.0+283+4ffeb9c6', 'cpu':'aarch64', 'rpm_spec_vers_cmp':TRUE},
      {'reference':'perl-IO-1.40-452.module+el8.6.0+283+4ffeb9c6', 'cpu':'x86_64', 'rpm_spec_vers_cmp':TRUE},
      {'reference':'perl-IO-debuginfo-1.43-473.module+el8.8.0+635+f8017b66', 'cpu':'aarch64', 'rpm_spec_vers_cmp':TRUE},
      {'reference':'perl-IO-debuginfo-1.43-473.module+el8.8.0+635+f8017b66', 'cpu':'x86_64', 'rpm_spec_vers_cmp':TRUE},
      {'reference':'perl-IO-Zlib-1.10-452.module+el8.6.0+283+4ffeb9c6', 'rpm_spec_vers_cmp':TRUE, 'epoch':'1'},
      {'reference':'perl-libnetcfg-5.30.1-452.module+el8.6.0+283+4ffeb9c6', 'rpm_spec_vers_cmp':TRUE, 'epoch':'4'},
      {'reference':'perl-libs-5.30.1-452.module+el8.6.0+283+4ffeb9c6', 'cpu':'aarch64', 'rpm_spec_vers_cmp':TRUE, 'epoch':'4'},
      {'reference':'perl-libs-5.30.1-452.module+el8.6.0+283+4ffeb9c6', 'cpu':'x86_64', 'rpm_spec_vers_cmp':TRUE, 'epoch':'4'},
      {'reference':'perl-libs-debuginfo-5.32.1-473.module+el8.8.0+635+f8017b66', 'cpu':'aarch64', 'rpm_spec_vers_cmp':TRUE, 'epoch':'4'},
      {'reference':'perl-libs-debuginfo-5.32.1-473.module+el8.8.0+635+f8017b66', 'cpu':'x86_64', 'rpm_spec_vers_cmp':TRUE, 'epoch':'4'},
      {'reference':'perl-Locale-Maketext-Simple-0.21-452.module+el8.6.0+283+4ffeb9c6', 'rpm_spec_vers_cmp':TRUE, 'epoch':'1'},
      {'reference':'perl-macros-5.30.1-452.module+el8.6.0+283+4ffeb9c6', 'cpu':'aarch64', 'rpm_spec_vers_cmp':TRUE, 'epoch':'4'},
      {'reference':'perl-macros-5.30.1-452.module+el8.6.0+283+4ffeb9c6', 'cpu':'x86_64', 'rpm_spec_vers_cmp':TRUE, 'epoch':'4'},
      {'reference':'perl-Math-Complex-1.59-452.module+el8.6.0+283+4ffeb9c6', 'rpm_spec_vers_cmp':TRUE},
      {'reference':'perl-Memoize-1.03-452.module+el8.6.0+283+4ffeb9c6', 'rpm_spec_vers_cmp':TRUE},
      {'reference':'perl-Module-Loaded-0.08-452.module+el8.6.0+283+4ffeb9c6', 'rpm_spec_vers_cmp':TRUE, 'epoch':'1'},
      {'reference':'perl-Net-Ping-2.71-452.module+el8.6.0+283+4ffeb9c6', 'rpm_spec_vers_cmp':TRUE},
      {'reference':'perl-open-1.11-452.module+el8.6.0+283+4ffeb9c6', 'rpm_spec_vers_cmp':TRUE},
      {'reference':'perl-Pod-Html-1.24-452.module+el8.6.0+283+4ffeb9c6', 'rpm_spec_vers_cmp':TRUE},
      {'reference':'perl-SelfLoader-1.25-452.module+el8.6.0+283+4ffeb9c6', 'rpm_spec_vers_cmp':TRUE},
      {'reference':'perl-Test-1.31-452.module+el8.6.0+283+4ffeb9c6', 'rpm_spec_vers_cmp':TRUE},
      {'reference':'perl-tests-5.30.1-452.module+el8.6.0+283+4ffeb9c6', 'cpu':'aarch64', 'rpm_spec_vers_cmp':TRUE, 'epoch':'4'},
      {'reference':'perl-tests-5.30.1-452.module+el8.6.0+283+4ffeb9c6', 'cpu':'x86_64', 'rpm_spec_vers_cmp':TRUE, 'epoch':'4'},
      {'reference':'perl-Time-Piece-1.33-452.module+el8.6.0+283+4ffeb9c6', 'cpu':'aarch64', 'rpm_spec_vers_cmp':TRUE},
      {'reference':'perl-Time-Piece-1.33-452.module+el8.6.0+283+4ffeb9c6', 'cpu':'x86_64', 'rpm_spec_vers_cmp':TRUE},
      {'reference':'perl-Time-Piece-debuginfo-1.3401-473.module+el8.8.0+635+f8017b66', 'cpu':'aarch64', 'rpm_spec_vers_cmp':TRUE},
      {'reference':'perl-Time-Piece-debuginfo-1.3401-473.module+el8.8.0+635+f8017b66', 'cpu':'x86_64', 'rpm_spec_vers_cmp':TRUE},
      {'reference':'perl-utils-5.30.1-452.module+el8.6.0+283+4ffeb9c6', 'rpm_spec_vers_cmp':TRUE}
    ]
  }
];

var os_release = get_one_kb_item('installed_os/local/SSH/0/release');
var os_sp = get_one_kb_item('Host/*/minor_release');

var flag = 0;
var reference;
var sp;
var _cpu;
var el_string;
var rpm_spec_vers_cmp;
var epoch;
var allowmaj;
var exists_check;
var cves;
foreach var constraint ( constraints ) {
  # Check that the target release is equal to the affected release
  if (!empty_or_null(constraint['release'])){
    if (constraint['release'] != os_release) continue;
  }
  if (!empty_or_null(constraint['sp'])){
    if (constraint['sp'] != os_sp) continue;
  }
  foreach var pkg ( constraint['pkgs'] ) {
    reference = NULL;
    sp = NULL;
    _cpu = NULL;
    el_string = NULL;
    rpm_spec_vers_cmp = NULL;
    epoch = NULL;
    allowmaj = NULL;
    exists_check = NULL;
    cves = NULL;
    if (!empty_or_null(pkg['reference'])) reference = pkg['reference'];
    if (!empty_or_null(pkg['sp'])) sp = pkg['sp'];
    if (!empty_or_null(pkg['cpu'])) _cpu = pkg['cpu'];
    if (!empty_or_null(pkg['el_string'])) el_string = pkg['el_string'];
    if (!empty_or_null(pkg['rpm_spec_vers_cmp'])) rpm_spec_vers_cmp = pkg['rpm_spec_vers_cmp'];
    if (!empty_or_null(pkg['epoch'])) epoch = pkg['epoch'];
    if (!empty_or_null(pkg['allowmaj'])) allowmaj = pkg['allowmaj'];
    if (!empty_or_null(pkg['exists_check'])) exists_check = pkg['exists_check'];
    if (!empty_or_null(pkg['cves'])) cves = pkg['cves'];
    if (reference &&
        ## (no known rpm to check OR known rpm_exists)
        (!exists_check || rpm_exists(rpm:exists_check)) &&
        rpm_check(sp:sp, cpu:_cpu, reference:reference, epoch:epoch, el_string:el_string, rpm_spec_vers_cmp:rpm_spec_vers_cmp, allowmaj:allowmaj, cves:cves)) 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 / perl-Attribute-Handlers / perl-Devel-Peek / etc');
}