Escanear Puertos

[JKey]

Para escanear puertos con VB6, he encontrado en Internet varios Code, que viendolos muy detenidamente, creería que son una copia del mismo, el cual es el siguiente:

______________ ______________ ______________ ______________ ___

'angerak @hotmail.com
'venezuela-tachira
Dim port As Integer
Dim x As Long
Private Sub Form_Load()
Timer1.Enabled = False
Winsock1.Conne ct
PuertoOpen = "0"
PuertoEscanead o = "0"
List1.Clear
text1 = Winsock1.Local IP
End Sub
Private Sub cmd1_Click()
cmd1.Enabled = False
cmd2.Enabled = True
List1.Clear
PuertoOpen = "0"
PuertoEscanead o = "0"
Timer1.Enabled = True
End Sub
Private Sub Image1_Click()
Unload Me
End Sub
Private Sub Timer1_Timer()
x = Text2.Text
For port = 1 To x
PuertoEscanead o = port
Winsock1.Close
Winsock1.Conne ct text1.Text, port
DoEvents
Next
MsgBox "Todos los puertos fueron escaneados", vbExclamation, "Control de Escaneados (Angerak @Hotmail.com)"
cmd1.Enabled = True
Timer1.Enabled = False
End Sub
Private Sub cmd2_click()
cmd2.Enabled = False
port = x
Timer1.Enabled = False
End Sub
Private Sub Winsock1_Conne ct()
List1.AddItem ("Puerto Abierto : " & Winsock1.Remot ePort)
Winsock1.Close
PuertoOpen = PuertoOpen + 1
End Sub

______________ ______________ ______________ ______________ ____

El problema que tengo, es que no sé como utilizarlo, es decir, sé que es necesario segun he leido adjuntar un Módulo, que en algunos casos lo advierten, en otros no.

Con modulo, y sin modulo, al intentarlo compilar, para la aplicación que preparo, siempre me genera error.

Lo que busco con todo esto, es algo asi:

Dada una direccion IP, en un textbox, mediante un CommandButton, poder escanear puertos disponiles en una PC.

El puerto de inicio, y el puerto final, escribirlos en otro, o otros, TextBox, y con el anterior CommandButton, comenzar el escaneo.

El resultado seria entregarlo en un listBox.

¿Es muy complejo lo que me propongo?

Es que veo que el Code no es dificil, pero lo extraño es que al compilarlo siempre genera error.

¿Me falta algún componente aparte del Winsock, y el Timer, para extraer los puertos?

El tema de la extraccion de la IP, ya esta resuelto, mediante el control Winsock.

De antemano gracias por la orientacion.

[ecoro]

    HOla JKey, supongo que después de tanto tiempo lop habrás solucionado pero si no es así indicanos el error concreto que te da al compilarlo.


   Erik

[ActiveSheet]

el pedo es que el bucle ba muy rapido como para captar algo sustituye el bucle por un timer com intervalo de 1000

va muy lento no? pues crea index de winsock y que prueven rangos de puertos.

alguien me puede recordar cuantos puertos tienen las PCs?

[Dj_Dexter]

Esta super bueno el ejemplo, lo hice, le fallan varias cosas, se desborda, despues de poneele el valor del puerto a ir despues de 30000, no lee todos los puertos, se podria mejorar, pero esta la base del code para un escaneador de puertos

Saludos

[Ther0x]

el pedo es que el bucle ba muy rapido como para captar algo sustituye el bucle por un timer com intervalo de 1000

va muy lento no? pues crea index de winsock y que prueven rangos de puertos.

alguien me puede recordar cuantos puertos tienen las PCs?

65536


Del escaner, pues no me he leido el code entero, pero mi escaner viejo simplemente intentaba conectar a un host y si se prodcia un error era puerto cerrado y si conectaba, puerto abierto.
Usaba un timer con un intervalo un poco largo, y más tarde añadí un pequeño arreglo de winsocks, que por cierto me dieron bastantes problemas xD

Saludos

[crypto136]

La respuesta para que no se quede en el puerto 35675 creo que hasta ahi llega es porque la variable Port es de tipo integer pero si la cambian a long ahi si podran escanear los puertos hasta 65535

suerte