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.310 ]
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';
Descubra se seu e-mail ou conta foi "pwned"
Descobrir operadora de celular
Tweetin - Poste tweets pelo terminal
Automatizando o envio de arquivo p/ o FTP !
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Sem espaço na partição home (2)
O que você está ouvindo agora? [2] (190)
Procrastinação e autossabotagem são problemas muito comuns na sociedad... (5)