Брутфорс (полный перебор)

[Tronix]

Нужен алгоритм переборки набора букв с заданным алфавитом и заданным максимальным размером пароля. Ну, например алфавит: "abc", максимальный размер пароля - 5 букв. При этом, начинаются генерироваться пароли с одного символа, потом два, потом 3 и так до 5 символьных.

Если брать вышеупомянутые данные то мы должны получить такой набор паролей примерно:
a
b
c
aa
ba
ca
ab
bb
cb
ac
bc
cc
aaa
baa
caa
aba
bba
cba
aca
bca
cca
aab
bab
cab
abb
bbb
cbb

ну и так далее. Желательно обойтись без рекурсии, потому что каждый сгенерированый пароль отдается другому большому куску программы на обработку. Хотя можно и с рекурсией, как нибудь выкручусь. Я что-то туплю вообще похоже ((

[Tayfun]

С алгоритмом думаю разберешься и модернизируешь для себя!

program bruter_modern;
uses crt;
const
s='1234567890qwertyuiopasdfghjklzxcvbnm!@#$%^&*()_+|-=\/.,:;'; {57}
n=11;
var
   m:array[1..n-1] of shortint;
   l,i:byte;
   t,j:longint;
   ss:string;
   f:text;
begin
   clrscr;
   write('Dline->');
   readln(l);
   t:=0; j:=0; ss:='';
   m[1]:=-1;
   str(j,ss);
   assign(f,'file'+ss+'.txt');
   rewrite(f);
   if l>10 then l:=10;
   writeln('poehali');
      while m[l+1]=0 do begin
         m[1]:=m[1]+1;
         t:=t+1;
         for i:=1 to l do
            if m[i]>56 then begin
               m[i]:=m[i]-57;
               m[i+1]:=m[i+1]+1;
            end;
         if t>1000000 then begin
            t:=0;
            j:=j+1;
            writeln('Kombinaciy->',j,'*',1000000);
            str(j,ss);
            close(f);
            assign(f,'file'+ss+'.txt');
            rewrite(f);
         end else begin
            for i:=1 to l do
               write(f,copy(s,m[i]+1,1));
            writeln(f);
         end;
      end;
   close(f);
   if j=0 then writeln('Kombinaciy->',t);
   writeln('Rebota sdelana');
   readkey;
end.

[Tronix]

Спасибо. Жестокий алгоритм Будем разбираться.

[eoln]

А есть ещё такое http://programmersforum.ru/showthread.php?t=26509

[Tronix]

Спасибо, это уже видел. Все-таки наверное свое напишу, как додумаю.

[ex.cluz]

Комбинаторика в помощь

[DomiNick]

http://wasm.ru/article.php?article=cycle_pwd

[Tronix]

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

http://wasm.ru/article.php?article=cycle_pwd

Зачет! То, что нужно!

[Tronix]

Адово быстро молотит ваще, супер. Спасибо отцам с wasm'а. Если кому-то понадобится вдруг - вот, перевел на паскаль.

Const
      Alphabet : String = 'abcdefghijklmnopqrstuvwxyz'; // задаем алфавит
Var
      szAlphabet : Array [0..255] of Char;
      szPassword : Array [0..255] of Char;      // текущий паpоль
      bAlphabet  : Array [0..255] of Char;      // таблица
      i,k : Byte;
Begin
      // пpеабазуем в массив байт
      For i := 1 to Length(Alphabet) do szAlphabet[i-1] := Alphabet[i];
      // сгенеpим таблицу
      i := 0;
      k := 0;
      repeat
        bAlphabet[k] := szAlphabet[i];
        if szAlphabet[i] = chr(0) then
            break;
        k := Ord(szAlphabet[i]);
        Inc(i);
      until false;
      // главный цикл
      repeat
            asm
                  pushad
                  mov edi,offset szPassword
                  mov ebx,offset bAlphabet
            @L1:  movzx eax,byte ptr [edi]
                  xlat
                  cmp al,0
                  je @L3
                  mov [edi],al
                  jmp @L5

            @L3:  xlat
                  stosb
                  jmp @L1

            @L5:  popad
            end;
            // печать каждого паpоля
            i := 0;
            repeat
               write(szPassword[i]);
               inc(i);
            until Ord(szPassword[i]) = 0;
            writeln;
      until false;
End.