#!/usr/bin/perl

# Petit script en perl pour faire une recherche via Netcrat
# craftquery -m *.ibm.com -l -v -> affiche la liste des serveur se terminant par .ibm.com
# sans faire une analyse
#
# 1 Le code n'est pas perfectly.
# 2 Le scan doit se faire linéairement sous peine de se manger un ban de la part de Netcraft
#   pour cause de flood.
# 3 Pas de libwhisker prévu dans les futures versions. Par contre une interface X windows
# 4 Un minimum de connaissance des filtre sous *nix vous permettra de faire des merveilles
# 5 J'accueil volontier vos suggestions.
# 6 Détruire n'apporte rien. Il faut partager ses connaissances pour progresser...

use Socket; use Getopt::Std;
my $version="1.0.3";
my $serveros="uptime.netcraft.com";
my $server="www.netcraft.com";
my $urlos="GET /up/graph?mode_u=off\&mode_v=on\&site=";
my $port=80;
my $result=50;
my $position=0;
my @searchtype;
my $dbreak="\n\n\n";
my $rest="site contains";
sub osget;
sub getdirect;
print "\nCraftQuery V $version denylson\@vaccum.ch\n\n";
############################################################
if ($#ARGV == -1){
	print "Utilisation:     craftquery -m masque <option>\n";
	print "-m <masque>      Exemple : *.ibm.com tous les serveurs qui se terminent par ibm.com\n";
	print "-l               Ne récupère que la liste des serveurs\n";
	print "-q <nombre>      Nombre maximum de serveur à analyser\n";
	print "-o <serveur>     Effectue un scan sur un seul serveur\n";
	print "-d <serveur>     Connexion directe sur le serveur. Ne réenvoie pas l'OS\n";
	print "-p <port>        Numéro du port pour la connexion direct\n";
	print "-s <fichier>     Enregistre le résultat dans un fichier\n";
	print "-v               Affiche plus d'information\n";
	print "-d               Disclaimer\n\n";
	exit;}
############################################################
# Recupération des arguments
getopts("m:q:o:vV:s:dD:p:lL:r:",\%args);
$args{v}=defined $args{v}||0;
$args{l}=defined $args{l}||0;
$args{d}=defined $args{d}||0;

if ($args{d}>0){
print <<"(TAG)";
Craftquery à été créer afin de permettre d'accéder au serveur Netcraft
d'une manière simple et efficace.
Utilisez ce programme en votre ame et conscience.

(TAG)
exit;}

if (defined $args{s}){$args{s}=">".$args{s};open (fichier,$args{s}) or  warn "Erreur ouverture du fichier impossible\n";}
if (defined $args{m} and defined $args{o}){print "Trop d'arguments\n";exit;}
# Construction de la liste des serveurs
if (defined $args{m}){
	$_ =$rest;
	s/ /"+"/ge;
	$url="GET /?restriction=$_\&host=". $args{m} . " HTTP/1.0\n";
	makecon($server,@all,$totalserver,$position,$args{q});
	for ($i=0;$i<int($totalserver/$result);++$i){
		$prevpos = $position+1;
		$url="GET /?host=$args{m}\&last=@all[$position]\&from=$prevpos\&restriction=$rest\&position=limited HTTP/1.0\n";
		if ($args{v}>0){print $url;}
		if ($args{q}==$position){close(craft);last;}
		makecon($server,@all,$totalserver,$position);}		
	print "\n$totalserver Serveur(s) correspond(ent) à la requete\n\n";}	# Nombre de serveurs trouvé
# Analyse d'un seul serveur
elsif (defined $args{o}){
	@all[1] = $args{o};
	$totalserver=1;}
# Connexion sur le serveur WEB = plus de trace
elsif (defined $args{d}){getdirect;}
else{print "Il faut spécifier un serveur ou un masque\n";exit}
# Recupération de l'os
if ($args{l}==0) {for ($i=1;$i<$totalserver+1;$i++){
	$url="GET /up/graph/?host=@all[$i] HTTP/1.0\n";
	osget;}}
print "\n";
close fichier;
############################################################
# Connexion a Netcraft & récupération de la liste de serveur
sub makecon{	
	if ($args{v}>0){print "\nInterogation du serveur Netcraft\n\n";}
	$con=sockaddr_in($port,inet_aton($server));
	if(!(socket(craft,PF_INET,SOCK_STREAM,getprotobyname('tcp')))){print "Erreur création de socket";return;}
	connect(craft,$con) or die "Connexion impossible au serveur $server";
	send (craft,$url.$dbreak,0);
	while (<craft>){
		if (/Found/ or /First/ and $totalserver <1){s/[a-z-A-Z<>\/ \$]//g;$totalserver=0+$_;}
		if (defined $args{q} and $args{q}<$totalserver){$totalserver=$args{q}}; # Limite du nombre de serveur à analyser
		if (/^<A HREF/ and /http/ and !/195/ and !/netcraft/){
			$position=$position+1;
			s/http\://;s/\///g;
			@info=split/\"/;#"
			@all[$position]=@info[1];
			if ($args{v}>0){print "Serveur $position : @info[1]\n"};
			if (defined $args{s} and $args{l}>0){print fichier "@info[1]\n";}
			if ($args{q}==$position){close(craft);return 0;}}}
	close(craft);}
############################################################
# Connexion à utpime & récuperation de l'os
sub osget{
	$con=sockaddr_in($port,inet_aton($serveros));
	if(!(socket(craft,PF_INET,SOCK_STREAM,getprotobyname('tcp')))){print "Erreur création de socket";return;}
	connect(craft,$con) or die "Connexion impossible au serveur $server";
	send (craft,$url.$dbreak,0);
	print $url if ($args{v}>0);
	while (<craft>){
		if (/is running/){
			@os=split/b>/;
			$_=@os[3];
			s/[><\/]//g;
			$os=$_;
			$_=@os[1];
			s/[><\/]//g;
			$web=$_."\n";
			$srv =@all[$i];
			print "$i-> $srv,$os,$web";}}
			if (defined $args{s}){print fichier "$srv,$os,$web";}
	close(craft);}
############################################################
# Connexion direct au serveur
sub getdirect{
	if(defined $args{p}){$port=$args{p};}
	$con=sockaddr_in($port,inet_aton($args{d}));
	if(!(socket(craft,PF_INET,SOCK_STREAM,getprotobyname('tcp')))){print "Erreur création de socket";return;}
	connect(craft,$con) or die "Connexion impossible sur $args{d}";
	send (craft, "HEAD / HTTP/1.0\n\n\n",0);
	while (<craft>){
		if (/Server/){
			@os=split / /;
			print "$args{d},@os[1]@os[2]@os[3]";
			if (defined $args{s}){print fichier "$args{s},@os[1]@os[2]@os[3]";}}}}
############################################################