GoodTech SSH Server SFTP Multiple BOF Vulnerabilities

##############################################################################
# OpenVAS Vulnerability Test
# $Id: secpod_goodtech_ssh_sftp_mul_bof_vuln_900166.nasl 5375 2017-02-20 16:39:23Z cfi $
# Description: GoodTech SSH Server SFTP Multiple BOF Vulnerabilities
#
# Authors:
# Sharath S <[email protected]>
#
# Copyright:
# Copyright (C) 2008 SecPod, http://www.secpod.com
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License version 2
# (or any later version), 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 host is running GoodTech SSH server and is prone to multiple
  buffer overflow vulnerabilities.

  The flaws are due to error in SFTP 'open', 'opendir', and 'unlink'
  commands. This can be exploited by passing overly long string argument.";

tag_impact = "Successful exploitation allows execution of arbitrary code, and denial of
  service.
  Impact Level: Application";
tag_affected = "GoodTech SSH Server version 6.4 and prior on Windows (all)";
tag_solution = "Upgrade to GoodTech SSH Server version 6.5 or later.
  For updates refer to http://www.goodtechsys.com/sshdnt2000.asp";

if(description)
{
  script_id(900166);
  script_version("$Revision: 5375 $");
  script_tag(name:"last_modification", value:"$Date: 2017-02-20 17:39:23 +0100 (Mon, 20 Feb 2017) $");
  script_tag(name:"creation_date", value:"2008-10-31 14:50:32 +0100 (Fri, 31 Oct 2008)");
  script_cve_id("CVE-2008-4726");
 script_bugtraq_id(31879);
  script_copyright("Copyright (C) 2008 SecPod");
  script_tag(name:"cvss_base", value:"9.0");
  script_tag(name:"cvss_base_vector", value:"AV:N/AC:L/Au:S/C:C/I:C/A:C");
  script_category(ACT_GATHER_INFO);
  script_tag(name:"qod_type", value:"registry");
  script_family("Denial of Service");
  script_name("GoodTech SSH Server SFTP Multiple BOF Vulnerabilities");


  script_dependencies("secpod_reg_enum.nasl", "ssh_detect.nasl");
  script_mandatory_keys("SMB/WindowsVersion");
  script_require_ports("Services/ssh", 22);
  script_tag(name : "impact" , value : tag_impact);
  script_tag(name : "affected" , value : tag_affected);
  script_tag(name : "solution" , value : tag_solution);
  script_tag(name : "summary" , value : tag_summary);
  script_xref(name : "URL" , value : "http://milw0rm.com/exploits/6804");
  script_xref(name : "URL" , value : "http://secunia.com/advisories/32375/");
  script_xref(name : "URL" , value : "http://www.frsirt.com/english/advisories/2008/2895");
  exit(0);
}


include("smb_nt.inc");

sshPort = get_kb_item("Services/ssh");
if(!sshPort){
  sshPort = 22;
}

# check if FreeSSHd is listening
banner = get_kb_item("SSH/banner/" + sshPort);
if("SSH-2.0-cryptlib" >!< banner){
  exit(0);
}

if(!get_kb_item("SMB/WindowsVersion")){
  exit(0);
}

sshVer = registry_get_sz(key:"SOFTWARE\Microsoft\Windows\CurrentVersion" +
                             "\Uninstall\GoodTech SSH Server",
                         item:"DisplayVersion");
if(sshVer){
  # Grep for SSH Server version 6.4 and prior
  if(egrep(pattern:"^([0-5](\..*)|6\.[0-4])$", string:sshVer)){
    security_message(sshPort);
  }
}