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

[kzmd]

Привет програмерам !
хотелось бы написать программку которая будет выводить на экран комбинации букв,вроде генератора паролей тока с выводом всех слов на экран .
Допустим в едите1 ввожу а-а,жму кнопку и выводится ааа,аба,ава,ага,и.т.д .
Если у кого то есть мысли поделитесь .

[Sasha_Smirnov]

Ну для трёхбуквенных комбинаций (33³ = 35937) сейчас наваяю.

А может, есть идеи насчёт правильного сочетания букв в слоги?

[kzmd]

В слоги конечно хорошо . а если для переборки паролей .???
Где могут попадаться любые символы .??

[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

В приложенном файле жмите кнопку с красными буквами бй
Либо альт-F8 — и двойной щелчок по имени программы: Generation0.

[kzmd]

По хорошему нужен ,просто словарь .с как можно большим объемом слов и разных вариантов перестановкой букв .

[Sasha_Smirnov]

Так я же и написал ПОЛНЫЙ русский словарь 3-буквенных слов!

Только там во внутреннем (3-м) цикле надо поменять "б" на "я".

Вот только насчёт "ё" я не подумал. Да и так уже больше 30 тысяч не пойми чего печатается!

[kzmd]

все что я смог увидеть .Макрос не найден возможно он отключен по соображению безопасности как запустить ?

[Sasha_Smirnov]

Ну вы могли бы увидеть больше. Там предлагается "включить это содержимое". Чтобы толково объснить — мне самому пришлось бы себе сделать "высокий уровень безопасности" и пройти все шаги. Но там, думаю, всё по-русски...

Сервис→Макрос→Безопасность→Низкий. Как-то так.

Или: Надстройки (Word 2007)→Макросы→Макрос→Безопасность→Н изкий?!..

[kzmd]

Ага ,словечек конечно моноговато .У меня есть фаил.txt с паролем и прога которая обращается к файлу.txt перебирая в нём все пароли ко входу и если находит, заходит .... всреднем 6 букв ... как быть ??

[Sasha_Smirnov]

Я не хакер...

Для 6 букв (да и буквы ли это?..) — это же как минимум 66 в 6-й степени вариантов! А с учётом пробелов и цифр — так и все 77 в 6-й!

208 422 380 089, ни много ни мало. Уж чего-чего, а печатать их точно не надо: не влезет никуда!