[Rokuell]

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

Генерация на 4 символа (не самый длинный пароль) у меня заняла около 2 часов

Омг... Посмотрел на твой алгоритм:
Использование string ? Отсутствие буферизации ? Операции вывода непосредственно при генерации ?
Я не удивляюсь такому времени работы алгоритма...

Код:

program PassGen;

{$APPTYPE CONSOLE}

uses Windows;

type TByteArray = array of byte;

const CHF = 65; // CHar First - первый символ (соотв. коду символа 'A')
      CHL = 90; // CHar Last  - последний символ (соотв. коду символа 'Z')
      CHC = CHL-CHF+1; // CHar Count - кол-во символов (90-65+1=26)
      MPL = 4; // Max Password Length - максимальная длина пароля
      // для данного алгоритма допустимы значения MPL от 1 до 5

 procedure Generate(const N:Cardinal; P:Cardinal);
 var i:Integer;
     j:Cardinal;
     X:TByteArray;
 begin
  SetLength(X,N+1);
  for i:=0 to N-1 do X[i]:=CHF;
  X[N] := 13;
  j:=0;
  repeat
   CopyMemory(Pointer(P+(N+1)*j),@X[0],N+1);
   Inc(j);
   i:=N-1;
   while (i>=0)and(X[i]=CHL) do
    begin
     X[i]:=CHF;
     Dec(i)
    end;
   if i>=0 then inc(X[i]) else Break;
  until False;
  X := nil;
 end;

var i,TmpSize,Shift : Cardinal;
    Buff : Cardinal;
    BuffSize : Cardinal;
    //
    FileOut : THandle;
    FOPath : String;
    WriteCnt:Cardinal;

begin
 // Init

 BuffSize := 0;
 TmpSize := 1;
 for i:=1 to MPL do
  begin
   TmpSize := TmpSize * CHC;
   Inc(BuffSize,TmpSize * (i+1));
  end;

 Buff := GlobalAlloc(GMEM_FIXED,BuffSize);

 // Generate

 TmpSize := 1;
 Shift := 0;
 for i:=1 to MPL do
  begin
   Generate(i,Buff + Shift);
   TmpSize := TmpSize * CHC;
   Inc(Shift,TmpSize * (i+1));
  end;

 // Output

 FOPath := ParamStr(0) + '.output.txt';
 FileOut := CreateFile(PAnsiChar(FOPath),GENERIC_WRITE,0,nil,
            CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL+FILE_FLAG_WRITE_THROUGH,0);

 TmpSize := 1;
 Shift := 0;
 for i:=1 to MPL do
  begin
   TmpSize := TmpSize * CHC ;
   WriteFile(FileOut,Pointer(Buff + Shift)^,TmpSize * (i+1),WriteCnt,nil);
   Inc(Shift,TmpSize * (i+1));
  end;

 CloseHandle(FileOut);

 GlobalFree(Buff);
end.

Вот алгоритм, который может генерировать пароли с макс. длиной 5, алфавит - заглавные от 'A' до 'Z'

Для генерации паролей большей длины его надо немного переписать:
выделять буфер меньшей длины чем необходимо, и в процессе генерации заполнять его и сохранять на диск.
(Так как для всей комбинаций паролей с длиной 6, а их 26^6 = 308915776 , необходим буфер с размером
26^6 * 7 = 2162410432 - больше 2 Гб)

PS: Про скорость алгоритма - для генерации всех паролей с длиной от 1 до 5 потребовалось ~2 сек, размер результирующего файла ~70 Мб.