#!/usr/bin/perl


# White Rabit
# knok knok, neo

use NetPacket::ICMP;
use IO::Socket::INET;
use IO::Socket::SSL;
use Socket;
use Net::Ping;
use LWP::Simple;
use threads;
use threads::shared;
use Getopt::Long;



my($Host,$options,$ping,$i,$port,$Status,$SSLSocketTest,$SockTest,$i1,$i2,$i3,$i4,$i5,$i6,$i7,$i8,$i9,$i10);

GetOptions("host=s"   => \$Host);

$Status = "\nhost looks down\n";

print "White Rabit v1\nIntence host discovery tool. START TIME ". localtime() ."\n";
print "-" x 70 . "\n";

# valid ip?

	unless(inet_aton($Host)){
		print "Invalid IP Addr! IT'S A TRAP\n";
		exit();
	}


#lets try some Sockets

for($i=0;$i<3;$i++){

	if($i == 0){ $port=80; }
	if($i == 1){ $port=443; }
	if($i == 2){ $port=53; }
	
	my $SockTest = IO::Socket::INET->new(
		PeerAddr => $Host,
		PeerPort => $port,
		Proto => 'tcp'
	) or die "" and goto Next;
	
		print "tcp Socket $Host:$port opened\n"; 
		$Status = "$Host looks up :)\n";
Next:
close($SockTest);
}

for($i=0;$i<3;$i++){

	if($i == 0){ $port=80; }
	if($i == 1){ $port=443; }
	if($i == 2){ $port=53; }
	
        $SSLSocketTest = IO::Socket::SSL->new( "$Host:$port" ) or die goto Next2;
		
			print "SSL Socket $Host:$port opened\n"; 
			$Status = "$Host looks up :)\n";
		
Next2:
close($SSLSocketTest);
}


# pings a plenty
my $thr1 = threads->new(\&pingsub1);
my $thr2 = threads->new(\&pingsub2);
my $thr3 = threads->new(\&pingsub3);
my $thr4 = threads->new(\&pingsub4);
my $thr5 = threads->new(\&pingsub5);
sleep(.5);
$thr1->join;
sleep(.5);
$thr2->join;
sleep(.5);
$thr3->join;
sleep(.5);
$thr4->join;
sleep(.5);
$thr5->join;

my $thr6 = threads->new(\&pingsub6);
my $thr7 = threads->new(\&pingsub7);
my $thr8 = threads->new(\&pingsub8);
my $thr9 = threads->new(\&pingsub9);
my $thr10 = threads->new(\&pingsub10);
sleep(.5);
$thr6->join;
sleep(.5);
$thr7->join;
sleep(.5);
$thr8->join;
sleep(.5);
$thr9->join;
sleep(.5);
$thr10->join;



# rapid attacks of the rabid rabbits!


	sub pingsub1{
	for($i1=0;$i1<20;$i1++){
		$ping = Net::Ping->new("icmp");
		$ping->port_number($i1);
		print "icmp ping reply on port $i1\n" and $Status = "$Host looks up :)\n" if $ping->ping($Host);
	}
	}
	sub pingsub2{
	for($i2=20;$i2<40;$i2++){
		$ping = Net::Ping->new("icmp");
		$ping->port_number($i2);
		print "icmp ping reply on port $i2\n" and $Status = "$Host looks up :)\n" if $ping->ping($Host);
	}
	}
	sub pingsub3{
	for($i3=40;$i3<60;$i3++){
		$ping = Net::Ping->new("icmp");
		$ping->port_number($i3);
		print "icmp ping reply on port $i3\n" and $Status = "$Host looks up :)\n" if $ping->ping($Host);
	}
	}
	sub pingsub4{
	for($i4=60;$i4<80;$i4++){
		$ping = Net::Ping->new("icmp");
		$ping->port_number($i4);
		print "icmp ping reply on port $i4\n" and $Status = "$Host looks up :)\n" if $ping->ping($Host);
	}
	}
	sub pingsub5{
	for($i5=80;$i5<101;$i5++){
		$ping = Net::Ping->new("icmp");
		$ping->port_number($i5);
		print "icmp ping reply on port $i5\n" and $Status = "$Host looks up :)\n" if $ping->ping($Host);
	}
	}
	
	
	sub pingsub6{
	for($i6=0;$i6<20;$i6++){
		$ping = Net::Ping->new("tcp");
		$ping->port_number($i6);
		print "tcp ping reply on port $i6\n" and $Status = "$Host looks up :)\n" if $ping->ping($Host);
	}
	}
	sub pingsub7{
	for($i7=20;$i7<40;$i7++){
		$ping = Net::Ping->new("tcp");
		$ping->port_number($i2);
		print "tcp ping reply on port $i2\n" and $Status = "$Host looks up :)\n" if $ping->ping($Host);
	}
	}
	sub pingsub8{
	for($i8=40;$i8<60;$i8++){
		$ping = Net::Ping->new("tcp");
		$ping->port_number($i8);
		print "tcp ping reply on port $i8\n" and $Status = "$Host looks up :)\n" if $ping->ping($Host);
	}
	}
	sub pingsub9{
	for($i9=60;$i9<80;$i9++){
		$ping = Net::Ping->new("tcp");
		$ping->port_number($i9);
		print "tcp ping reply on port $i9\n" and $Status = "$Host looks up :)\n" if $ping->ping($Host);
	}
	}
	sub pingsub10{
	for($i10=80;$i10<101;$i10++){
		$ping = Net::Ping->new("tcp");
		$ping->port_number($i10);
		print "tcp ping reply on port $i10\n" and $Status = "$Host looks up :)\n" if $ping->ping($Host);
	}
	}


print "\n\n" . $Status . "END TIME " . localtime();
exit();