IP-Reverse [Perl]

IP-Reverse and Alexa rank chaker by perl ......

#!/usr/bin/perl
use warnings;
use LWP::UserAgent;
use XML::Simple;

print "[--------------------------------------------------]\n";
print "[Yougetsignal Reverse Ip and Alexa Rank Get script ]\n";
print "[ Code By SiLeNtp0is0n   <3 to Lucky Mr.XXX KD     ]\n";
print "[Thanks to Jackh4x0r [s] garage4hackers            ]\n";
print "[fb1h2s 41.w4rr10r the_empty godwin_austin         ]\n";
print "[--------------------------------------------------]\n";


print "Enter Domain Name or Ip-Address :- ";
$ioip=<STDIN>;
chomp($ioip);
my $ua = LWP::UserAgent->new(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.9.1) Gecko/20090624 Firefox/3.5');
#To get Alexa Rank
sub alexa{
$xml = new XML::Simple;

$rp = $ua->get('http://data.alexa.com/data?cli=10&dat=s&url='.$dnames);
$dresult = $rp->content;

$data = $xml->XMLin($dresult);
if ($rp->is_success) {
print $rp->status_line."\n";

my $size = length($rp->decoded_content);
if($size >=300)
{
print "[World Rank is]:-".$data->{SD}->[1]->{POPULARITY}->{TEXT}."\n\n";

}else
{
print "[no rank]\n\n";
}
}
}

#results from reverse ip
my $rp = $ua->post('http://www.yougetsignal.com/tools/web-sites-on-web-server/php/get-web-sites-on-web-server-json-data.php', 
{
        remoteAddress => $ioip,
}
);

my $dresult = $rp->content;
while ($dresult =~ m/\[([^\]]*)\]/g)
{
        $imatch = $1;
        $imatch =~ m/\"(.*?)\", \"?\"/g;
        print "Domain Name :- [".$1."]\n";
  $dnames = $1;
    alexa();
}
if ($dresult =~ m/"message":"Daily reverse IP check limit reached for (.*)\. Please <a href='\/about'>contact<\/a> me to remove this limit\."/)
{
print "Sorry No domains cannot be found now";
}

IP-Reverse [Perl] 2012-01-21T09:41:00-08:00 Rating: 4.5 Diposkan Oleh: r007-