• [perl]Reverse-IP and Alexa Rank Checker

    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 :- ";
    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";
    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;
    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";
    Started learning perl somedays back and here is first outcome of it.

    Constructive criticizing expected from end users .

    This article was originally published in forum thread: [perl]Reverse-IP and Alexa Rank Checker started by silentph33r View original post
  • G4H Facebook

  • G4H Twitter