Reserve

#!/usr/bin/perl
use warnings;
require LWP::UserAgent;
#
if($^O =~ /Win/){

   system("cls");
}
sub exit_a {

    print q{
__________                                                    .__
\______   \ ____   ______ ______________  __ ____             |__|_____
 |       _// __ \ /  ___// __ \_  __ \  \/ // __ \    ______  |  \____ \
 |    |   \  ___/ \___ \\  ___/|  | \/\   /\  ___/   /_____/  |  |  |_> >
 |____|_  /\___  >____  >\___  >__|    \_/  \___  >           |__|   __/
        \/     \/     \/     \/                 \/               |__|

#  Reserve ip v2.0
#  Author  : Mr_AnarShi-T
#  Home    : GaZa-HacKeR.NeT
#  GreeT's : Zero_Cool , TKL , hidden pain , all GaZa-HaKer Team - Members
#  Usage   : Perl $.pl www.site.com results_file.txt
};

    exit;

}

my $ip = "";
my $website = $ARGV[ 0 ] or exit_a;
my $filename = $ARGV[ 1 ] or exit_a;
open FILE,">>" . $filename or exit_a;
my $ua = LWP::UserAgent->new;
$ua->agent('Mozilla 4.76[en] - Windows 2000');

my $page = $ua->get('http://www.my-ip-neighbors.com/?domain=' . $website)-

>as_string;

@split_2 = split /Neighbors : /,$page;
if ($split_2[ 1 ] =~ m{<dd>(.*?)</dd>}g){

    $n = $1;

}

@split_3 = split /Server country : /,$page;
if ($split_3[ 1 ] =~ m{<dd>(.*?)</dd>}g){

    $country = $1;

}

@split_1 = split /<span/,$page;
for( my $i = 0; $i<@split_1; $i++ ){

    if ($split_1[ $i ] =~ m{class="IP">(.*?) }g){

        $ip = $ip . " " . $1;

    }

}
 print q{
__________                                                    .__
\______   \ ____   ______ ______________  __ ____             |__|_____
 |       _// __ \ /  ___// __ \_  __ \  \/ // __ \    ______  |  \____ \
 |    |   \  ___/ \___ \\  ___/|  | \/\   /\  ___/   /_____/  |  |  |_> >
 |____|_  /\___  >____  >\___  >__|    \_/  \___  >           |__|   __/
        \/     \/     \/     \/                 \/               |__|

#  Reserve ip v2.0
#  Author  : Mr_AnarShi-T
#  Home    : GaZa-HacKeR.NeT
#  GreeT's : Zero_Cool , TKL , hidden pain , all GaZa-HaKer Team - Members
#  Usage   : Perl $.pl www.site.com results_file.txt
};
sleep 3;
print "
[#] information Founded :

[+]Target : " . $website . "
[+]Server ip : " . $ip . "
[+]Domains number : " . $n . "
[+]Server country : " . $country . "

[*]Trying To Write Domains info File .. \n\n";

@split = split /<td/,$page;

for( my $i = 0; $i<@split; $i++ ){

    if ($split[ $i ] =~ m{http://whois.domaintools.com/(.*?)"}g){

        print FILE "[+] " . $1 . "\n";

    }

}
sleep 2;
print "[+]Domains succussfully written to the file : " . $filename . "\n\n";
close(FILE);