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.320 ]
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';
Automatizando o envio de arquivo p/ o FTP !
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Atualizar Debian Online de uma Versão para outra
Dica para encontrar diversos jogos Indies criativos
Instalando Discord no Debian 13
Instalar driver Nvidia no Debian 13
Redimensionando, espelhando, convertendo e rotacionando imagens com script
paginação dos favoritos não funciona no vivaolinux[BU... (4)
Driver da nvidia e desempenho em jogos (2)
A escola é altamente ineficiente e ineficaz! (13)
Sincronização Horario Estação de trabalho máquinas domínio com samba N... (2)