xine-2.020

eZine lover (@eZine)

Published in 

Xine

 · 5 years ago

  

 
                                        /-----------------------------\ 
                                        | Xine - issue #2 - Phile 020 | 
                                        \-----------------------------/ 

#!/usr/bin/perl 

# IP scanner - b0z0/iKx 
# Scans a range of IPs and tries to determinate if the hosts are 
# alive. It can also do name server queries to see if something 
# respondes to those scanned IPs. FPing is needed! 
# 
# 
# Sample usage: 
#  ipscan -H 123.10.10.4 -e 20 
# Will scan IPs from 123.10.10.4 up to 123.10.10.20 
# Run without command line parameters for more help! 
# 

require "getopt.pl"; 
$|=1; 

&Getopt('Hetz');			# Get command line options 
$host=$opt_H; 
$endipscan=$opt_e; 
$pingto=$opt_t; 
$dohost=$opt_z; 

 
# default options 
$pingto=5000 if (($pingto eq '') || ($pingto <= 250)); 
$dohost=0 if ($dohost eq ''); 

 
print "\nIPScan - by b0z0/iKx\n"; 
if (($host eq '') || ($endipscan eq ''))  
{ 
  print "usage: ipscan\n"; 
  print "   -H [first ip] => first IP from we will start thescan\n"; 
  print "   -e [last nr]  => last IP that we will scan\n"; 
  print "   -t [msecs]    => timeout in milisecs\n"; 
  print "   -z 1          => do also a host name search with host\n";  
  print "\n\n Example:  ipscan -H 123.123.123.3 -e 12\n"; 
  exit(); 
} 

 
($high,$second,$third,$start)=split('\.',$host); 

for ($last=$start;$last<=$endipscan;$last++)  
{ 
	$host=join('.',$high,$second,$third,$last); 
	printf ("Looking for %s ..... ",$host); 
	$pinging=`fping -a -t $pingto $host`; 
	chop($pinging); 
	if ($pinging eq '') 
	{ 
		print "Seems unreachable\n"; 
	} 
	else 
	{ 
		print "Seems reachable\n"; 
	} 
	if ($dohost == 1) 
	{ 
		$host=join('.',$last,$third,$second,$high); 
		$|=1; 
	 	open(HOST,"host -t ptr $host.in-addr.arpa 2>& 1 |"); 
		while (<HOST>) { print; } 
		close (HOST); 
		printf("\n"); 
	} 
}