facebook facebook twitter rss

Joomla component fabrik scanner [Perl]

Author: Xtroj-EnTn , Published: 25-09-2014
#!/usr/bin/perl 
###############################################
# Gr33tz TO Hatem Dridi #
# From Xtroj-EnTn #
###############################################

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


if ($^O =~ /MSWin32/) {system("cls"); system("color a");
}else { system("clear"); }
print "\t[+]------ Joomla component fabrik scanner ------[~]\n";
print "\t[-] Dev by Xtroj-EnTn [~]\n";
print "\t[+] result in GOOD.tx [~]\n";
print "\t[-] For My Friend Hatem Dridi [~]\n";
print "\t[+]-------------------------------------------------------[~]\n";
print "\n\n\t. Greetz To: Hatem Dridi & MyComputer .\n\n";

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

$website = $target."/index.php?option=com_fabrik&c=import&view=import&filetype=csv&table=1
";

$req=HTTP::Request->new(GET=>$website);
$ua=LWP::UserAgent->new();
$ua->timeout(30);
$response=$ua->request($req);
if($response->content=~ /Soumettre/ ||
$response->content=~ /Submit/

)
{
$Messageee ="Vulnerability Found";
open (TEXT, '>>GOOD.txt');
print TEXT "$target => $Messageee\n";
close (TEXT);
}
else {
$Messageee = "Vulnerability Not Found ";
}
print ">> $target => $Messageee\n";
}

Like us on Facebook :