GnuTLS < 2.2.5 vulnerability (Linux)

# OpenVAS Vulnerability Test
# $Id: gnutls_CB-A08-0079.nasl 8024 2017-12-07 08:47:24Z teissa $
# Description: GnuTLS < 2.2.5 vulnerability (Linux)
#
# Authors:
# Carsten Koch-Mauthe <c.koch-mauthe at dn-systems.de>
#
# Copyright:
# Copyright (C) 2008 Greenbone Networks GmbH
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License version 2,
# as published by the Free Software Foundation
#
# 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.
#

tag_summary = "The remote host is probably affected by the vulnerabilities
  described in CVE-2008-1948, CVE-2008-1949, CVE-2008-1950";

tag_impact = "CVE-2008-1948
    The _gnutls_server_name_recv_params function in lib/ext_server_name.c
    in libgnutls in gnutls-serv in GnuTLS before 2.2.4 does not properly
    calculate the number of Server Names in a TLS 1.0 Client Hello
    message during extension handling, which allows remote attackers
    to cause a denial of service (crash) or possibly execute arbitrary
    code via a zero value for the length of Server Names, which leads
    to a buffer overflow in session resumption data in the
    pack_security_parameters function, aka GNUTLS-SA-2008-1-1.

  CVE-2008-1949
    The _gnutls_recv_client_kx_message function in lib/gnutls_kx.c
    in libgnutls in gnutls-serv in GnuTLS before 2.2.4 continues to
    process Client Hello messages within a TLS message after one has
    already been processed, which allows remote attackers to cause a
    denial of service (NULL dereference and crash) via a TLS message
    containing multiple Client Hello messages, aka GNUTLS-SA-2008-1-2.

  CVE 2008-1950
    Integer signedness error in the _gnutls_ciphertext2compressed
    function in lib/gnutls_cipher.c in libgnutls in GnuTLS before 2.2.4
    allows remote attackers to cause a denial of service (buffer over-read
    and crash) via a certain integer value in the Random field in an
    encrypted Client Hello message within a TLS record with an invalid
    Record Length, which leads to an invalid cipher padding length,
    aka GNUTLS-SA-2008-1-3.";

tag_solution = "All GnuTLS users should upgrade to the latest version:";

# $Revision: 8024 $

if(description)
{
  script_id(90026);
  script_version("$Revision: 8024 $");
  script_tag(name:"last_modification", value:"$Date: 2017-12-07 09:47:24 +0100 (Thu, 07 Dec 2017) $");
  script_tag(name:"creation_date", value:"2008-09-06 11:16:56 +0200 (Sat, 06 Sep 2008)");
 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_cve_id("CVE-2008-1948", "CVE-2008-1949", "CVE-2008-1950");
  name = "GnuTLS < 2.2.5 vulnerability (Linux)";
  script_name(name);

  script_category(ACT_GATHER_INFO);
  script_tag(name:"qod_type", value:"executable_version");
  script_copyright("Copyright (C) 2008 Greenbone Networks GmbH");
  family = "General";
  script_family(family);
  script_mandatory_keys("login/SSH/success");
  script_dependencies("gather-package-list.nasl");
  script_tag(name : "solution" , value : tag_solution);
  script_tag(name : "impact" , value : tag_impact);
  script_tag(name : "summary" , value : tag_summary);
  exit(0);
}

#
# The code starts here
#


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

sock = ssh_login_or_reuse_connection();
if(!sock){
  exit(0);
}

gnuPath = find_file(file_name:"gnutls-cli", file_path:"/", useregex:TRUE,
                      regexpar:"$", sock:sock);
foreach gnutlsBin (gnuPath)
{
  gnutlsVer = get_bin_version(full_prog_name:chomp(gnutlsBin), sock:sock,
                             version_argv:"--version",
                             ver_pattern:"version ([0-9.]+)");
  if(gnutlsVer[1] != NULL)
  {
    # Grep for GnuTLS Version prior to 2.2.4
    if(version_is_less(version:gnutlsVer[1], test_version:"2.2.4")){
      security_message(0);
    }
    ssh_close_connection();
    exit(0);
  }
}
ssh_close_connection();