#!usr/bin/perl
#LocateIP 0.3 (C) Doddy Hackman 2012
 
use LWP::UserAgent;
use IO::Socket;
 
my $nave = LWP::UserAgent->new();
$nave->timeout(5);
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);
 
head();
if ( $ARGV[0] ) {
    start( $ARGV[0] );
}
else {
    sintax();
}
copyright();
 
sub start {
    print "\n[+] Target :  $_[0]\n";
    infocon( $_[0] );
}
 
sub sintax {
    print "\n[+] sintax : $0 <web>\n";
}
 
sub head {
    print q(
 
 
 
 @      @@@@    @@@@    @    @@@@@  @@@@@     @  @@@@@ 
 @     @    @  @    @   @      @    @         @  @    @
 @     @    @  @       @ @     @    @         @  @    @
 @     @    @  @       @ @     @    @         @  @    @
 @     @    @  @      @   @    @    @@@@      @  @@@@@ 
 @     @    @  @      @   @    @    @         @  @     
 @     @    @  @      @@@@@    @    @         @  @     
 @     @    @  @    @@     @   @    @         @  @     
 @@@@@  @@@@    @@@@ @     @   @    @@@@@     @  @     
 
 
 
);
}
 
sub copyright {
    print "\n\n== --(C) Doddy Hackman 2012 -- ==\n\n";
    exit(1);
}
 
sub infocon {
    my $target = shift;
 
    my $get    = gethostbyname($target);
    my $target = inet_ntoa($get);
 
    print "\n\n[+] Getting info\n\n\n";
    $total =
      "http://www.melissadata.com/lookups/iplocation.asp?ipaddress=$target";
    $re = toma($total);
 
    if ( $re =~ /City<\/td><td align=(.*)><b>(.*)<\/b><\/td>/ ) {
        print "[+] City : $2\n";
    }
    else {
        print "[-] Not Found\n";
        copyright();
    }
    if ( $re =~ /Country<\/td><td align=(.*)><b>(.*)<\/b><\/td>/ ) {
        print "[+] Country : $2\n";
    }
    if ( $re =~ /State or Region<\/td><td align=(.*)><b>(.*)<\/b><\/td>/ ) {
        print "[+] State or Region : $2\n";
    }
 
    print "\n\n[+] Getting Hosts\n\n\n";
 
    my $code = toma( "http://www.ip-adress.com/reverse_ip/" . $target );
 
    while ( $code =~ /whois\/(.*?)\">Whois/g ) {
        my $dns = $1;
        chomp $dns;
        print "[DNS] : $dns\n";
    }
}
 
sub toma {
    return $nave->get( $_[0] )->content;
}
 
# ¿ The End ?