Nmap NSE: FTP Brute

###############################################################################
# OpenVAS Vulnerability Test
# $Id: gb_nmap_ftp_brute.nasl 7006 2017-08-25 11:51:20Z teissa $
#
# Wrapper for Nmap FTP Brute NSE script.
#
# Authors:
# NSE-Script: Diman Todorov <[email protected]>
#             Vlatko Kosturjak <[email protected]>
# NASL-Wrapper: Sooraj KS <[email protected]>
#
# Copyright:
# NSE-Script: The Nmap Security Scanner (http://nmap.org)
# NASL-Wrapper: Copyright (c) 2010 Greenbone Networks GmbH (http://www.greenbone.net)
#
# 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 = "This script attempts to get FTP login credentials by guessing
  usernames and passwords.

  This is a wrapper on the Nmap Security Scanner's (http://nmap.org) ftp-brute.nse";


if(description)
{
  script_id(801241);
  script_version("$Revision: 7006 $");
  script_tag(name:"last_modification", value:"$Date: 2017-08-25 13:51:20 +0200 (Fri, 25 Aug 2017) $");
  script_tag(name:"creation_date", value:"2010-08-30 16:16:51 +0200 (Mon, 30 Aug 2010)");
  script_tag(name:"cvss_base", value:"7.5");
  script_tag(name:"cvss_base_vector", value:"AV:N/AC:L/Au:N/C:P/I:P/A:P");
  script_name("Nmap NSE: FTP Brute");
  script_category(ACT_ATTACK);
    script_tag(name:"qod_type", value:"remote_analysis");
  script_copyright("NSE-Script: The Nmap Security Scanner; NASL-Wrapper: Greenbone Networks GmbH");
  script_dependencies("find_service.nasl");
  script_family("Nmap NSE");
  script_add_preference(name: "limit :", value: "",type: "entry");
  script_add_preference(name: "passlimit :", value: "",type: "entry");
  script_add_preference(name: "userlimit :", value: "",type: "entry");
  script_add_preference(name: "userdb :", value: "",type: "entry");
  script_add_preference(name: "passdb :", value: "",type: "entry");
  script_add_preference(name: "unpwdb.passlimit :", value: "",type: "entry");
  script_add_preference(name: "unpwdb.timelimit :", value: "",type: "entry");
  script_add_preference(name: "unpwdb.userlimit :", value: "",type: "entry");
  script_mandatory_keys("Tools/Present/nmap");
  script_mandatory_keys("Tools/Launch/nmap_nse");
  script_tag(name : "summary" , value : tag_summary);
  exit(0);
}


## Check for Required Keys
if((! get_kb_item("Tools/Present/nmap5.21") &&
   ! get_kb_item("Tools/Present/nmap5.51")) ||
   ! get_kb_item("Tools/Launch/nmap_nse")) {
 exit(0);
}

## Get FTP Ports
port = get_kb_item("Services/ftp");
if(!port){
  exit(0);
}

argv = make_list( "nmap", "--script=ftp-brute", "-p", port, get_host_ip());

## Get the preferences
i = 0;
if( pref = script_get_preference("limit :")){
  args[i++] = "limit="+pref;
}

if( pref = script_get_preference("passlimit :")){
  args[i++] = "passlimit="+pref;
}

if( pref = script_get_preference("userlimit :")){
  args[i++] = "userlimit="+pref;
}

if( pref = script_get_preference("userdb :")){
  args[i++] = "userdb="+pref;
}

if( pref = script_get_preference("passdb :")){
  args[i++] = "passdb="+pref;
}

if( pref = script_get_preference("unpwdb.passlimit :")){
  args[i++] = "unpwdb.passlimit="+pref;
}

if( pref = script_get_preference("unpwdb.timelimit :")){
  args[i++] = "unpwdb.timelimit="+pref;
}

if( pref = script_get_preference("unpwdb.userlimit :")){
  args[i++] = "unpwdb.userlimit="+pref;
}

if(i > 0)
{
  scriptArgs= "--script-args=";
  foreach arg(args) {
    scriptArgs += arg + ",";
  }
  argv = make_list(argv,scriptArgs);
}

## Run nmap and Get the result
res = pread(cmd: "nmap", argv: argv);
if(res)
{
  foreach line (split(res))
  {
    if(ereg(pattern:"^\|",string:line)) {
      result +=  substr(chomp(line),2) + '\n';
    }

    error = eregmatch(string:line, pattern:"^nmap: (.*)$");
    if (error) {
      msg = string('Nmap command failed with following error message:\n', line);
      log_message(data : msg, port:port);
    }
  }

  if("ftp-brute" >< result) {
    msg = string('Result found by Nmap Security Scanner (ftp-brute.nse) ',
                'http://nmap.org:\n\n', result);
    security_message(data : msg, port:port);
  }
}
else
{
  msg = string('Nmap command failed entirely:\n');
  log_message(data : msg, port:port);
}