[UchusNaDelhi7]

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

Делаешь масив со всеми английскими буквами. Затем запускаешь два цикла один в другом и побуквенно перебираешь. Если тебе нужен пароль с 8 символов запускай 8 циклов. Это по моему самый просто вариант тупого перебора.

Спасибо большое еще раз , все гениальное - просто ! Сел с ручкой и листом А4 и писал программу , принцип очень простой как оказалось , написал для 9-значного " пароля " , отладил , все работает . А вот и код :

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
Abc : array [1..26] of char;
a,b,c,d,e,f,g,h,i: integer;
begin
 Abc[1]:='a';
 Abc[2]:='b';
 Abc[3]:='c';
 Abc[4]:='d';
 Abc[5]:='e';
 Abc[6]:='f';
 Abc[7]:='g';
 Abc[8]:='h';
 Abc[9]:='i';
 Abc[10]:='j';
 Abc[11]:='k';
 Abc[12]:='l';
 Abc[13]:='m';
 Abc[14]:='n';
 Abc[15]:='o';
 Abc[16]:='p';
 Abc[17]:='q';
 Abc[18]:='r';
 Abc[19]:='s';
 Abc[20]:='t';
 Abc[21]:='u';
 Abc[22]:='v';
 Abc[23]:='w';
 Abc[24]:='x';
 Abc[25]:='y';
 Abc[26]:='z';


 a:=0;
 While a<=25 do   // 1 цикл
 begin
 a:=a+1;
 b:=0;
  While b<=25 do   // 2 цикл
  begin
  b:=b+1;
  c:=0;
   While c<=25 do   // 3 цикл
   begin
   c:=c+1;
   d:=0;
    While d<=25 do   // 4 цикл
    begin
    d:=d+1;
    e:=0;
     While e<=25 do   // 5 цикл
     begin
     e:=e+1;
     f:=0;
      While f<=25 do   // 6 цикл
      begin
      f:=f+1;
      g:=0;
       While g<=25 do   // 7 цикл
       begin
       g:=g+1;
       h:=0;
        While h<=25 do   // 8 цикл
        begin
        h:=h+1;
        i:=0;
         While i<=25 do   // 9 цикл
         begin
         i:=i+1;

 Memo1.Lines.Add(Abc[a]+Abc[b]+Abc[c]+Abc[d]+Abc[e]+Abc[f]+Abc[g]+Abc[h]+Abc[i]);
         end
        end
       end
      end
     end
    end
   end
  end ;
 end;
end;

В Memo1 получается полный перебор букв Англ. алфавита ( правда по времени очень , очень долго , тем более для 9 знаков ) . Спасибо всем участникам форума за помощь !