IPloc - Informações e localização de um determinado endereço IP
Publicado por Perfil removido (última atualização em 24/07/2013)
[ Hits: 6.227 ]
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.
:)
#!/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=e9deb425dd071948093f827111646df275796975eb55da00fe7a0a7c633a907b&format=text&ip=@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';
Iniciando desenvolvimento web ágil com Perl (Mojolicious)
Descobrir operadora de celular
SMTP Mass Mail - Enviando e-mails em massa para vários endereços a partir de um servidor SMTP
Como gerar qualquer emoji ou símbolo unicode a partir do seu teclado
Instalar e Configurar o Slackware Linux em 2025
Como configurar os repositórios do apt no Debian 12 em 2025
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Muitas dificuldades ao instalar distro Linux em Notebook Sony Vaio PCG-6131L (VPCEA24FM)
Slackpkg+ (Slackpkg Plus) está de volta!
Como dividir duas janelas igualmente e lado-a-lado na sua tela
Configurando o Conky para iniciar corretamente no sistema
3 configurações básicas que podem melhorar muito a sua edição pelo editor nano
Youtube e networkmeneger para de funcionar (1)
Minha rede tem um espaço invisível que não dá pra digitar o nome da re... (1)
Pedagogia no brasil não passa de alfabetização por m4sturbação mental ... (2)
compilação samba 4.22 rock linux 9.5 (3)
Erro de segmentação «Segmentation fault (core dumped)» ao retornar obj... (7)