IBM WebSphere snoopservlet Path Disclosure

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

include('deprecated_nasl_level.inc');
include('compat.inc');

if (description)
{
  script_id(23639);
  script_version("1.17");
  script_set_attribute(attribute:"plugin_modification_date", value:"2025/05/14");

  script_name(english:"IBM WebSphere snoopservlet Path Disclosure");

  script_set_attribute(attribute:"synopsis", value:
"The remote web server is affected by an information disclosure flaw.");
  script_set_attribute(attribute:"description", value:
"This script attempts to enumerate the actual physical path of the
servlet classes by requesting a version of 'snoopservlet' which is
missing required classes.  An attacker, gaining information about the
actual physical layout of the file system, can use the information in
crafting more complex attacks.");
  script_set_attribute(attribute:"solution", value:
"If not required, uninstall the default applications.");
  script_set_cvss_base_vector("CVSS2#AV:N/AC:L/Au:N/C:P/I:N/A:N");

  script_set_attribute(attribute:"plugin_publication_date", value:"2006/11/14");

  script_set_attribute(attribute:"plugin_type", value:"remote");
  script_set_attribute(attribute:"asset_inventory", value:"True");
  script_set_attribute(attribute:"cpe", value:"cpe:/a:ibm:websphere_application_server");
  script_set_attribute(attribute:"thorough_tests", value:"true");
  script_set_attribute(attribute:"enable_cgi_scanning", value:"true");
  script_end_attributes();

  script_category(ACT_GATHER_INFO);
  script_family(english:"CGI abuses");

  script_copyright(english:"This script is Copyright (C) 2006-2025 and is owned by Tenable, Inc. or an Affiliate thereof.");

  script_dependencies("find_service1.nasl", "webmirror.nasl", "http_version.nasl", "DDI_Directory_Scanner.nasl");
  script_require_ports("Services/www", 80);

  exit(0);
}

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

files = make_list("SnoopServlet", "snoopservlet", "snoop");

port = get_http_port(default:80);

dirs = get_kb_list(string("www/", port, "/content/directories"));
if (isnull(dirs)) dirs = make_list();
dirs = list_uniq(make_list(dirs, "", "/servlet"));

totalcounter = 0;
foreach d (dirs)
{
	foreach f (files)
	{
		u = strcat(d,"/",f,"/");
		r = http_send_recv3(method: "GET", item: u, port:port);
		if ( "servlet was originally compiled with classes which cannot be located by the server" >< r[2] ||
		     "<tr><td>javax.servlet.context.tempdir</td><td>/" >< r[2] ||
		     egrep(string:r[2], pattern:"classpath=\[[a-zA-Z]:\\.*\.jar")  )
		{
			report = strcat(
			'The following file, when requested, will leak information\n',
			'regarding the local configuration :\n\n',
			build_url(port: port, qs: u), '\n');
			security_warning(port:port, extra: report);
			if (COMMAND_LINE) display(report);
			exit(0);
		}
	}
}