La nueva version de este programa para buscar informacion sobre un ip.
#!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 ?