#!usr/bin/perl#LocateIP 0.3 (C) Doddy Hackman 2012use 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 ?
Anarquía es la noción radical de que las demás personas no son de tu propiedad.