Creando un AdminFinder con Vb.Net

«Cabe destacar la sencillez pero no menos la utilidad.»

 

Veremos como crear un simple localizador de paneles administrativos con VB.NET

  1. Primero crearemos el proyecto
    Underc0de - AdminFinder imagen 1
  2. En el Form1 realizamos la siguente interfaz (respetando los nombres de los controles). Los txtPosiblesPaths y txtResultado tienen que ser multiline = true.
  3. Una vez listo el formulario y controles damos doble click a Button1 e insertamos el siguiente código dentro:
  'By 79137913 for http://underc0de.org
        Dim paths() As String = Split(txtPosiblesPaths.Text, vbNewLine) 'separamos los posibles path por linea
        txtResultado.Text = "" 'restablecemos el txtResultado
        For Each path In paths 'por cada linea en el cuadro de texto txtPosiblesPaths
            Try 'estructura para omitir errores
                'creamos solicitud web
                Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(txtDestino.Text & path)
                'obtenemos su respuesta
                Dim response As System.Net.HttpWebResponse = request.GetResponse()
                'convertimos la respuesta a un stream de datos
                Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
                'convertimos el stream en texto
                Dim sourcecode As String = sr.ReadToEnd()
                If InStr(LCase(sourcecode), "input") Then 'si la pagina obtenida contiene la etiqueta INPUT consideramos que es un admin panel
                    txtResultado.Text = txtResultado.Text & txtDestino.Text & path & vbNewLine 'agregamos una linea con el resultado satisfactorio al txtResultado
                    Me.Refresh() 'hacemos que el formulario se refresque para que se muestren los resultados
                End If
            Catch 'estructura para omitir errores
            End Try 'estructura para omitir errores
        Next
        MsgBox("Terminado!") 'avisamos que hemos terminado.

Quedando el código fuente de la siguiente manera:

    Public Class Form1
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            'By 79137913 for http://underc0de.org
            Dim paths() As String = Split(txtPosiblesPaths.Text, vbNewLine) 'separamos los posibles path por linea
            txtResultado.Text = "" 'restablecemos el txtResultado
            For Each path In paths 'por cada linea en el cuadro de texto txtPosiblesPaths
                Try 'estructura para omitir errores
                    'creamos solicitud web
                    Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(txtDestino.Text & path)
                    'obtenemos su respuesta
                    Dim response As System.Net.HttpWebResponse = request.GetResponse()
                    'convertimos la respuesta a un stream de datos
                    Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
                    'convertimos el stream en texto
                    Dim sourcecode As String = sr.ReadToEnd()
                    If InStr(LCase(sourcecode), "input") Then 'si la pagina obtenida contiene la etiqueta INPUT consideramos que es un admin panel
                        txtResultado.Text = txtResultado.Text & txtDestino.Text & path & vbNewLine 'agregamos una linea con el resultado satisfactorio al txtResultado
                        Me.Refresh() 'hacemos que el formulario se refresque para que se muestren los resultados
                    End If
                Catch 'estructura para omitir errores
                End Try 'estructura para omitir errores
            Next
            MsgBox("Terminado!") 'avisamos que hemos terminado.
        End Sub
    End Class

Al colocar todo el código queda iniciar (F5) y empezar a utilizarlo, colocamos en txtDestino la URL con http:// y con / al final , llenamos el txtPosiblesPaths con la lista de paths de admin que consigan (en el foro encontrarán una amplia lista) presionamos Button1 y la magia comienza:
Underc0de - AdminFinder Imagen final


Agradecemos a 79137913 por compartir éste Admin Finder en 3 simples pasos.

Posts Relacionados

Comments

comments

Deja una respuesta

Tu email no será publicado. Los campos requeridos estan marcados con *
Puedes usar tags HTML y los atributos: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>