Генератор слов!создание вопросы .

[Zeraim]

Не проще разбить на несколько тхт ? С ограничением по 500 строчек допустим, чтобы чтение быстро происходило.

[Garfunkel]

Для генерации паролей используют файлы со словарями (список заранее подготовленных слов). А если ты хочешь перебирать все возможные (даже несуществующий набор символов) ето уже Brute. Зачем тогда выводить куда бы то ни было этот список? Сразу создавай пароли в run-time и все.

[crystalbit]

Сообщение от Sasha_Smirnov

Вот вам 32³ = 32768 трёхбуквенных слов. Если кнопки-запускалки не видно — смотрите мой предыдущий пост.

Sub Generation0()
Dim FirstLetter, SecondLetter, ThirdLetter

MsgBox "Печатаю все буквосочетания. Выход - Ctrl + Break."

With Selection

For FirstLetter = Asc("а") To Asc("я")
    For SecondLetter = Asc("а") To Asc("я")
        For ThirdLetter = Asc("а") To Asc("я")
'        .TypeParagraph'
        .TypeText vbTab
        .TypeText Chr(FirstLetter) & Chr(SecondLetter) & Chr(ThirdLetter)
        Next
    Next
Next

End With

End Sub

так неинтересно, такие вещи надо делать рекурсией, одними циклами тупо, особенно когда неизвестно сколько символов надо, то есть ввод в том же рантайме
здесь я описал сам процесс, исходник там же, во второй части

[kzmd]

Доброго Времени суток уважаемые программисты )!!!!
Очень нужна помощь по модернизации данного генератора сам справиться не могу
Если кто то сможет помочь буду как всегда очень признателен ..
Смысл в том что ,печатало цифры в диапазоне с 0-9 . Так же все возможные комбинации 0000000001, 0000000002,0000000003, ну и т.д.
Спасибо всем кто ответит !

[evg_m]

for k:=10000000001 to 19999999999 do
  s:=copy(inttostr(j),2,10);

[artemavd]

Темы обсуждения взлома запрещены на данном тематическом. Во всех его проявлениях. Тем более автор темы даже не пытается самостоятельно делать, а хочет получить готовый, по частям, брут. Закрыто на основании вышеизложенного.