Linux Distros Unpatched Vulnerability : CVE-2026-13221

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

include('compat.inc');

if (description)
{
  script_id(326561);
  script_version("1.2");
  script_set_attribute(attribute:"plugin_modification_date", value:"2026/07/14");

  script_cve_id("CVE-2026-13221");

  script_name(english:"Linux Distros Unpatched Vulnerability : CVE-2026-13221");

  script_set_attribute(attribute:"synopsis", value:
"The Linux/Unix host has one or more packages installed with a vulnerability that the vendor indicates will not be
patched.");
  script_set_attribute(attribute:"description", value:
"The Linux/Unix host has one or more packages installed that are impacted by a vulnerability without a vendor supplied
patch available.

  - 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. 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. 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)

Note that Nessus relies on the presence of the package as reported by the vendor.");
  script_set_attribute(attribute:"see_also", value:"https://security-tracker.debian.org/tracker/CVE-2026-13221");
  script_set_attribute(attribute:"see_also", value:"https://ubuntu.com/security/CVE-2026-13221");
  script_set_attribute(attribute:"solution", value:
"There is no known solution at this time.");
  script_set_attribute(attribute:"agent", value:"unix");
  script_set_cvss_base_vector("CVSS2#AV:N/AC:L/Au:N/C:N/I:P/A:P");
  script_set_cvss_temporal_vector("CVSS2#E:U/RL:U/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:U/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:"vendor_unpatched", value:"true");

  script_set_attribute(attribute:"vuln_publication_date", value:"2026/07/13");
  script_set_attribute(attribute:"plugin_publication_date", value:"2026/07/13");

  script_set_attribute(attribute:"plugin_type", value:"local");
  script_set_attribute(attribute:"cpe", value:"cpe:/o:canonical:ubuntu_linux:14.04:-:lts");
  script_set_attribute(attribute:"cpe", value:"cpe:/o:canonical:ubuntu_linux:16.04:-:lts");
  script_set_attribute(attribute:"cpe", value:"cpe:/o:canonical:ubuntu_linux:18.04:-:lts");
  script_set_attribute(attribute:"cpe", value:"cpe:/o:canonical:ubuntu_linux:20.04:-:lts");
  script_set_attribute(attribute:"cpe", value:"cpe:/o:canonical:ubuntu_linux:22.04:-:lts");
  script_set_attribute(attribute:"cpe", value:"cpe:/o:canonical:ubuntu_linux:24.04:-:lts");
  script_set_attribute(attribute:"cpe", value:"cpe:/o:canonical:ubuntu_linux:26.04:-:lts");
  script_set_attribute(attribute:"cpe", value:"cpe:/o:debian:debian_linux:11.0");
  script_set_attribute(attribute:"cpe", value:"cpe:/o:debian:debian_linux:12.0");
  script_set_attribute(attribute:"cpe", value:"cpe:/o:debian:debian_linux:13.0");
  script_set_attribute(attribute:"cpe", value:"cpe:/o:debian:debian_linux:14.0");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:canonical:ubuntu_linux:perl");
  script_set_attribute(attribute:"cpe", value:"p-cpe:/a:debian:debian_linux:perl");
  script_set_attribute(attribute:"generated_plugin", value:"current");
  script_end_attributes();

  script_category(ACT_GATHER_INFO);
  script_family(english:"Misc.");

  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", "set_linux_os_id.nasl");
  script_require_keys("Host/cpu", "Host/local_checks_enabled", "global_settings/vendor_unpatched", "Host/OS/identifier");
  script_require_ports("Host/OS/Debian Linux-11", "Host/OS/Debian Linux-12", "Host/OS/Debian Linux-13", "Host/OS/Debian Linux-14", "Host/OS/Ubuntu Linux-14.04", "Host/OS/Ubuntu Linux-16.04", "Host/OS/Ubuntu Linux-18.04", "Host/OS/Ubuntu Linux-20.04", "Host/OS/Ubuntu Linux-22.04", "Host/OS/Ubuntu Linux-24.04", "Host/OS/Ubuntu Linux-26.04");

  exit(0);
}

if (!get_kb_item("global_settings/vendor_unpatched")) exit(0, "Unpatched Vulnerabilities Detection not active.");
if (!get_kb_item("Host/local_checks_enabled")) audit(AUDIT_LOCAL_CHECKS_NOT_ENABLED);
if (empty_or_null(get_one_kb_item("Host/Debian/dpkg-l"))) audit(AUDIT_PACKAGE_LIST_MISSING);

include('linux_unpatched.inc');

var distro_constraints_array = {
  "Debian Linux-12": {
    "package_manager": "dpkg-l",
    "constraints": [
      {
        "release": "12",
        "pkgs": [
          {"reference": "libperl-dev"},
          {"reference": "libperl5.36"},
          {"reference": "perl"},
          {"reference": "perl-base"},
          {"reference": "perl-debug"},
          {"reference": "perl-doc"},
          {"reference": "perl-modules-5.36"}
        ]
      }
    ]
  },
  "Debian Linux-11": {
    "package_manager": "dpkg-l",
    "constraints": [
      {
        "release": "11",
        "pkgs": [
          {"reference": "libperl-dev"},
          {"reference": "libperl5.32"},
          {"reference": "perl"},
          {"reference": "perl-base"},
          {"reference": "perl-debug"},
          {"reference": "perl-doc"},
          {"reference": "perl-modules-5.32"}
        ]
      }
    ]
  },
  "Debian Linux-13": {
    "package_manager": "dpkg-l",
    "constraints": [
      {
        "release": "13",
        "pkgs": [
          {"reference": "libperl-dev"},
          {"reference": "libperl5.40"},
          {"reference": "perl"},
          {"reference": "perl-base"},
          {"reference": "perl-debug"},
          {"reference": "perl-doc"},
          {"reference": "perl-modules-5.40"}
        ]
      }
    ]
  },
  "Debian Linux-14": {
    "package_manager": "dpkg-l",
    "constraints": [
      {
        "release": "14",
        "pkgs": [
          {"reference": "libperl-dev"},
          {"reference": "libperl5.40"},
          {"reference": "perl"},
          {"reference": "perl-base"},
          {"reference": "perl-debug"},
          {"reference": "perl-doc"},
          {"reference": "perl-modules-5.40"}
        ]
      }
    ]
  },
  "Ubuntu Linux-26.04": {
    "package_manager": "dpkg-l",
    "constraints": [
      {
        "release": "26.04",
        "pkgs": [
          {"reference": "libperl-dev"},
          {"reference": "libperl5.40"},
          {"reference": "perl"},
          {"reference": "perl-base"},
          {"reference": "perl-debug"},
          {"reference": "perl-doc"},
          {"reference": "perl-modules-5.40"}
        ]
      }
    ]
  },
  "Ubuntu Linux-14.04": {
    "package_manager": "dpkg-l",
    "constraints": [
      {
        "release": "14.04",
        "pkgs": [
          {"reference": "libcgi-fast-perl"},
          {"reference": "libperl-dev"},
          {"reference": "libperl5.18"},
          {"reference": "perl"},
          {"reference": "perl-base"},
          {"reference": "perl-debug"},
          {"reference": "perl-doc"},
          {"reference": "perl-modules"}
        ]
      }
    ]
  },
  "Ubuntu Linux-16.04": {
    "package_manager": "dpkg-l",
    "constraints": [
      {
        "release": "16.04",
        "pkgs": [
          {"reference": "libperl-dev"},
          {"reference": "libperl5.22"},
          {"reference": "perl"},
          {"reference": "perl-base"},
          {"reference": "perl-debug"},
          {"reference": "perl-doc"},
          {"reference": "perl-modules-5.22"}
        ]
      }
    ]
  },
  "Ubuntu Linux-18.04": {
    "package_manager": "dpkg-l",
    "constraints": [
      {
        "release": "18.04",
        "pkgs": [
          {"reference": "libperl-dev"},
          {"reference": "libperl5.26"},
          {"reference": "perl"},
          {"reference": "perl-base"},
          {"reference": "perl-debug"},
          {"reference": "perl-doc"},
          {"reference": "perl-modules-5.26"}
        ]
      }
    ]
  },
  "Ubuntu Linux-20.04": {
    "package_manager": "dpkg-l",
    "constraints": [
      {
        "release": "20.04",
        "pkgs": [
          {"reference": "libperl-dev"},
          {"reference": "libperl5.30"},
          {"reference": "perl"},
          {"reference": "perl-base"},
          {"reference": "perl-debug"},
          {"reference": "perl-doc"},
          {"reference": "perl-modules-5.30"}
        ]
      }
    ]
  },
  "Ubuntu Linux-22.04": {
    "package_manager": "dpkg-l",
    "constraints": [
      {
        "release": "22.04",
        "pkgs": [
          {"reference": "libperl-dev"},
          {"reference": "libperl5.34"},
          {"reference": "perl"},
          {"reference": "perl-base"},
          {"reference": "perl-debug"},
          {"reference": "perl-doc"},
          {"reference": "perl-modules-5.34"}
        ]
      }
    ]
  },
  "Ubuntu Linux-24.04": {
    "package_manager": "dpkg-l",
    "constraints": [
      {
        "release": "24.04",
        "pkgs": [
          {"reference": "libperl-dev"},
          {"reference": "libperl5.38t64"},
          {"reference": "perl"},
          {"reference": "perl-base"},
          {"reference": "perl-debug"},
          {"reference": "perl-doc"},
          {"reference": "perl-modules-5.38"}
        ]
      }
    ]
  }
};

var distro_constraints_values = linux_unpatched::get_distro_constraints(distro_constraints_arr:distro_constraints_array);
if (empty_or_null(distro_constraints_values)) audit(AUDIT_HOST_NOT, 'affected');
var report = linux_unpatched::check_unpatched_constraints(distro_constraints_values:distro_constraints_values);

if (!empty_or_null(report))
{
  security_report_v4(
      port       : 0,
      severity   : SECURITY_WARNING,
      extra      : report
  );
  exit(0);
}
else
{
  audit(AUDIT_HOST_NOT, 'affected');
}