Obtener la geolocalización de una páginas web

Es probable que en más de una ocasión hayamos tenido la necesidad o simplemente la curiosidad de conocer toda la información de una página web en concreto, por ejemplo, su ubicación, personal de contacto, teléfono e información similar que por uno u otro motivo necesitamos.
En el mundo de internet, la geolocalización es la capacidad para obtener la localización geográfica del usuario que está accediendo a un determinado recurso de internet. Esa información puede servir, como luego se verá, para muchas cosas. Si en vez de ofrecer a todos los usuarios la misma información, procedan de donde procedan, se les ofrece un contenido personalizado en función de su localización geográfica, entonces se está realizando ‘geotargeting‘.

Beneficios

Algunas de las razones por las que se utiliza ‘geotargeting’ y los beneficios que aporta son:

• Personalización de contenidos culturales o restricciones de derechos de autor según la localización del usuario.
• Presentación de publicidad acorde a la localización del usuario, teniendo en cuenta el idioma, hora local, servicios y productos locales, fiestas locales, etc. Si el sitio web ofrece publicidad, ésta podrá elegirse con criterios más acertados, teniendo mayores posibilidades de éxito.
• Prevención de fraudes, por ejemplo al realizar un pago con una tarjeta de crédito desde una localización no habitual.
• Presentación de contenidos teniendo en cuenta la localización del usuario, su hora local, su idioma o su moneda. Esto aumenta la relevancia de la información que el sitio web presenta a los usuarios, mejorando la fidelización.
• Ofrecer al usuario la información que solicita desde el servidor web más cercano a su localización para una mejor velocidad y calidad del servicio (servidores CDN). Se ofrece un servicio más ágil, con tiempos de espera mucho más pequeños.

El script Localizacion.pl esta desarrollado en el lenguaje perl .

El objetivo del script es tener los datos de la pagina web como :

                                               [+] ORG: es la organizacion o la pagina web la informacion

                                               [+] Country: es el País donde esta alojada la web

                                               [+] City: es la ciudad donde esta alojada la web

                                               [+] Region: es la region donde se encuentra el sitio web

                                               [+] Geo:Longitud de la web

                                               [+] Geo:.Longitud de web

                                               [+] Time:El tiempo o hora que usa la web

                                               [+] As number/name:numero o el nombre 

                                               [+] Status:estado de la pagina web
Requisitos
Sistema operativo 

• Windows 7/10 en adelante
• Linux
• Mac

Instalar perl

Descargamos perl para windows https://www.perl.org/ he instalamos una vez hecho esto comenzamos.

Pasos para ejecutar el script

Paso 1

Ingresamos al cmd de Windows o a la terminal de Linux en este proyecto lo hare atreves de cmd .

Paso 2

Ubicamos el archivo donde está el script para poder luego ejecutarlo.

Paso 3

Ubicamos la ruta en mi caso está en el escritorio y escribo “dir” en la consola.

Paso 4

Una vez ubicado el archivo o el script escribimos perl Localizacion.pl

Paso 5

Luego nos aparecerá esta imagen donde hay un ejemplo de cómo podemos ejecutar el script

Paso 6

 Escribimos perl localización.pl www.ejemplo.com Analizando los datos 

Paso 7

Aquí escriben la url que deseen tener información o ubicación como podemos ver también obtendremos la ip de la web

paso 8

verificamos que la url o la página web que deseamos es correcta

abrimos un navegador a su preferencia

Paso 9

como pueden ver el script funciona correctamente.
Aclarar que para que puede escanear deben ser las paginas www o introducir la IP de la web haciendo ping en la pagina que desea que se escanee

Descarga
pdf

script script.pl

#!/usr/bin/perl

# API documentation - http://ip-api.com/docs/

# you can see you external ip using this Bash script :

# read COUNTRY IP <<< $(wget -qO- http://ip-api.com/line/?fields=countryCode,query); echo $IP $COUNTRY

# Now let's start :

#use strict;

use IO::Socket::INET;

use IO::Socket::SSL;

use Getopt::Long;

#use Config;

use Socket;

use Term::ANSIColor;

use WWW::Mechanize;

use JSON;

  

 

print color 'bold bright_yellow';

 

print q{

@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@@@B@B@@@B@B@@@B

B@B@B@B@@@B@B@B@B@B@B@B@@@B@B@B@B@B@B@B@B@B@B@M@B@B@BHi9Ss:    sM@@@B@

@B@B@B@B@B@B@@@B@B@B@B@B@B@B@B@@@B@@@B@B@B@9:,  :         ,:G ,B@B@B@B

B@B@B@@@B@B@@@B@B@B@B@B@B@G@B@B@XiB@B@BsH:,     rs:ir99: ,X@B@9@B@B@B@

@B@B@@@B@B@B@B@B@BHs2MS:   B@B@@@i:,,X :  r,XS, iG GsSGri,  sB@@@B@B@B

B@@@B@B@B@@@B@B@@r:,,     9@B@B9  : is:GM9s X9r  s,;rsrXBi::B9s@B@B@B@

@B@B@B@@@B@B@B@BsiMB@  s@BSG@B@M iM Gs9s:2s2s,:5Sr@9M5:,M:XGMGXB@@@@@B

B@B@B@BB9@i,i,2@B:B@BiB@B@B@SrsH    ,rSr 2XG9,i@XM9MHXsrrr,5B@B@B@B@B@

@5:,, ,     sB@2  2B@@@B@B@B@Br rSsi:sss,rG,25rs:;i:::i;i:rXB@@B@B@B@B

G        ,  ,MG  s,sB@B@B@B@B,,GB@B@@@BX,:rsi:ii,:::s9iirS@@M9M@@@B@B@

@G@@: ,,:,:,,   rB@B@B@B@B@B@9ri,,ssirisS::sri@B@r:s@B@XsrGB@GSM@@@B@B

B@B@2 ,:,:,,, :@B@B@B@B@@@B@M:,:i::::i:i29sirGB@B@s2@@B@XGBBsXBMGM9MBM

@B@G ,::::,  i@B@B@B@B@B@B@@i,;irrrrrrrrrs259B@B@B@B@B@B9rM9sS9B@B9s99

B@@@, ,:,,:Ss@B@B@B@B@B@B@B@s,;iiiirrsssssrrS@B@B@B@B@@@B@G@B@B@@GB@G@

@@@B@r:,,B@B@GMB@B@B@B@B@@@B@siisX2ssssssssM@B@B@B@B@B@@@@@B@B@GS5X9XG

@@B@B@@i,2s:G@B@B@@@@@@@B@B@B@B@B@B9rss2222@B@@@B@B@B@@@B@B@BMSXS9X99X

@B@B@B@B@BXsrM2:iiss2B@B@@@B@B@B@B@BMs2252sS@S@B@B@B@B@B@B@B@SS9GGMGGM

B@B@@@B@B@B@@B:;rrrriss22BB@B@B@B@B@Bs2SS59@M2B@B@B@B@B@B@B@BMM@B@BMM@

@B@@@@@B@B@B@BrrsssssssrsM@@@@@@@B@B@G5S92MB@M@B@@@B@B@@@B@@@B@B@B@B@B

B@B@B@@@B@B@B@@2sss2252sH@B@B@B@B@B@B@GS59B@B@@@B@B@B@B@@@B@B@B@B@B@B@

@B@B@@@B@@@B@B@BM922HHHHM@@B@B@B@B@B@B@GM@@B@@@B@B@B@B@@@@@B@B@B@B@B@B

B@B@B@B@B@@@B@B@B@sSSX2GB@B@B@@@@@B@B@B@B@B@B@B@B@B@@@@@B@B@B@B@B@@@@@

@B@B@B@B@B@B@B@B@BGS9SXB@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@@@B@B@B@B

B@B@B@B@B@B@B@B@B@B9XGB@B@B@B@B@B@B@B@B@B@B@@@B@B@B@B@B@B@@@B@@@B@B@B@

@B@B@B@B@@@@@@@B@B@BGG@B@B@B@B@B@B@B@B@B@B@@@B@B@B@@@@@B@B@@@@@B@B@B@B

B@B@B@B@B@B@@@B@@@B@BMM@B@@@B@@@@@@@B@B@B@B@@@B@B@B@B@B@B@B@B@B@@@B@B@ 

  

Ip Geolocation  

Analizando

-----------------------------------------------------------------------

};

 

print color 'reset';

@iphost=$ARGV[0] || die "Usage : ./Localizacion.pl [host] [ip] [domain] \n\nExample:  ./Localizacion.pl  www.google.com \n   ./Localizacion.pl  216.58.210.206\n \n";

my @ip = inet_ntoa(scalar gethostbyname("@iphost")or die "IP or Host invalid!\n");

my @hn = scalar gethostbyaddr(inet_aton(@ip),AF_INET);

 

my $GET=WWW::Mechanize->new();

    $GET->get("http://ip-api.com/json/@ip");

# JSON API OF IP-API.COM

    my $json = $GET->content();

 

 

my $info = decode_json($json);

# Json API Response :

# A successful request will return, by default, the following:

#{

#    "status": "success",

#    "country": "COUNTRY",

#    "countryCode": "COUNTRY CODE",

#    "region": "REGION CODE",

#    "regionName": "REGION NAME",

#    "city": "CITY",

#    "zip": "ZIP CODE",

#    "lat": LATITUDE,

#    "lon": LONGITUDE,

#    "timezone": "TIME ZONE",

#    "isp": "ISP NAME",

#    "org": "ORGANIZATION NAME",

#    "as": "AS NUMBER / NAME",

#   "query": "IP ADDRESS USED FOR QUERY"

# }

#{

#    "status": "fail",

#    "message": "ERROR MESSAGE",

#    "query": "IP ADDRESS USED FOR QUERY"

#}

# INFOS OF JSON API ...

 

print "  [!] IP: ", $info->{'query'}, "\n";

print "------------------------------------\n"; 

print "  [+] ORG: ", $info->{'as'}, "\n";

print "  [+] ISP: ", $info->{'isp'}, "\n";

print "  [+] Country: ", $info->{'country'}," - ", $info->{'countryCode'}, "\n";

print "  [+] City: ", $info->{'city'}, "\n";

print "  [+] Region: ", $info->{'regionName'}, " - " , $info->{'region'}, "\n";

print "  [+] Geo: ", "Lat: " , $info->{'lat'}, " - Long: ", $info->{'lon'}, "\n";

print "  [+] Geo: ", "Latitude: " , $info->{'lat'}, " - Long: ", $info->{'lat'}, "\n";

print "  [+] Time: ", "timezone: " , $info->{'timezone'}, " - Long: ", $info->{'timezone'}, "\n";

print "  [+] As number/name: ", "as: " , $info->{'as'}, " - Long: ", $info->{'as'}, "\n";

print "  [+] ORG: ", $info->{'as'}, "\n";

print "  [+] Country code: ", $info->{'countryCode'}, "\n"; 

print "  [+] Status: ", $info->{'status'}, "\n"; 

print "\n";

# EOF