Resultados 1 al 7 de 7

Tema: Ayuda para crear un...

  1. #1 Ayuda para crear un... 
    Iniciado
    Fecha de ingreso
    May 2003
    Ubicación
    Las Palmas
    Mensajes
    34
    Descargas
    0
    Uploads
    0
    Holas, alguien me podria facilitar alguna pequeña ayuda para crear un scanner de IIS???en Visual Basic
    Citar  
     

  2. #2  
    Avanzado
    Fecha de ingreso
    Mar 2002
    Mensajes
    357
    Descargas
    0
    Uploads
    0
    Es bastante facilillo hacer uno básico, tienes q usar el WinSock. No recuerdo ahora exactamente en q páginas, pero en varias páginas de programación VB había bajado yo códigos de scanners; por ahí podrías empezar.

    Un Saludo.
    Citar  
     

  3. #3 okaz 
    Iniciado
    Fecha de ingreso
    May 2003
    Ubicación
    Las Palmas
    Mensajes
    34
    Descargas
    0
    Uploads
    0
    okis gracias voi a mirar por Google aver que tal
    Citar  
     

  4. #4 Scanner 
    Iniciado
    Fecha de ingreso
    Jun 2003
    Ubicación
    Venezuela
    Mensajes
    22
    Descargas
    0
    Uploads
    0
    No se exactamente lo que quieres hacer (o scannear) pero aqui te pongo un codigo, bueno parte de el haber si te ayuda...

    Dim dtstart As Variant 'Para el PortSanner
    Dim iSecs As Integer 'Para el PortSanner
    Dim xPortArray(100) As Long 'Para el PortSanner

    'Rutina para el escaneo de puertos TCP
    Private Sub PortScan()
    'Para evitar algun error
    prg.Visible = True
    List2.Enabled = False
    cmdCerrar.Enabled = False
    cmdPortScan.Enabled = False
    txtIP.Enabled = False
    txtPuerto.Enabled = False
    Dim conteo As Variant 'valor para la progressbar

    'Puertos que serán escaneados
    'xPortArray(Index)es la variable indexada = al Num. de puerto
    xPortArray(1) = 139 'Típico del Bios. nbsession
    xPortArray(2) = 80 'Tipico de coneccion a Internet
    xPortArray(3) = 5000
    xPortArray(4) = 12345 'Usado por algunos troyanos como el BackOriffice
    xPortArray(5) = 8080
    xPortArray(6) = 11831
    xPortArray(7) = 23 'Conección TelNet
    xPortArray(8) = 90
    xPortArray(9) = 119 'Network news transfer
    xPortArray(10) = 129
    xPortArray(11) = 1234 'Usado por algunos troyanos como el BackOriffice
    xPortArray(12) = 24
    xPortArray(13) = 5555
    xPortArray(14) = 6712
    xPortArray(15) = 6713
    xPortArray(16) = 6776
    xPortArray(17) = 7000
    xPortArray(18) = 7300
    xPortArray(19) = 7597
    xPortArray(20) = 1001
    xPortArray(21) = 1002
    xPortArray(22) = 123 'Protocolo de tiempo de red
    xPortArray(23) = 37 'Timserver
    xPortArray(24) = 43 'Nickname. whois Informacion sobre la red objetivo
    xPortArray(25) = 101 'hostname
    xPortArray(26) = 21 'FTP transfer
    xPortArray(27) = 42 'name server HostName Server
    xPortArray(28) = 49 'tacacs LoginHostProtocol(TACACS) re-mail-ck RemoteMailCheckingProtocol
    xPortArray(29) = 53 'whois++
    xPortArray(30) = 70 'finger info de los user
    xPortArray(31) = 513 'who?..dice quien esta
    xPortArray(32) = 666
    xPortArray(33) = 23456
    xPortArray(34) = 53001
    xPortArray(35) = 54320
    xPortArray(36) = 54321
    xPortArray(37) = 61466
    xPortArray(38) = 65000

    Socket.Close 'Cerrar el control Winsock para evitar errores
    On Error GoTo Err
    For k = 0 To 100
    If xPortArray(k) <> 0 Then
    Socket.RemoteHost = txtIP
    Socket.RemotePort = xPortArray(k)
    Socket.Connect
    dtstart = Now
    'Comienza la diversión
    'Si el estado del Winsock es diferente de 7
    'se cumplirá la rutina
    Do While Socket.State <> 7
    On Error GoTo Err 'Puede dar error si el proceso
    'exede el máximo del progressbar
    DoEvents
    iSecs = DateDiff("s", Now, dtstart)
    'El slider es solo para comparar los sockets
    'que se abrirán. No más de 200! ya que generá un error
    'el winsock de Win9x,ME no soporta más de 200 sockets
    'abiertos al mismo tiempo.
    If Abs(iSecs * 360) > frmScan.Slider1.Value Then
    txtConteo.Visible = True
    txtConteo.Caption = "Puerto actual: " & xPortArray(k)
    conteo = conteo + 3
    prg.Value = conteo
    Exit Do
    End If
    Loop
    Socket.Close ' Volvemos a cerrar el control Winsock
    End If
    Next k
    txtConteo.Visible = False
    prg.Visible = False
    List2.Enabled = True
    cmdCerrar.Enabled = True
    cmdPortScan.Enabled = True
    txtIP.Enabled = True
    cmdConectar.Enabled = True
    txtPuerto.Enabled = True
    Err:
    If Err.Number = 380 Then Resume Next
    If Err <> 0 Then MsgBox "Error número: " & Err.Number _
    & vbCrLf & "Descripción: " & Err.Description, vbCritical, "Scanner"
    Err = 0
    End Sub

    Private Sub cmdCerrar_Click()
    Me.Hide
    Unload Me
    End Sub

    Private Sub cmdPortScan_Click()
    If txtIP.Text = "" Then
    MsgBox "Debes especificar una ruta IP cabrón!", , "Alerta!"
    txtIP.Text = Socket.LocalIP
    txtIP.SetFocus
    Else
    PortScan
    End If
    End Sub

    Private Sub Form_Load()
    txtIP.Text = Socket.LocalIP
    End Sub

    Private Sub Socket_Connect()
    'Si encuentra un puerto abierto lo agrega a la lista
    List2.AddItem Socket.RemotePort & " TCP"
    End Sub

    Private Sub cmdConectar_Click()
    frmScan.Caption = "Conectando con " & txtIP.Text
    If txtPuerto.Text = "" Then
    MsgBox "Debes seleccionar un puerto", vbCritical, "Alerta"
    frmScan.Caption = "Scan de puertos"
    Else
    If txtIP.Text = "" Then
    MsgBox "Debes seleccionar una ruta IP", vbCritical, "Alerta"
    frmScan.Caption = "Scan de puertos"
    Else
    Socket.RemoteHost = txtIP.Text
    Socket.RemotePort = txtPuerto.Text
    Socket.Connect
    frmScan.Caption = "Conectado...!"
    End If
    End If
    End Sub

    Es bastante sencillo, pero quizas una idea te de....suerte
    Los iniciados son personas que ingresan a un solitario y sacrificado sendero de perfección. La iniciación es una apertura mental que capacita a la recepción del conocimiento trascendente
    Citar  
     

  5. #5  
    Moderador HH
    Fecha de ingreso
    Apr 2002
    Ubicación
    En el Kernel
    Mensajes
    672
    Descargas
    0
    Uploads
    0
    Juer te aorras poniendo un for para que escanee un rango de puertos y no tener que poner todos los puertos a mano.
    #ﺄתּ©ﺈﻥdз <rﻩﻩt.ﮔ>
    Citar  
     

  6. #6  
    Administrador Foros HH
    Fecha de ingreso
    Mar 2002
    Ubicación
    Cambiando pañales!!
    Mensajes
    3.051
    Descargas
    5
    Uploads
    0
    Si, pero de algun sitio tienes que sacar los puertos. yo la haría de un fichero plano, así sería actualizable 100%
    Citar  
     

  7. #7  
    Moderador HH
    Fecha de ingreso
    Apr 2002
    Ubicación
    En el Kernel
    Mensajes
    672
    Descargas
    0
    Uploads
    0
    Tengo por hay un escaner de puertos en C, que lee un fichero de configuración donde se lee el puerto y un comentario sobre el puerto.
    Te bajas una lista de cualquier lado con todos los puertos y comentarios sobre este mismo y rula dpm.
    #ﺄתּ©ﺈﻥdз <rﻩﻩt.ﮔ>
    Citar  
     

Temas similares

  1. Respuestas: 0
    Último mensaje: 09-11-2013, 16:19
  2. Ayuda crear LAN dos ordenadores con vista
    Por Oscarina en el foro WINDOWS
    Respuestas: 1
    Último mensaje: 18-05-2010, 12:35
  3. Crear id. 0501 para premier
    Por yijaff en el foro TELEVISION
    Respuestas: 0
    Último mensaje: 10-06-2007, 17:18
  4. Necesito ayuda para crear una cuenta
    Por lado en el foro REDES Y TECNOLOGIAS WIRELESS
    Respuestas: 1
    Último mensaje: 09-05-2006, 11:37
  5. ayuda no se crear hex
    Por dolorita en el foro TV CABLE
    Respuestas: 6
    Último mensaje: 11-05-2005, 22:07

Marcadores

Marcadores

Permisos de publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •