Reverse IP Scanner by KroKite [Perl Application]

Below Application can be used for Checking Reverse-IP and You can read here License for Editing, Modifying, and sharing...https://github.com/krokite/Linux-Security-Tools/

PHP Code:

#!/usr/bin/perl
use strict;
use warnings;
use Net::Ping;
use LWP::UserAgent;
main(@ARGV);
sub main{

    print '                    
$$\   $$\       $$$$$$$\         $$$$$$\        $$\   $$\       $$$$$$\       $$$$$$$$\       $$$$$$$$\
$$ | $$  |      $$  __$$\       $$  __$$\       $$ | $$  |      \_$$  _|      \__$$  __|      $$  _____|
$$ |$$  /       $$ |  $$ |      $$ /  $$ |      $$ |$$  /         $$ |           $$ |         $$ |     
$$$$$  /        $$$$$$$  |      $$ |  $$ |      $$$$$  /          $$ |           $$ |         $$$$$\   
$$$$ lt;        $$  __$$ |      $$ |  $$ |      $$  $$|           $$ |           $$ |         $$  __|  
$$ |\$$\        $$ |  $$ |      $$ |  $$ |      $$ |\$$\          $$ |           $$ |         $$ |     
$$ | \$$\       $$ |  $$ |       $$$$$$  |      $$ | \$$\       $$$$$$\          $$ |         $$$$$$$$\
\__|  \__|      \__|  \__|       \______/       \__|  \__|      \______|         \__|         \________|

';
    echo("[+] Please Report any Bug to http://krokite.com");
    echo("[+] Greets to: c1ph3r(Krit Kadnok), Nocdem, MayaSeven, Xcode, fb1h2s, webDEVIL");
    echo("[+] Also, If you like to discuss about security and pentesting than please do visit us");
    echo(" @ http://board.blackbuntu.com");
    echo("[+] Please Note, Checking Reverse-ip of any website, requires Internet Connectivity");
    echo("[+] Do You want to Check Internet Connection ?");
    echo("[+] Press 'y' for 'yes' or 'n' for no");
    print ">>> ";
    my $ans = <stdin>;
    chomp($ans);
    if($ans =~ /y/i){
        my $host = "http://www.google.com";
        my $pinger = Net::Ping->new("icmp", 1, 64);
        if ($pinger->ping($host)) {
            echo("[=] Great You are Connected to Internet");
            &reverse_ip;
        } else {
            echo("[=] Oops looks like you are not connected to Internet");
            echo("[+] Please note in some cases, host may be blocking your Request");
            echo("[+] If you think, You are Connected and this is False Result");
            echo("[+] You may Proceed by Pressing 'y' or 'q' for quitting the program");
            print ">>> ";
            my $confirm = <stdin>;
            chomp($confirm);
            if($confirm =~ /y/i){
                &reverse_ip;
            }elsif($confirm =~ /q/i){
                exit;
            }else{
                echo("Oh Boy! You Pressed Something Which I really Don't Understand");
                echo("You were Supposed to Press 'y' for Yes or 'q' for Exitting");
                echo("I am Quitting :(");
            }
        }
    }elsif($ans =~ /n/i){
        &reverse_ip;
    }else{
        echo("Oh Boy! You Pressed Something Which I really Don't Understand");
        echo("You were Supposed to Press 'y' for Yes or 'n' for No");
        echo("I am Quitting :(");
    }
}
sub reverse_ip{
        echo("[+] We Are Ready to Proceed for Reverse-IP");
        echo("[+] Please Type Domain name or IP-Address.");
        print ">>> ";
        my $dip = <stdin>;
        chomp($dip);
        my $ua = LWP::UserAgent->new(agent => 'KroKite v1.0 Reverse_IP Checker Mozilla/5.0 Linux x86_64 BlackBuntu Users');
        my $krp = $ua->post("http://www.yougetsignal.com/tools/web-sites-on-web-server/php/get-web-sites-on-web-server-json-data.php?remoteAddress=$dip");
        my $Domresult = $krp->content;
        while ($Domresult =~ m/\[([^\]]*)\]/g)
        {
            my $matchedDom = $1;
            $matchedDom =~ m/\"(.*?)\", \"?\"/g;
            print "Domains are $1\n";
            my $domainnames = $1;
        }
    if($Domresult =~ /Daily reverse IP check limit reached/g){
            echo("[+] Oh Boy! We have some limitations For Each IP");
            echo("[+] You have Reached your Daily Reverse IP Checking :(");
            echo("[+] Ok ! So What now, ?");
            echo("[+] You have two option");
            echo("[a] Either Change Your IP or,");
            echo("[b] Run this program Tommorrow :(");
        }
    if( $Domresult =~ /No web sites found/g){
            echo("[+] No Domain were Found");
            echo("[+] You might have typed Wrong IP address, Please Check and Type again");
        }
    if($Domresult =~ /Invalid remote address/g){
        echo("[+] Domain You Entered Looks Invalid or Does not Exist");
        echo("[+] Please type Existing Domain");
    }
}

sub echo{
    my $output = shift || return;
    print "$output\n";
} 

Copyright KroKite