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.718 ]

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=e9deb425dd071948093f827111646df275796975eb55da00fe7a0a7c633a907b&format=text&[email protected]'");

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

Script para X-chat

Servidor BBS

Localizador de palavras em arquivos nao binarios

processar Lynx.pl

AUTENTICACAO VELOX


  

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