IPloc - Informações e localização de um determinado endereço IP

Publicado por Perfil removido (última atualização em 24/07/2013)

[ Hits: 5.507 ]

Download IPloc.pl




O script é simples e serve para mostrar a geolocalização de um IP.

Ele mostra o órgão que detém o IP e sua localização. Como todos nós já sabemos, a geolocalização de IP ainda não é 100 % precisa, por isso podem haver "falsas informações".

Obs.: eu usei o "Term::ANSIColor" para personalizar as cores, caso você não tenha esse módulo pode instalá-lo com o comando:

# cpan -i Term::ANSIColor

Ou não usá-lo, excluindo ou comentando as linhas no código.

:)

  



Esconder código-fonte

#!/usr/bin/perl

use Socket;
use Term::ANSIColor;

# Information from IP or host
# Code by KoubackTr
# http://www.twitter.com/kouback_tr_


print color 'bold green';
print "*================================================*\n";
print "[IPloc - Location and information from IP address]\n";
print " By KoubackTr http://www.twitter.com/kouback_tr_ \n";
print "*================================================*\n";
print "\n";
print color 'reset';
@iphost=$ARGV[0] || die "Use: IPloc <host/ip> \nEx:  IPloc www.google.com \n     IPloc 74.125.224.208\n \n";
my @ip = inet_ntoa(scalar gethostbyname("@iphost")or die "Ip ou Host invalido\n");
my @hn = scalar gethostbyaddr(inet_aton(@ip),AF_INET);

@dados=("curl -s 'http://api.ipinfodb.com/v3/ip-city/?key=e9deb425dd0719480[email protected]ip'");

print color 'bold green';
print"*========*===================================*\n";
print"ISP:/\n";system("whois @ip | grep 'owner:' ");
print"+--------------------------------------------*\n";
print"|IP      |  @ip\n";
print"|Hostname|  @hn\n";
print"|País    |  ";system("@dados |cut -d ';' -f5");
print"|Estado  |  ";system("@dados |cut -d ';' -f6");
print"|Cidade  |  ";system("@dados |cut -d ';' -f7");
print"|Lat     |  ";system("@dados |cut -d ';' -f9");
print"|Long    |  ";system("@dados |cut -d ';' -f10");
print"*========*====================================*\n";
print color 'reset';

Scripts recomendados

SMTP Mass Mail - Enviando e-mails em massa para vários endereços a partir de um servidor SMTP

Tweetin - Poste tweets pelo terminal

Gmail::SendMail - Enviando emails usando gmail

Avisar por e-mail se o IP da conexão ADSL mudar

Buscar Traduções no Google Translate


  

Comentários
[1] Comentário enviado por jcb em 25/07/2013 - 09:56h

Dahora esse script cara ... testei e funcionou ... abs

[2] Comentário enviado por removido em 29/07/2013 - 00:31h

vlw :)


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts