[Perl] LocateIP 0.3

[BigBear]

La nueva version de este programa para buscar informacion sobre un ip.

Código (perl) [Seleccionar] Expandir


#!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 ?