[UchusNaDelhi7]

Сообщение от Страдалецъ

Вот не нравятся мне такие решения. А если надо 3 или 12 символов проверять? Весь код переписывать на 12 циклов? Может так интереснее будет?

Код:

Const
  CharSet: String = 'abcdefghijklmnopqrstuvxwz';
procedure PassGen(Pass: String; Depth: Integer);
Var
  i: Integer;
begin
 for i := 1 to Length(CharSet)
 do begin
    Pass[Depth] := CharSet[i];
    if Depth < Length(Pass)
    then PassGen(Pass, Depth + 1)
    else Memo1.Lines.Add(Pass);
    end;
end;

begin
 PassGen('123456', 1);
end;

Спасибо за код , если можно поясните принцип работы . А на счет ждать : для 9-значного " пароля " время перебора составит примерно 32 года , для 12-значного около 1 505 615 лет ( это если 36 символов : Англ.буквы одного регистра и цифры ) .

[Страдалецъ]

Принцип очень простой. Используется рекурсия, т.е. вызов процедуры самой-себя. Для анализа работы рекомендую задать для CharSet значение '01' и вызвать процедуру так:
PassGen('00', 1);
и в режиме отладки пошагово посмотреть что происходит.

[Cheetos]

Если тупо лоб в лоб, то

Код:

procedure TForm1.Button1Click(Sender: TObject);
var s1,s2,s3,s4,s5,s6,s7,s8: char;
begin
for s1:='a' to 'z' do
  for s2:='a' to 'z' do
    for s3:='a' to 'z' do
      for s4:='a' to 'z' do
        for s5:='a' to 'z' do
          for s6:='a' to 'z' do
            for s7:='a' to 'z' do
              for s8:='a' to 'z' do
Memo1.Lines.Add(S1+S2+S3+S4+S5+S6+S7+S8);
end;

А реально имеетсмысл смотреть в сторону рекурсии

[Cheetos]

Пардон, не заметил

[UchusNaDelhi7]

Ознакомился с массивами , const ... Всем огромное спасибо !