|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Словарь как в брутфорсе
Ребята, привет.. Мне нужно сделать словарь, а именно *.txt файл и чтоб в нём был полный перебор букв.
Вообщем задача: Сгенерировать 5и значные символы от a-z и с использованием 0-9 Код:
aaaaa aaaab aaaac поможете? какбы допустим тоже самое с цифрами сделать ерунда... Код:
for i:=0 to 100000 do begin Memo1.Lines.Add(IntToStr(i)); end; Мне не нужен генератор, который будет рандомно мне выдовать пароли, а вот тупо от а до я сгенерировать. |
#2
|
|||
|
|||
Тупо генерируем текстовый файл:
Код:
procedure TForm1.Button1Click(Sender: TObject); var F : TextFile; A, B, C, D, E : Integer; begin AssignFile(F, 'dict.txt'); Rewrite(F); for E := Ord('a') to Ord('z') do for D := Ord('a') to Ord('z') do for C := Ord('a') to Ord('z') do for B := Ord('a') to Ord('z') do for A := Ord('a') to Ord('z') do WriteLn(F, Char(E)+Char(D)+Char(C)+Char(B)+Char(A)); CloseFile(F); end; Использование еще и цифр, код сложнее и файл получается больше на треть. Не забывайте делать резервные копии |