Fuerza bruta

[vivachapas]

vi muchos programas en vb de fuerza bruta.. pero nucna los entendi bien.. y me parecian muy complicados para algo q parecia muy sencillo... asi q hice el mio propio... pense q seria muy lento... xq el codigo creo q es realmente sencillo... muy repetitivo nomas.. xD pero de todos los q probe fue el mas rapido excepto x uno.. q es realmente rapido :S

se lo dejo para q opinen:

Código [Seleccionar] Expandir

Dim Comprobar As String, X As Long
Dim N As Byte, L As Byte, O As Byte, J As Byte

Private Sub Command1_Click()
For L = 32 To 128
    Comprobar = Chr(L)
    Text2.Text = Comprobar
    Text2.Refresh
    If Text1.Text = Comprobar Then
    MsgBox "Listo " & Chr(L)
    Exit Sub
    End If
Next L
L = 0

For L = 32 To 128
    For N = 32 To 128
        Comprobar = Chr(L) & Chr(N)
        Text2.Text = Comprobar
        Text2.Refresh
        If Text1.Text = Comprobar Then
        MsgBox "Listo " & Chr(L) & Chr(N)
        Exit Sub
        End If
    Next N
Next L
L = 0
N = 0
For L = 32 To 128
    For N = 32 To 128
        For O = 32 To 128
            Comprobar = Chr(L) & Chr(N) & Chr(O)
            Text2.Text = Comprobar
            Text2.Refresh
            If Text1.Text = Comprobar Then
            MsgBox "Listo " & Chr(L) & Chr(N) & Chr(O)
            Exit Sub
            End If
        Next O
    Next N
Next L
L = 0
N = 0
O = 0

For L = 32 To 128
    For N = 32 To 128
        For O = 32 To 128
            For J = 32 To 128
                Comprobar = Chr(L) & Chr(N) & Chr(O) & Chr(J)
                Text2.Text = Comprobar
                Text2.Refresh
                If Text1.Text = Comprobar Then
                MsgBox "Listo " & Chr(L) & Chr(N) & Chr(O) & Chr(J)
                Exit Sub
                End If
            Next J
        Next O
    Next N
Next L

MsgBox "no se encontro"
End Sub


SALUDOS

[Sai-To]

disculpa una pregutna, por ejemplo si yo quiero hacer un programa como el brute force este tiene que poder escribir donde se pone el User y Pass como haces eso??

Me gusta tu programa!

[vivachapas]

Código [Seleccionar] Expandir

AppActivate "nombre de la ventana"
SsendKeys comprobar

añades eso para q envie todos los resultados a la ventana donde quieres ingresar los datos...
pero ojo... tb tendrias q añadir algun timer o algo para q le de tiempo de verificar si es la contraseña correcta...

SALUDOS

[Sai-To]

jeje bueno disculpa pero me surgieron 2 duditas!

1- Por ejemplo si en la ventana no se quita el user como lo limpio usando el .refresh

2- como puedo saber el nombre de la ventana?

[vivachapas]

mmm yo tb te hago una pregunta... en donde lo pensas usar??

1- Por ejemplo si en la ventana no se quita el user como lo limpio usando el .refresh

para q queres sacar el user?

2- como puedo saber el nombre de la ventana?

el nombre aparece arriba

[Sai-To]

mmm yo tb te hago una pregunta... en donde lo pensas usar??


Citar
1- Por ejemplo si en la ventana no se quita el user como lo limpio usando el .refresh


para q queres sacar el user?


Citar
2- como puedo saber el nombre de la ventana?

el nombre aparece arriba

digo el user como ejemplo, osea como hago para limpiar el lugar donde se pone el user y la contraseña osea que eso tiene puesto:

USER:  CARLOS
PASS:  ******

como lo limpio desde VB?
eso es lo que necesito!XD

[vivachapas]

es q no se de q programa... x ejemplo si es del msn (primero q no te va a servir este programa) segundo seria enviando con el SendKeys la pulsasion de la tecla de borrar.. buscala en google de memoria no me la se...
busca asi sendkeys "{enter}" y seguro aparecen las otras

[Sai-To]

ahh ok bueno disculpame! por ejemplo ejemplo una pagina porno? disculpa que te fastidie tanto

[vivachapas]

http://javascripts.astalaweb.com/Ayuda/html/wsmthsendkeys.asp

como ya te dije enviando pulsasiones de la tecla borrar mira ese link... estan todos los sendkeys

[CamaleonB]

O sin enviar la tecla borrar es simplemente reemplazarlo con "" y ya esta..

saku2