Adivinador de Ips (la curiosidad mató al gato!!)

Iniciado por Codename!!, 20 Octubre 2005, 22:13 PM

0 Miembros y 1 Visitante están viendo este tema.

NYlOn

Intenta desactivando el firewall
y estate seguro de q la victima entro
Yo no lo puedo provar ahora pq no toy en mi ksa, pero cuando yegue lo pruebo y t aviso...

salu2 !

Codename!!

Cita de: NYlOn en 24 Octubre 2005, 19:28 PM
Intenta desactivando el firewall
y estate seguro de q la victima entro
Yo no lo puedo provar ahora pq no toy en mi ksa, pero cuando yegue lo pruebo y t aviso...
ok, con el firewall desactivado supongo que te funcionara sin problemas.
Cita de: APOKLIPTICO en 23 Octubre 2005, 17:12 PM
Esta opción ya está en el Madmsn. (capturar IP). Si c t ocurrió a vos no hay problema pro, no sera plagio, verdad???
No, nunca he usado el madmesenger, leí en algun sitio algo parecido a lo que dice yeikos con el nc, y me decidi a hacerlo con el vb.
No te dejes mover por las masas, se tu mismo.





Xpeed

#12
técnicamente esto daria cómo resultado una ip interna de la maquina, un router y no sirve para nada, una de las mejores cosas que se pueden hacer con respecto a este tema es simplemente como lo planteo Ertai en un hilo de la sección de virukeros conectar a una pagina de tipo cualesmip.com y descargarla buscar la ip copiarla y eliminar el archivo todo con apis, muy bueno y sencillisimo igual de ahi puede paritr un irc notificador o que se yo ... bueno eso



un saludo.

edito:

bueno encontré el hilo en el que se habla y se explica bien el tema...

http://foro.elhacker.net/index.php/topic,68433.0.html

igual pongo un code que sintetizé en base a lo escrito por Ertai en su tiempo ...



'en un modulo
'**************************
Public Declare Function URLDownloadToFile Lib "urlmon" _
                             Alias "URLDownloadToFileA" _
                            (ByVal pCaller As Long, _
                             ByVal szURL As String, _
                             ByVal szFileName As String, _
                             ByVal dwReserved As Long, _
                             ByVal lpfnCB As Long) As Long
   
        Private Const ERROR_SUCCESS As Long = 0
        Private Const BINDF_GETNEWESTVERSION As Long = &H10
        Private Const INTERNET_FLAG_RELOAD As Long = &H80000000


Public Function DownloadFile(sSourceUrl As String, sLocalFile As String) As Boolean
    DownloadFile = URLDownloadToFile(0&, sSourceUrl, sLocalFile, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS
End Function
'************************************


'en el form normal

Private Const sSourceUrl = "http://www.andy21.com/ip/"
    Private Const sLocalFile = "c:\ip.htm"

    Dim pos2%, pos1%
    Dim ip_A$, ip$
    Dim hFile%
    Dim url As String


Private Sub Command1_Click()
    Dim a As Variant
        a = DownloadFile(sSourceUrl, sLocalFile)
        Text3.Text = a
        hFile = FreeFile
    Open "C:\ip.htm" For Input As #hFile
        a = Input(LOF(hFile), #hFile)
    Close hFile
        Text1.Text = a
        Kill ("C:\ip.htm")
        pos1 = InStr(1, Text1.Text, "REMOTE_ADDR: ", vbTextCompare)
        pos2 = InStr(pos1, Text1.Text, " - HTTP_X_FORWARDED_FOR:", vbTextCompare)
        ip = Mid(Text1.Text, (pos1 + 13), (pos2 - (pos1 + 13)))
        Text2.Text = ip

end sub


Slasher-K

Esto es un foro no un chat, si quieren hablar entren al canal, no posteen si no van a aportar algo productivo o a preguntar algo.

Por cierto, muchas gracias por el aporte Xpeed.

Tema cerrado.



A la reina de las profundidades que cuida los pasos de una sombra en la noche :*