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

[Codename!!]

wenas, mirando que la gente esta todo el dia pidiendo otra manera de adivinar la ip de las personas que no sea enviando un archivo y hacer un simple netstat pues eh diseña do una aplicacion bastante simple  para saber la ip del que queramos, si estamos hablando con el por el mesenger, pongo aqui el source:
Asi es como queda la distribucion del formulario :
http://img466.imageshack.us/my.php?image=form16dl.png

Código [Seleccionar] Expandir

Private Sub Command1_Click()  '  este es el boton reiniciar
ws.Close
Call Form_Load
Lista.Clear
End Sub
Private Sub Command3_Click()  ' este es el boton de direccion
direccion.Text = "http://" & ws.LocalIP & ":" & ws.LocalPort
End Sub
Private Sub Form_Load()
ws.Listen
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
Lista.AddItem (ws.RemoteHostIP)
ws.Close
End Sub


Explico sus instrucciones, le picais en direccion y os saldra la direccion que teneis que darle a la persona que quereis saber su ip, el le picara a la direccion y le saldrá en su navegador que no hay datos, o no se encuentran datos, y vosotros ya teneis la ip  bastatne facil no?, si la victima pregunta que para que es esa direccion utilizar la imaginacion jeje 
PD: Si poneis el source en alguna web o algo por lo menos poner la fuente ehh 

[NYlOn]

buen metodo.. no lo conocia
ahora lo pruevo...

gracias x el aporte !


cya

[Leoj90]

Me gustó mucho el programa y el diseño.. las imágenes de los botones (close, maximize..) están buenas 

[Codename!!]

me alegro que os guste 

[Codename!!]

He subido el archivo ya compilado para que no os kejeis.. 

http://rapidshare.de/files/6580854/La_curiosidad_de_la_ip_by_Codename.exe.html
que os divirtais 

[-sagitari-]

Oye, no me funciona, ni el compilado por mí, ni el compilado por tí.

1. pico en dirección
2. le paso la dirección a la victima
3. la victima entra
4. me tendría que salir su ip
5. NO ME SALE

Pero sin embargo si abro yo la dirección si sale la ip
a ver si me respondeis mi duda...

[NYlOn]

Código [Seleccionar] Expandir


Private Sub ws_ConnectionRequest(ByVal requestID As Long)
Lista.AddItem (ws.RemoteHostIP)
ws.Close
End Sub


Una vez q llega la IP el WinSock se cierra... Si vos entras a la pagina, te muestra la IP y se cierra, entonces tendrias q abrir el progrma y mandar la direccion sin q nadie mas entre.

salu2 !

[Codename!!]

pues ami me funciona sin modificar nada....

[-sagitari-]

pues a mí me sigue sin ir

[-sagitari-]

Lo que yo sí sé es que no me funciona X'D

saludos...
pongo que ya no me notifique