Hola a todos hace poco pregunte como se hacia un Bruteforce en vb6, obtuve diferentes metodos, pero Karcrack me dijo q lo intentara por mi mismo, y asi he hecho!!  :)Les presento mi code para convinar las letras minusculas del abcdario. estuve dandole vueltas, no se si es la forma optima de hacerlo (aunque funciona a la perfeccion), por eso os pido vuestra yuda para mejorarlo y de paso aprender.

Public Sub BruteForce()
 
    Dim D1, D2, D3, D4, D5, D6, D7, D8 As Integer
 
    D1 = 97: D2 = 97: D3 = 97: D4 = 97: D5 = 97: D6 = 97: D7 = 97: D8 = 97
 
    Open App.Path & "\midicionario.txt" For Output As #1
 
digito1:
 
    If D1 = 123 Then
        D1 = 97
        MsgBox "Combinaciones con un digito completadas", vbInformation
        GoTo digito2
    End If
    Print #1, Chr(D1)
    D1 = D1 + 1
    GoTo digito1
 
digito2:
 
    If D1 = 122 And D2 = 123 Then
        D1 = 97: D2 = 97
        MsgBox "Combinaciones con dos digitos completadas", vbInformation
        GoTo digito3
    ElseIf D2 = 123 Then
        D1 = D1 + 1
        D2 = 97
    End If
    Print #1, Chr(D1) & Chr(D2)
    D2 = D2 + 1
    GoTo digito2
 
digito3:
 
    If D1 = 122 And D2 = 122 And D3 = 123 Then
        D1 = 97: D2 = 97: D3 = 97
        MsgBox "Combinaciones con tres digitos completadas", vbInformation
        GoTo digito4
    ElseIf D2 = 122 And D3 = 123 Then
        D2 = 97: D3 = 97
        D1 = D1 + 1
    ElseIf D3 = 123 Then
        D2 = D2 + 1
        D3 = 97
    End If
    Print #1, Chr(D1) & Chr(D2) & Chr(D3)
    D3 = D3 + 1
    GoTo digito3
 
digito4:
 
    If D1 = 122 And D2 = 122 And D3 = 122 And D4 = 123 Then
        D1 = 97: D2 = 97: D3 = 97: D4 = 97
        MsgBox "Combinaciones con cuatro digitos completadas", vbInformation
        GoTo fin
    ElseIf D2 = 122 And D3 = 122 And D4 = 123 Then
        D2 = 97: D3 = 97: D4 = 97
        D1 = D1 + 1
    ElseIf D3 = 122 And D4 = 123 Then
        D3 = 97: D4 = 97
        D2 = D2 + 1
    ElseIf D4 = 123 Then
        D4 = 97
        D3 = D3 + 1
    End If
    Print #1, Chr(D1) & Chr(D2) & Chr(D3) & Chr(D4)
    D4 = D4 + 1
    GoTo digito4
 
fin:
 
    MsgBox "Fin", vbExclamation
    Close #1
 
End Sub
 

Si no entienden algo no uden en preguntar  

Garcias Karcrack

gracias por la crítika, me apliko el cuento Novlucker!!

Intenta entender esto y pruebalo (esta hecho en excel, así que puede que no funcione XD)

Private Sub GenerarDiccionario()
Dim chars As String
Dim charlist() As String
Dim length As Integer
 
Open app.Path & "\diccionario.txt" For Output As #1
 
chars = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
charlist = Split(chars, ",")
length = 4
 
Call Complete("", length, charlist)
Close #1
 
MsgBox "Proceso Terminado", vbInformation
End Sub
 
Public Sub Complete(ByVal strin As String, ByVal length As Integer, ByRef charlist() As String)
Dim z As Integer
 
For z = 0 To UBound(charlist())
word = strin & charlist(z)
 
If Len(word) = length Then
    Print #1, word
Else
    Call Complete(word, length, charlist)
End If
 
Next
 
End Sub

En este se usa una lista de caracteres, y length es la cantidad de caracteres objetivo para la "palabra", en el ejemplo son todas las palabras formadas por esos caracteres y 4 caracteres de largo.

Para probar todas las palabras de 1, 2, 3, 4, etc caracteres puedes simplemente meterlo en un bucle, aunque más sencillo es comparar a medida que van apareciendo, de modo de evitar que resulte redundante ya que en el proceso de generar una palabra de 4 letras por ejemplo, el código pasa por A, AA, AAA, AAAA y ahí llega hasta la primera de 4 caracteres, pero como se ve antes ha pasado por las otras 3.

Saludos

Gracias, esoy mastikando el code , mas adelante resumire el mio mas...

Salu2

Esta es una alternativa con 2 bucles:


Saludos!