Samba Elevation of Privilege Vulnerability (CVE-2022-45141)

# Copyright (C) 2022 Greenbone Networks GmbH
# Some text descriptions might be excerpted from (a) referenced
# source(s), and are Copyright (C) by the respective right holder(s).
#
# SPDX-License-Identifier: GPL-2.0-or-later
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.

CPE = "cpe:/a:samba:samba";

if(description)
{
  script_oid("1.3.6.1.4.1.25623.1.0.104475");
  script_version("2023-10-19T05:05:21+0000");
  script_tag(name:"last_modification", value:"2023-10-19 05:05:21 +0000 (Thu, 19 Oct 2023)");
  script_tag(name:"creation_date", value:"2022-12-19 08:24:26 +0000 (Mon, 19 Dec 2022)");
  script_tag(name:"cvss_base", value:"10.0");
  script_tag(name:"cvss_base_vector", value:"AV:N/AC:L/Au:N/C:C/I:C/A:C");
  script_tag(name:"severity_vector", value:"CVSS:3.1/AV:N/AC:L/PR:N/UI:N/S:U/C:H/I:H/A:H");
  script_tag(name:"severity_origin", value:"NVD");
  script_tag(name:"severity_date", value:"2023-03-13 18:05:00 +0000 (Mon, 13 Mar 2023)");

  script_cve_id("CVE-2022-45141");

  script_tag(name:"qod_type", value:"remote_banner_unreliable");

  script_tag(name:"solution_type", value:"VendorFix");

  script_name("Samba Elevation of Privilege Vulnerability (CVE-2022-45141)");

  script_category(ACT_GATHER_INFO);

  script_copyright("Copyright (C) 2022 Greenbone Networks GmbH");
  script_family("Privilege escalation");
  script_dependencies("smb_nativelanman.nasl", "gb_samba_detect.nasl");
  script_mandatory_keys("samba/smb_or_ssh/detected");

  script_tag(name:"summary", value:"Samba is prone to an elevation of privilege vulnerability.");

  script_tag(name:"vuldetect", value:"Checks if a vulnerable version is present on the target host.");

  script_tag(name:"insight", value:"Kerberos, the trusted third party authentication system at the
  heart of Active Directory, issues a ticket using a key known to the target server but nobody else,
  returned to the client in a TGS-REP.

  This key needs to be of a type understood only by the KDC and target server.

  However, due to a coding error subsequently addressed in all recent Heimdal versions and so fixed
  with Samba 4.16 (which imports Heimdal 8.0pre), the (attacking) client would be given the
  opportunity to select the encryption type, and so obtain a ticket encrypted with rc4-hmac, that it
  could attack offline.

  This is possible unless rc4-hmac is totally removed from the server's account, by removing the
  unicodePwd attribute, but this will break other aspects of the server's operation in the domain
  (NETLOGON in particular).");

  script_tag(name:"affected", value:"Samba versions prior to 4.15.13.");

  script_tag(name:"solution", value:"Update to version 4.15.13, 4.16.0 or later.");

  script_xref(name:"URL", value:"https://www.samba.org/samba/security/CVE-2022-45141.html");

  exit(0);
}

include("host_details.inc");
include("version_func.inc");

if (isnull(port = get_app_port(cpe: CPE)))
  exit(0);

if (!infos = get_app_version_and_location(cpe: CPE, port: port, exit_no_version: TRUE))
  exit(0);

version = infos["version"];
location = infos["location"];

if (version_is_less(version: version, test_version: "4.15.13")) {
  report = report_fixed_ver(installed_version: version, fixed_version: "4.15.13 / 4.16.0", install_path: location);
  security_message(port: port, data: report);
  exit(0);
}

exit(99);