#
# Copyright 2002 by Michel Arboi <arboi@alussinan.org>
#
# This script is released under the GNU Public Licence
#

if(description)
{
 script_id(11156);
 script_version ("$Revision$");
 
 name["english"] = "IRC daemon identification";
 script_name(english:name["english"]);
 
 desc["english"] = "
This script determines the version of the IRC daemon

Risk factor : None";

 script_description(english:desc["english"]);
 
 summary["english"] = "IRCD version";
 script_summary(english:summary["english"]);
 
 script_category(ACT_GATHER_INFO);
 
 script_copyright(english:"This script is Copyright (C) 2002 Michel Arboi");
 family["english"] = "General";
 script_family(english:family["english"]);

 script_dependencie("find_service.nes", "find_service2.nasl");
 script_require_ports("Services/irc", 6667);
 exit(0);
}

#

port = get_kb_item("Services/irc");
if (!port) port = 6667;
if(! get_port_state(port)) exit(0);

soc = open_sock_tcp(port);
if (! soc) exit(0);

nick = string("Nessus", rand());
user = nick;

req = string("NICK ", nick, "\r\n", 
	"USER ", nick, " ", this_host_name(), " ", get_host_name(), 
	" :", user, "\r\n");
send(socket: soc, data: req);
a = recv(socket: soc, length: 4096);

send(socket: soc, data: string("VERSION\r\n"));
v = "x";
while ((v) && ! (" 351 " >< v)) v = recv_line(socket: soc, length: 256);
# display(v);
send(socket: soc, data: string("QUIT\r\n"));
close(soc);

if (!v) exit(0);

k = string("irc/banner/", port);
set_kb_item(name: k, value: v);

# Answer looks like:
# :irc.sysdoor.com 351 nessus123 2.8/csircd-1.13. irc.sysdoor.com :http://www.codestud.com/ircd
v2 = ereg_replace(string: v, pattern: ": *[^ ]+ +[0-9]+ +[a-zA-Z0-9]+ +([^ ]+) +[^ ]+ *:.*", replace: "\1");
# display(v2);
if (v == v2) exit(0);

m = string("The IRC server version is : ", v2);
security_note(port: port, data: m);