Base de datos con las IP, nombre del ISP y localidad, cómo la ubico?

[KriptonItaN]

Hola a todos,

Soy bastante nuevo y no conozco muy bien el foro. Desearía que alguien me guíe para ubicar cualquier información sobre la que ya se haya discutido, referente a lo más adecuado para obtener las bases de datos que contienen, por ejemplo, la IP, nombres de los ISP, las localidades, etc.

Ya pregunté en otro lado y me hicieron ver que ya este tema estaba suficientemente agotado aquí, pero no he podido encontrar la manera de ubicar los foros adecuados.

No importa si es pago o gratuito, pero necesito una forma de conocer, además de la IP, el nombre del ISP y la localidad de las personas que visitan mi sitio. Tengo entendido que hay que bajar una base de datos, actualizarla periódicamente y tener algún Script que me permita hacer la búsqueda y las comparaciones en la DB, una vez que yo la tenga.

Se que hay páginas que proveen de este servicio pero no puedo incorporar sus partes dentro de mi sitio propio.

Espero me haya hecho entender.

Saludos.

[gildus]

Holas,

Yo use solo las herramientas de estos sitios, que son muy buenos:

http://www.ip2location.com/
http://www.hostip.info/dl/index.html

Te dan una base de datos con informacion tan solo de las IPs.

Espero que te pueda servir, nos avisas.


Saludos
Gildus

[KriptonItaN]

Gracias, pero ya tengo contactos con un grupo de amigos que hemos decidido a crear algo mejor, en lugar de estar dependiendo de las bases de datos que prepara un grupo de empresas con fines de lucro, se nos ocurre que la mejor forma, según creemos, es ir directamente a la fuente y en tiempo real.

Es decir, al tomar como ejemplo la IP: 200.10.130.010, nuestro Script debe decirnos que ese registro entá en "Latin American and Caribbean IP address Regional Registry" cuyo Whois-Server es Whois.lacnic.net. (Efectivamente hemos comprobado que es así)

Sigue un ejemplo de lo que nos da el programa:
===========================================
Copyright LACNIC lacnic.net
% The data below is provided for information purposes
% and to assist persons in obtaining information about or
% related to AS and IP numbers registrations
% By submitting a whois query, you agree to use this data
% only for lawful purposes.
% 2007-06-29 22:58:41 (BRT -03:00)

inetnum: 200.10.130.010/23
status: assigned
owner: Pontificia Universidad Catolica del Peru
ownerid: #######
....
....
....
responsible: ?????
....
address: Av. Universitaria, 1801, San Miguel
address: 32 - Lima - PE
country: PE
.....
phone: +51 .....
.....
created: 200XXXXXX
changed: 200XXXXXX

% whois.lacnic.net accepts only direct match queries.
% Types of queries are: POCs, ownerid, CIDR blocks, IP
% and AS numbers.

[gildus]

Holas,

Que bueno, entonces te referias al WHOIS, pense que era otra cosa, pero que bueno que lo hayas hecho.


;)

Saludos
Gildus

[KriptonItaN]

No es nada de otro mundo. Simplemente debes hacer el respectivo Query al apropiado whois.server.xxx y tendrás la información que deseas.

Por ejemplo, nos visitaron con la IP 85.225.208.52.

Nuestro programa nos da la siguiente información:

***********************************************

% Joint Whois - whois.lacnic.net
% This server accepts single ASN, IPv4 or IPv6 queries

% This is the RIPE Whois query server #2.
% The objects are in RPSL format.
%
% Rights restricted by copyright.
% See http://www.ripe.net/db/copyright.html

% Note: This output has been filtered.
% To receive output for a database update, use the "-B" flag

% Information related to '85.225.208.0 - 85.225.211.255'

inetnum: 85.225.208.0 - 85.225.211.255
netname: BB-BISP-dsl20-sto12
descr: B2 customer network
country: SE
remarks: <INFRA-AW>
admin-c: BR3045-RIPE
tech-c: BR3045-RIPE
status: ASSIGNED PA
mnt-by: B2-MNT
mnt-routes: B2-MNT
source: RIPE # Filtered

role: Bredbandsbolaget Routing Registry
address: Box 47645
address: 117 94 Stockholm
address: Sweden
remarks: trouble: *********************************
remarks: trouble: Abuse related issues is reported
remarks: trouble: to [email protected]
remarks: trouble: phone [phone]
remarks: trouble: Abuse issues sent to other e-mail
remarks: trouble: adresses will be discarded
remarks: trouble: *********************************
admin-c: TN2809-RIPE
admin-c: JN1883-RIPE
admin-c: EB78-RIPE
admin-c: NE102-RIPE
admin-c: ARL1-RIPE
admin-c: TYNF-RIPE
tech-c: TN2809-RIPE
tech-c: JN1883-RIPE
tech-c: EB78-RIPE
tech-c: NE102-RIPE
tech-c: ARL1-RIPE
tech-c: TYNF-RIPE
nic-hdl: BR3045-RIPE
mnt-by: B2-MNT
source: RIPE # Filtered
abuse-mailbox: [email protected]
abuse-mailbox: [email protected]

% Information related to '85.224.0.0/13AS8642'

route: 85.224.0.0/13
descr: Broadband Customers in Scandinavia
descr: Please report improper use to [email protected]
origin: AS8642
mnt-by: B2-MNT
source: RIPE # Filtered

% Information related to '85.224.0.0/13AS2119'

route: 85.224.0.0/13
descr: More specific due to migration
origin: AS2119
mnt-by: AS2119-MNT
source: RIPE # Filtered

***********************************************

Lo interesante de esta experiencia es que si tienes el siguiente dato:

inetnum: 85.225.208.0 - 85.225.211.255

Entonces, muy fácilmente puedes conocer el rango completo de IP asignadas a este usuario. Así para la mayoría de casos.

Eso nos invita a pensar que esas bases de datos que algunas empresas vende por ahí, bien caras por cierto, no es otra cosa que completar los valores que faltan, y así obtener el rango completo de IP. Sólo es cuestión de algunas verificaciones.

Por otro lado, la transformación de IP a valores numéricos, es un proceso simple y sencillo. En otra oportunidad te explico la fórmula para lograr dicha transformación.

[KriptonItaN]

La fórmula para transformar IP a Números es:

Teniendo la IP: A.B.C.D, entonces debemos obtener un número IPn, así:

IPn = A x (256 x 256 x 256) + B x (256 x 256) + C x 256 + D

Ejemplo: La IP 85.225.208.52 tendría su número IPn así:

IPn = 85 x (256 x 256 x 256) + 225 x (256 x 256) + 208 x 256 + 52

IPn = 16777216 + 14745600 + 53248 + 52 = 31576116

Verifica ese resultado, puede que mi calculadora se haya equivocado.

[KriptonItaN]

Se me pasaba por alto, la IP 85.225.208.52 corresponde a http://majestic12.co.uk/bot.php, el cual es el robot de un buscador, según RIPE Network Coordination Centre (whois.ripe.net).

[Shiryu_Libra]

se nota que te entusiasmo realizar este programa KriptonItaN o mas bien dicho implementarlo

[KriptonItaN]

Bueno, es cuestión de buscar, cortar algo aquí y otro poco más allá, luego juntarlo todo y listo. Los misterios no existen, todo está hecho.

Tu sabes, mientras la gran mayoría sepa menos, casi siempre favorece a una minoría.

[KriptonItaN]

La función principal de búsqueda:
*****************************
Public Function ObtenerInfoDelWhoIs(ByVal sWhoIsHost As String, ByVal sIPAddress As String) As String
Dim sResult As String = ""

Dim lPort As Integer = 43
Dim oTcp As Net.Sockets.TcpClient = New Net.Sockets.TcpClient(sWhoIsHost, lPort)
Dim oNetStream As Net.Sockets.NetworkStream = oTcp.GetStream
Dim oBaseStream As IO.BufferedStream = New IO.BufferedStream(oNetStream)

Try
Dim oOutputStream As IO.StreamWriter = New IO.StreamWriter(oBaseStream)
oOutputStream.WriteLine(sIPAddress)
oOutputStream.Flush()

Try
Dim oInputStream As IO.StreamReader = New IO.StreamReader(oBaseStream)

Do While oInputStream.Peek <> -1
sResult = sResult & oInputStream.ReadLine() & vbCrLf
Loop

Catch oEX As Exception
sResult = ""
End Try

Catch oEX As Exception
sResult = ""
End Try

Return sResult
End Function
*****************************

De manera que desde un form, puedo averiguar si una IP está, por ejemplo, en whois.lacnic.net y obtener la información:

Requiere un Button1 y un TextBox1.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(BucaEnLacNic(TextBox1.Text))
End Sub

Private Function BucaEnLacNic(ByVal sIPAddress As String) As String
Dim sResult As String = ""
BucaEnLacNic = ObtenerInfoDelWhoIs("whois.lacnic.net", sIPAddress)
End Function
*****************************

Usando un Button2 adicional...

Podemos saber el nombre del servidor:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox(BuscarOrg(TextBox1.Text))
End Sub

Public Function BuscarOrg(ByVal sIPAddress As String) As String
Dim sHost As String = BucaEnARIN(sIPAddress)

If sHost = "RIPE Network Coordination Centre" Then
sHost = BucaEnRIPE(sIPAddress)
ElseIf sHost = "Asia Pacific Network Information Centre" Then
sHost = BucaEnAPNIC(sIPAddress)
End If

Return sHost
End Function


'Buca En ARIN
Private Function BucaEnARIN(ByVal sIPAddress As String) As String
Dim sResult As String = ""

Dim sWhoIsText As String = ObtenerInfoDelWhoIs("whois.arin.net", sIPAddress)

'
Dim iOrgID As Integer = sWhoIsText.IndexOf("OrgID")
If iOrgID > 14 Then
sResult = sWhoIsText.Substring(14, iOrgID - 14)

Dim iCR As Integer = sResult.IndexOf(Chr(10))
If iCR > 1 Then
sResult = sResult.Substring(0, iCR - 1)
End If

Else
Dim iLastNetPos As Integer = sWhoIsText.LastIndexOf("(NET")
If iLastNetPos > -1 Then
Dim iPrevNetPos As Integer = sWhoIsText.Substring(0, iLastNetPos).LastIndexOf("(NET")
If iPrevNetPos = -1 Then iPrevNetPos = 0

iPrevNetPos = sWhoIsText.Substring(iPrevNetPos, iLastNetPos - iPrevNetPos).LastIndexOf(Chr(10))
If iPrevNetPos = -1 Then iPrevNetPos = 0 Else iPrevNetPos = iPrevNetPos + 1
sResult = sWhoIsText.Substring(iPrevNetPos, iLastNetPos - iPrevNetPos)

iPrevNetPos = sResult.LastIndexOf(Chr(10))
If iPrevNetPos = -1 Then iPrevNetPos = 0 Else iPrevNetPos = iPrevNetPos + 1

sResult = sResult.Substring(iPrevNetPos, sResult.Length - iPrevNetPos)
End If
End If

Return Trim(sResult)
End Function


'Buca En RIPE
Private Function BucaEnRIPE(ByVal sIPAddress As String) As String
Dim sResult As String = ""

Dim sWhoIsText As String = ObtenerInfoDelWhoIs("whois.ripe.net", sIPAddress)

'
Dim iOrgID_Start As Integer = sWhoIsText.IndexOf("descr:")
Dim iOrgID_End As Integer = sWhoIsText.IndexOf("country:")
If iOrgID_Start > -1 AndAlso iOrgID_End > -1 Then
sResult = sWhoIsText.Substring(iOrgID_Start + 14, iOrgID_End - (iOrgID_Start + 14))

Dim iCR As Integer = sResult.IndexOf(Chr(10))
If iCR > 1 Then
sResult = sResult.Substring(0, iCR - 1)
End If
End If

Return Trim(sResult)
End Function


'Buca En APNIC
Private Function BucaEnAPNIC(ByVal sIPAddress As String) As String
Dim sResult As String = ""

Dim sWhoIsText As String = ObtenerInfoDelWhoIs("whois.apnic.net", sIPAddress)

'
Dim iOrgID_Start As Integer = sWhoIsText.IndexOf("descr:")
Dim iOrgID_End As Integer = sWhoIsText.IndexOf("admin-c:")
If iOrgID_Start > -1 AndAlso iOrgID_End > -1 Then
sResult = sWhoIsText.Substring(iOrgID_Start + 14, iOrgID_End - (iOrgID_Start + 14))

Dim iCR As Integer = sResult.IndexOf(Chr(10))
If iCR > 1 Then
sResult = sResult.Substring(0, iCR - 1)
End If
End If

Return Trim(sResult)
End Function


...cortar el código útil, pegar en un Form, y listo.

[Shiryu_Libra]

excelente contribucion, habra que experimentarlo como dices

[KriptonItaN]

¿Alguien me puede dar alguna de esas direcciones donde se puede subir el proyecto?, no se, puede ser en formato zip. Es muy sencillo, sólo requiere un Form. Luego cada quien manipulará, en la forma que lo crea conveniente, la información obtenida para las IP investigadas. Sólo requiere apuntar a un archivo txt, por ejemplo.

[tammander]

Iniciado por KriptonItaN

Tu sabes, mientras la gran mayoría sepa menos, casi siempre favorece a una minoría.

Bueno, yo esta cita la transformaría en esta, mucho más elocuente:

Tu quieres, por lo cual puedes. ;)



Un saludo

[KriptonItaN]

Aún espero por la dirección de algún sitio que de servicio gratuito y donde se pueda subir el código del proyecto vb.net. No uso esos servicios y no se cuales son son.