#!/usr/bin/perl

use warnings;
use strict;
use IO::Socket;

system('clear');
system('cls');

print q{

###########################################################
# ALIVE OR NOT tool v1.4                                  #
# by perlp0pper                                           #
#                                                         #
# options:                                                #
#                                                         #
# 1. give host and port and check if it's alive.          #
# 2. give your network ip without the last number         #
#    (e.g: 192.168.1) and a port to scan the whole        #
#    network for alive hosts. (takes a little while)      #
#                                                         #
# 3. same as option 2 but scans also all the ports.       #
#    (takes a really long time)                           #
#                                                         #
###########################################################
};

print "choose your option(1/2/3): ";



$|=1;
my $choise = <STDIN>;
chomp $choise;

if($choise == 1){

system('cls');
system('clear');

print "host: ";
my $host1 = <STDIN>;
chomp $host1;

print "port: ";
my $port1 = <STDIN>;
chomp $port1;


print "[*] sending socket to $host1:$port1...\r";
my $sock1 = new IO::Socket::INET (PeerAddr => $host1, PeerPort => $port1, Proto => 'tcp', Timeout => 1) && print "\n\a\a\a[+] [tcp] host alive\n\a\a\a";




}

if($choise == 2){

system('cls');
system('clear');

print "your network ip without the last number(e.g: 192.168.1): ";
my $host2 = <STDIN>;
chomp $host2;

print "port: ";
my $port2 = <STDIN>;
chomp $port2;

print "[*] scanning the network for alive hosts on port $port2...\n";

my $i=1;

for($i;$i<255;$i++){
my $ip1 = inet_aton("$host2.$i");
my $hostname1 = gethostbyaddr($ip1, AF_INET);

print "[*] sending socket to $host2.$i:$port2 [tcp]\r";
my $sock = new IO::Socket::INET (PeerAddr => "$host2.$i", PeerPort => $port2, Proto => 'tcp', Timeout => 1) && print "\n\a\a\a[+] [tcp] $host2.$i hostname: $hostname1\n\n\a\a\a ";

}
print "[*] scan finished\n";
}

if($choise == 3){

system('cls');
system('clear');

print "your network ip without the last number(e.g: 192.168.1): ";
my $host2 = <STDIN>;
chomp $host2;



print "[*] scanning the network for alive hosts...\n";

my $i=1;
my $p=1;

for($i;$i<255;$i++){
for($p;$p<65666;$p++){
my $ip = inet_aton("$host2.$i");
my $hostname = gethostbyaddr($ip, AF_INET);
print "[*] sending socket to $host2.$i:$p [tcp]\r";
my $sock = new IO::Socket::INET (PeerAddr => "$host2.$i", PeerPort => $p, Proto => 'tcp', Timeout => 1) && print "\n\a\a\a[+] [tcp] $host2.$i:$p hostname: $hostname\n\n\a\a\a";
}
}
print "\n[*] scan finished\n";
}