elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Como proteger una cartera - billetera de Bitcoin


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Ayuda Scanner de Puertos!
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda Scanner de Puertos!  (Leído 3,205 veces)
LaMBo

Desconectado Desconectado

Mensajes: 3



Ver Perfil
Ayuda Scanner de Puertos!
« en: 20 Febrero 2004, 18:02 pm »

Hola amigos, a ver si pueden ayudarme...
Veran, resulta que estoy terminando un escaner de puertos remotos.

 Este escaner realiza todo correctamente, pero es un escaner de puertos locales,
 quisiera hacerlo para puertos remotos, que conecte por IP (Usando Winsock).
 Este escaner sirve de mucho, analiza los puertos que los troyanos suelen abrir y nos dá el nombre del troyano.

         
         Este proyecto no está pensado para buscar victimas infectadas por troyanos,
         aunque en manos de muchos lammers, puede ser beneficioso...


         AYUDENME! Gracias anticipadas...


Aki va el code general...(CHEQUEENLO SI PUEDEN Y DIGANME EL ERROR)


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



Private Sub btnComenzar_Click()

Dim X As Long
Dim RutaTroyano As String
Dim IndexIcono As Integer
Dim DescribeTroyano As String

Static Desde As Long
Static Hasta As Long

RutaTroyano = App.Path & "\Trojans.ini"


    If btnComenzar.Caption = "Comenzar" Then
       
        If Not IsNumeric(txtHasta) Or Val(txtHasta) > 65000 Then
            MsgBox "Error en el puerto", vbCritical, "Error"
            txtHasta.SetFocus
            txtHasta.SelStart = 0
            txtHasta.SelLength = Len(txtHasta)
            Exit Sub
        End If
        If Not IsNumeric(txtDesde) Or Val(txtDesde) > 65000 Then
            MsgBox "Error en el puerto", vbCritical, "Error"
            txtDesde.SetFocus
            txtDesde.SelStart = 0
            txtDesde.SelLength = Len(txtDesde)
            Exit Sub
        End If
        If Val(txtDesde) >= Val(txtHasta) Then
            MsgBox "El puerto final tiene que ser mayor que el inicial", vbExclamation, "Error"
            Exit Sub
        End If
       
        btnComenzar.Caption = "Pausar"
        Salir = False
        Desde = txtDesde.Text
        Hasta = txtHasta.Text
        Arbolito.Nodes.Clear
        BarraDeProgreso.Min = Desde
        BarraDeProgreso.Max = Hasta
       
    ElseIf btnComenzar.Caption = "Pausar" Then
        Salir = True
        btnComenzar.Caption = "Continuar"
   
    Else
        btnComenzar.Caption = "Pausar"
        Salir = False
    End If


    For X = Desde To Hasta
       
        BarraDeProgreso.Value = X
       
        If Salir Then
            Desde = X
            Exit Sub
        End If
   
        StatusBar1.SimpleText = "[Escaneando puerto " & X & "]"
        On Error GoTo PuertoAbierto
        DoEvents
        Socket.LocalPort = X
        Socket.Listen
        Socket.Close
       
    Next


PuertoAbierto:
   
    If X >= Hasta Then
    btnComenzar.Caption = "Comenzar"
    Exit Sub
    End If
   
    Dim Nodo As Node
    Set Nodo = Arbolito.Nodes.Add(, , "Port" & X, "Puerto abierto: " & X, 1)
    Arbolito.Nodes("Port" & X).Bold = True
           
    DescribeTroyano = sGetINI(RutaTroyano, "Troyanos", Str(X), "Desconocido")
       
        If DescribeTroyano <> "Desconocido" And CheckTroyanos.Value Then
        txtTotalTroyanos = Val(txtTotalTroyanos) + 1
        Set Nodo = Arbolito.Nodes.Add("Port" & X, tvwChild, "Child2" & X, "Posible Troyano: " & DescribeTroyano, 9)
        Arbolito.Nodes("Child2" & X).ForeColor = &HFF&
    End If
Resume Next
       
End Sub


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
ayuda logica, scanner php
PHP
PanConMantequilla 3 2,668 Último mensaje 1 Julio 2011, 21:20 pm
por дٳŦ٭
Ayuda con los Puertos
Hacking
BlueHawck 4 2,702 Último mensaje 29 Julio 2011, 21:33 pm
por Ambr0si0
ayuda con puertos!!
Redes
makinon 0 1,497 Último mensaje 9 Marzo 2012, 22:57 pm
por makinon
ayuda con un scanner de unidades en C/C++
Programación C/C++
Chito9494 3 1,906 Último mensaje 10 Diciembre 2014, 21:11 pm
por Eternal Idol
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines