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.277 ]
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';
Descobrir operadora de celular
API do Bing para traduzir textos
Perl Check Port - Entenda melhor os sockets
Como aprovar Pull Requests em seu repositório Github via linha de comando
Como gerar um podcast a partir de um livro em PDF
Automatizando digitação de códigos 2FA no browser
Resolver problemas de Internet
Como compartilhar a tela do Ubuntu com uma Smart TV (LG, Samsung, etc.)
Resolvendo o erro "libQt6Widgets.so.6: cannot open shared object file" no Linux
Como instalar protetores de tela (Debian e derivados)
Conheça a 4Devs, caixa de ferramentas online para desenvolvedores
Como converter um vídeo MP4 para um GIF para publicar no README.md do seu repositório Github
Problemas de compartilhame... de impressora no Ubuntu 24.04 (3)
Ferramentas e métodos de criação de binários estáticos (1)
Como faço o root no android 11 rock pi 4 plus (1)
como instalo panfrost-dri e o driver panfrost fork , ou panfrost (11)