#!/usr/bin/perl

use Digest::MD5 qw(md5 md5_hex md5_base64);
use IO::Select;
use HTTP::Response;
use HTTP::Request::Common qw(GET);
use URI::URL;
use IO::Socket::INET;
use Term::ANSIColor qw(:constants);
use MIME::Base64;
use LWP;
use HTTP::Cookies;
use HTML::Entities;
use URI::Escape;
use Win32::Console::ANSI;
use Term::ANSIColor;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
use HTTP::Request::Common;
use Term::ANSIColor;
use HTTP::Request::Common qw(GET);
use MIME::Base64;
use WWW::Mechanize;
use threads;

if ($^O =~ /MSWin32/) {system("cls"); system("color A");
}else { system("clear"); }
print "    ######################################################################\n";
print "    #                                                                    #\n";
print color 'reset';
print color("bold red"),"    #                           Golden-Hacker                            #\n";
print color("bold red"),"    #                      _____            _    _                       #\n";
print color("bold red"), "    #                     / ____|          | |  | |                      #\n";
print color("bold red"), "    #                    | |  __   ______  | |__| |                      #\n";
print color("bold red"), "    #                    | | |_ | |______| |  __  |                      #\n";
print color("bold red"), "    #                    | |__| |          | |  | |                      # \n";
print color("bold red"), "    #                      \_____|          |_|  |_|                      # \n";
print color 'reset';
print color("bold Green"), "    #                                                                    #  \n";
print color("bold Green"), "    # Skype : Mrmohmed.Hacker                                            #  \n";
print color("bold Green"), "    #                                                                    #  \n";
print color("bold Green"), "    ######################################################################\n";
print color("bold Green"), "\n";
print color("bold Green"), "[*]-----------------------------------------------------------------------[*]\n";
print color("bold Green"), "[+] Script Name          :{*} Range Ip And Found Whm {*} \n";
print color("bold Green"), "[+] Version              : 1.0\n";
print color("bold Green"), "[+] Programed By         : Golden-Hacker & Ahmed Ali\n";
print color("bold Green"), "[+] Email                : http://Fb.com/mrm0hm3d\n";
print color("bold Green"), "[*]-----------------------------------------------------------------------[*]\n";
print color('bold red'),"\n";
print color('bold red'),"\n";
print color 'reset';
print color("Green"), "Enter IP List : ";
print color 'reset';


my $list=<STDIN>;
chomp($list);
	open (THETARGET, "<$list") || die "[-] Can't open the List of site file ?!";
@TARGETS = <THETARGET>;
close THETARGET;
$link=$#TARGETS + 1;
OUTER: foreach $tofuck(@TARGETS){
chomp($tofuck);
if($tofuck =~ /http:\/\/(.*)\//) {
$tofuck= $1;
gett();

}else{
gett();

}

}


##############################
sub gett(){
print color('bold red'),"\n";
$ip= (gethostbyname($tofuck))[4];
my ($a,$b,$c,$d) = unpack('C4',$ip);
for ($i = 1; $i <= 255; $i+=1){
$ips ="$a.$b.$c.$i";
OUTER: foreach $ip($ips){

print color('bold red')," Ping : $ips\n";
        print TEXT "$ips\n";
        close (TEXT);
				open(save, '>>Ips.txt');
    print save "$ips\n";
    close(save);
$dork="ip:$ips";
getwhm();
}
}
}
#############################
sub getwhm(){


use LWP::Simple qw($ua head);
$ua->timeout(0.4);

my $url = "http://$ips/cgi-sys/defaultwebpage.cgi";
if (head($url)) {
  print color 'reset';
  print color('bold green')," Whm : Found \n";
  print color 'reset';
	open(save, '>>Whm-Found.txt');
    print save "$ips\n";
    close(save);
} else {

}

}
####################################"