Прямой перебор

[burik]

Сдравствуйте уважаемые программисты!
У меня возникла следующая проблема:
Я делал программу, которая должна была выполнять прямой перебор паролей Access, но при этом реагировать на кнопку "Стоп" и прочее .
Вот как раз этого и неполучилось. И вообще при переборе пароля более двух символов прога виснет .

Подскажите пожалуйста, как с этим бороться?
Заранее благодарен!

[Amed]

Во-первых, прочитай http://bbs.vbstreets.ru/viewtopic.php?t=23315 и больше так не делай.
Во-вторых, подбирать чужие пароли плохо.
В-третьих, телепатией не владеем. Покажи, как пробуешь пароли.

[burik]

Во-первых, больше не буду.
Во-вторых, плохо, но необходимо.
В-третьих, вот код:

Код: Выделить всё

Sub pPerebor()
Dim S As String
'Перебор одного символа
For A = 32 To 255
    S = Chr(A)
    If prov(S) = True Then Exit Sub
    If fstop = True Then Exit Sub
Next A
'Перебор двух символов
For A = 32 To 255
    For B = 32 To 255
        S = Chr(A) & Chr(B)
        If prov(S) = True Then Exit Sub
        If fstop = True Then Exit Sub
    Next B
Next A
'Перебор трех символов (здесь прога виснуть начинает)
For A = 32 To 255
    For B = 32 To 255
        For C = 32 To 255
            S = Chr(A) & Chr(B) & Chr(C)
            If prov(S) = True Then Exit Sub
            If fstop = True Then Exit Sub
        Next C
    Next B
Next A
'Пребор четырех символов
For A = 32 To 255
    For B = 32 To 255
        For C = 32 To 255
            For D = 32 To 255
                S = Chr(A) & Chr(B) & Chr(C) & Chr(D)
                If prov(S) = True Then Exit Sub
                If fstop = True Then Exit Sub
            Next D
        Next C
    Next B
Next A
'Пока четырех хватит
End Sub


'Функция проверяющая правильность пароля
Function prov(pwd As String) As Boolean
On Error GoTo ErrT
Set db1 = DAO.OpenDatabase("", True, False, ";Database=" & frmMain.Text1.Text & ";pwd=" & pwd)
prov = True
MsgBox pwd
ErrT:
    If Err = 3031 Then prov = False
End Function

[Amed]

В самое начало prov() вставь DoEvents.

[burik]

Amed
Спасибо большое! Теперь все работает!