#
# This script was written by Renaud Deraison <deraison@cvs.nessus.org>
#
# See the Nessus Scripts License for details
#

if(description)
{
 script_id(11565);
 script_version ("$Revision$");
 name["english"] = ".forward in FTP root";
 script_name(english:name["english"]);
 
 desc["english"] = "
This script determines if the remote anonymous FTP
server has a .forward file set.

Risk Factor : Low";


 script_description(english:desc["english"]);
 
 summary["english"] = "downloads the remote .forward file";

 script_summary(english:summary["english"]);
 script_category(ACT_GATHER_INFO);
 
 
 script_copyright(english:"This script is Copyright (C) 2003 Renaud Deraison");
 family["english"] = "FTP";
 script_family(english:family["english"]);
 script_dependencie("find_service.nes", "ftp_anonymous.nasl");
 script_require_ports("Services/ftp", 21);
 exit(0);
}

#
# The script code starts here
#
include("ftp_func.inc");

port = get_kb_item("Services/ftp");
if(!port)port = 21;

if(get_port_state(port))
{
login = "anonymous";
password = "nessus@nessus.org";


if(login)
{
 soc = open_sock_tcp(port);
 if(!soc)exit(0);
 if(ftp_log_in(socket:soc, user:login,pass:password))
 {
  data = string("CWD /\r\n");
  send(socket:soc, data:data);
  a = recv_line(socket:soc, length:1024);
  pasv = ftp_get_pasv_port(socket:soc); 
  soc2 = open_sock_tcp(pasv);
  data = string("RETR .forward\r\n");
  send(socket:soc, data:data);
  r = ftp_recv_line(socket:soc);

  if(egrep(pattern:"^(425|150) ", string:r))
  {
   r = ftp_recv_data(socket:soc2, line:r);
   close(soc2);
report = "
The remote anonymous FTP server has a .forward file
set in its home. An attacker may use it to determine 
who is in charge of the FTP server and set up a social
engineering attack.

The .forward file contains : " + '\n' + r + "

Solution : Delete the .forward file from ~ftp/ on this host
Risk factor : Low";
   security_warning(port:port, data:report);
  }
 }
 ftp_close(socket:soc);
}
}