MASS REVERSE JOOMLA [PERL] Coded by Gangta Crew

n4sss coded one but in PHP and priv8

click here for look video of n4sss


example :
Quote:
perl mass.pl ips.txt




<<<================================>>> code start here <<<================================>>>

#!/usr/bin/perl
#From TeaM MosTa
#little Tools
#Greets To all member Gantengers-crews


use LWP::UserAgent;
use Term::ANSIColor;
use Win32::Console::ANSI;
if($^O =~ /Win/){

   system("cls");
   system("color a");
   system("title Reverse D0main");

}else{

   system("clear");
}
print q{

                      +========[Step 1]========+
                      |    Reverse Websites    |
                      |    with YouGetSignal   |
                      +========================+


};
print color("bold red"), "\n\n[!]Step 1 Reverse All Website of IPs\n";
print color 'reset';

sleep (3);
print color("green"), "\n\n[*]Put List Of Ips:";
  print color 'reset';
my $host = <STDIN>;
chomp($host);
open (zebib, "<$host") || die "[-] Can't open the List of site file !";
my @filee = <zebib>;
close zebib;
print "\t\n [-]Number Of IP : ";
print color("bold blue"), "".scalar(@filee)."\n";
print color 'reset';
foreach $hosts(@filee) {
chomp($hosts);
$ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.9.1) Gecko/20090624 Firefox/3.5");
#Send Request Post
my $zz = $ua->post('http://domains.yougetsignal.com/domains.php',
{
        remoteAddress => $hosts,
}
);

my $resulta = $zz->content;
while ($resulta =~ m/\[([^\]]*)\]/g)
{
        $zeb = $1;
        $zeb =~ m/\"(.*?)\", \"?\"/g;
open(a, ">>log.txt");
print a "$1\n";
close(a);
}
}
print "\n[+]websites Reversed.\n";
sleep(2);
if($^O =~ /Win/){

   system("cls");
   system('color a');
   system("title REverse Joomla Website");

}else{

   system("clear");
}
print q{
                      +========[Step 2]========+
                      |    Reverse Joomla      |
                      |        Websites        |
                      +========================+
};

open (zeb, "<log.txt") || die "[-] Can't open the List of site file !";
my @filei = <zeb>;
close zeb;
print "\n[-]Number Of Websites To Reverse :";
print "".scalar(@filei)."\n";
sleep(1);
foreach $klawi (@filei) {
chomp ($klawi);
$joom = "http://".$klawi."/administrator/";
$uaa = LWP::UserAgent->new;
$uaa->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.9.1) Gecko/20090624 Firefox/3.5");
#Send Request
my $content = $uaa->get($joom)->content;
#Checking now
if($content =~/Joomla!/)
{
  print color("green"),"\n [+] Joomla : ".$klawi."\n";
  print color 'reset';
  open(suck, ">>reversed.txt");
print suck "$klawi\n";
close(suck);
}
}
print "\n\n\tResult in reversed.txt\n";