# kst-gpl
# This script was written by Renaud Deraison <deraison@cvs.nessus.org>
# GPL
# References:
# http://marc.info/?l=bugtraq&m=100463639800515&w=2

if(description)
{
 script_id(80093);;
 script_version ("$Revision: 1.10 $");
 script_tag(name:"cvss_base", value:"7.5");
 script_tag(name:"risk_factor", value:"High");
 script_bugtraq_id(3495);
 script_cve_id("CVE-2001-0849");
 name = "viralator";
 script_name(name);
 
 desc = "The CGI 'viralator.cgi' is installed.
Some versions of this CGI are don't check properly the user
input and allow anyone to execute arbitrary commands with
the privileges of the web server

** No flaw was tested. Your script might be a safe version.

Solutions : Upgrade this script to version 0.9pre2 or newer
Risk factor : High";


 script_description(desc);
 
 summary = "Checks for the presence of /cgi-bin/viralator.cgi";

 script_summary(summary);
 
 script_category(ACT_GATHER_INFO);
 
 
 script_copyright("This script is Copyright (C) 2002 Renaud Deraison");

 family = "Web application abuses";
 script_family(family);
 script_dependencie("find_service1.nasl", "no404.nasl");
 script_require_ports("Services/www", 80);
 exit(0);
}


include("http_func.inc");
include("http_keepalive.inc");
include("global_settings.inc");

if ( report_paranoia < 2 ) exit(0);

port = get_http_port(default:80);
res = is_cgi_installed_ka(item:"viralator.cgi", port:port);
if( res )security_hole(port);



