[Source] VB6 Bruteforce (mejorado)

[Psyke1]

Miren, este es el code q me he currado para hacerlo sin tnr q ir digito por digito:

Código (vb) [Seleccionar] Expandir


Private Sub Form_Load()

    Dim ABC() As String
    ABC = Split("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", "
")
    Call BF(App.Path & "\Dic.txt", ABC, 3)

End Sub

Public Function BF(DirPath As String, Chrptr() As String, Longitud%)

    Dim x%, FinChrptr As String, Finpalabra As String, Palabra As String
   
    FinChrptr = UBound(Chrptr())
    For x = 1 To Longitud: Finpalabra = Finpalabra + Chrptr(FinChrptr): Next
   
    ' MsgBox Finpalabra
   
    Open DirPath For Output As #1
   
   
    While Not Palabra = Finpalabra
   

    Wend
   
    Close #1
    MsgBox "¡Combinaciones completadas!", vbInformation, "VB6 Brute Force by *PsYkE1*"

End Function
Bien, donde me quede es aqui:

Código (vb) [Seleccionar] Expandir


    While Not Palabra = Finpalabra
   

    Wend
Es decir, mientras Palabra no sea igual a FinPalabra("zzz" en este caso) q haga el siguiente bucle, pero miren que le doy vueltas y no sabria seguir , me podrian echar una mano???

Gracias a to2!!