w-Agora 4.1.6a Multiple Input Validation Vulnerabilities

#%NASL_MIN_LEVEL 70300
#
# (C) Tenable Network Security, Inc.
#

include( 'compat.inc' );

if (description) {
  script_id(15402);
  script_version("1.26");
  script_cve_id("CVE-2004-1562", "CVE-2004-1563", "CVE-2004-1564", "CVE-2004-1565");
  script_bugtraq_id(11283);

  script_name(english:"w-Agora 4.1.6a Multiple Input Validation Vulnerabilities");
	script_summary(english:"Checks for vulnerabilities in w-Agora");

  script_set_attribute(
    attribute:'synopsis',
    value:'The remote forum management software is vulnerable to multiple injection flaws.'
  );

  script_set_attribute(
    attribute:'description',
    value:"The remote host is running w-agora, a web-based forum management software
written in PHP.

There are multiple input validation flaws in the remote version of this
software :

  - There is a SQL injection vulnerability in the file 
    'redir_url.php' that could allow an attacker to execute 
    arbitrary SQL statements in the remote database ;

  - There is a cross-site scripting issue that could allow 
    an attacker to steal the cookies of the legitimate users 
    of the remote site by sending them a specially malformed 
    link ;

  - There is an HTTP response splitting vulnerability that 
    could allow an attacker to perform cross-site scripting 
    attacks against the remote host."
  );

  script_set_attribute(
    attribute:'solution',
    value: "Upgrade to the newest version of this software."
  );
  script_set_cvss_base_vector("CVSS2#AV:N/AC:L/Au:N/C:P/I:P/A:P");
  script_set_cvss_temporal_vector("CVSS2#E:POC/RL:OF/RC:C");
  script_set_attribute(attribute:"exploitability_ease", value:"No exploit is required");
  script_set_attribute(attribute:"exploit_available", value:"false");
  script_cwe_id(20, 74, 79, 442, 629, 711, 712, 722, 725, 750, 751, 800, 801, 809, 811, 864, 900, 928, 931, 990);

  script_set_attribute(
    attribute:'see_also',
    value:'https://seclists.org/fulldisclosure/2004/Sep/1083'
  );

 script_set_attribute(attribute:"plugin_publication_date", value: "2004/10/01");
 script_set_attribute(attribute:"vuln_publication_date", value: "2004/09/29");
 script_set_attribute(attribute:"plugin_modification_date", value:"2021/01/19");
  script_set_attribute(attribute:"plugin_type", value:"remote");
  script_end_attributes();

  script_category(ACT_GATHER_INFO);
  script_copyright(english:"This script is Copyright (C) 2004-2021 Tenable Network Security, Inc.");
  script_family(english:"CGI abuses");
  script_dependencie("http_version.nasl");
  script_require_ports("Services/www", 80);
  script_exclude_keys("Settings/disable_cgi_scanning");
  script_require_keys("www/PHP");
  exit(0);
}

include("global_settings.inc");
include("misc_func.inc");
include("http.inc");


global_var	port;

function check(req)
{
  local_var	r, variables;
  variables = "loginuser=<script>foo</script>&loginpassword=foo&btnlogin=Login";
  r = http_send_recv3(method: "POST", port: port, item: req, version: 11,
    data: variables, exit_on_fail: 1,
    content_type: "application/x-www-form-urlencoded");

  if (isnull(r)) exit(0);

  if ( r[0] =~ "^HTTP/1\.[01] +200 " &&
       "<script>foo</script>" >< r[2] && "w-agora" >< r[2] )
  	{
	security_hole(port);
	set_kb_item(name: 'www/'+port+'/XSS', value: TRUE);
	set_kb_item(name: 'www/'+port+'/SQLInjection', value: TRUE);
	exit(0);
	}


 return(0);
}

port = get_http_port(default:80);
if(!can_host_php(port:port))exit(0);

foreach dir (cgi_dirs())
 {
  #if ( is_cgi_installed3(item:dir + "/login.php", port:port) )
   check(req:dir + "/login.php");
 }