Private Jce checkeer

[cPanel]

#!/usr/bin/perl

use HTTP::Request;

use LWP::Simple;

use HTTP::Request::Common;

print "[+] Private Jce checkeer maded by cPanel \n";

print "[+] Chose File:";

$file=<STDIN>;

chomp($file);

open (file, "<$file") || die "[-] Can't open the List of site file !";

my @file = <file>;

close file;

foreach $webs (@file) {

chomp $webs;

$site = $webs;

print "Checking $site \n";

my $jes1 = "http://".$site."/index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b";

my $cik = &get($jes1);

if ($cik =~ /{"result":null,"error":"No function call specified!"}/g) {

print "[+]Checking $site Success \n";

open(BEN,">>success.txt");

print BEN "$site\n";

close(BEN);

} else {

print "[-]Checking $site Failed \n";

open(BEN,">>failed.txt");

print BEN "$site\n";

close(BEN); }

}

[M2G]

Pune codul in tagul: [ perl] [ /perl] fara spatii

[cPanel]

ok , multumesc..