Генератор возможних вариантов

[Sm1Le]

К примеру у нас строка : ХХХХ

Где Х - это любой символ от А .. Z ( или любой другой предел )

Возможные варианты : AAAA,BAAA,CAAA,....,ABAA,BBAA,... я думаю достаточно понятно.

что то нужное я сделал, но код более чем кривой .... работает кое как... но при больших границах, ошибка ...

Задание : создать что то типа брутфорса, я в своей же проге шифрую текст и хочу взломать ...

если у кого то есть какие то статьи или литература прошу подсказать ...

[russian-stalker]

Там много интересностей:
http://www.google.ru/search?q=%D0%B1...client=firefox

[Sm1Le]

хммм Кинуть ссылку на сайт и я могу ...

Ты кинул ссылку на якобы исходники якобы какого то там брута, а мне надо генератор словаря(с заданим количеством символов и другими условиями ) для брута а не сам брут ...

[Пепел Феникса]

Возможные варианты : AAAA,BAAA,CAAA,....,ABAA,BBAA,... я думаю достаточно понятно.

и это словарный брут?


chr для получения символа из числа. этого достаточно.
просто продумать алгоритм.

[Sm1Le]

то как взять номер символа из Аски таблицы я знаю ...
Продумывал Продумывал и не смог продумать по тому и пришел сюдЫ ...

[DeKot]

Я че то не совсем понял задачу. Но вот Вам код , рандомно генерирующий 15 восьмизначных буквенно-цифровых слов.
Значения 15 и 8 можете изменить, впрочем как и диапазон
значений Char из таблицы символов.

var
  Form1: TForm1;
  passw: string;
  simb: char;
  i,j,sm_ps: byte;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Randomize;
  for i:= 1 to 15 do
  begin
    while (j < 8) do
    begin
      sm_ps:= random(90);
      if (sm_ps in [48..57]) or (sm_ps in [65..90]) then
      begin
        passw:= passw + chr(sm_ps);
        Inc(j);
      end;
    end;
    ListBox1.Items.Add(passw);// Вместо ListBox можно Memo,Edit и т.п.
    j:= 0;
    passw:= '';
  end;
end;

[Sm1Le]

Спасибо за код.

Сам виновен - не смог нормально спросить и не могут нормально ответить =)

мне надо генератор ВСЕХ возможных комбинаций символов в заданном диапазоне и заданной длины.

еще раз пример : Каждый символ может быть от А до Д, а длина 3 ---->
ААА,ААБ,ААВ,ААГ,ААД,АБА,АББ,АБВ,АБГ ,АБД .... и так далее до ДДД

[Serge_Bliznykov]

дык просто вложенные циклы!
щас код кину...

[Sm1Le]

Вложенный это да ... но вот если не известно длина строки .... к примеру 100 - ну буду ж я прописывать 100 вложенных циклов =)) я пробывал рекурсию ... но вышло не очень ...

[evg_m]

var
arind: array[0..100] of integer;
ind: integer;

ind:=100;
for j:=0 to 100 do
arind[j]:=1;//начальное состояние

while ind >=0 do//перебор состояний
begin
if arind[ind]<maxind then arind[ind]:=arind[ind]+1
else
begin
for jj:=ind to 100 do
arind[jj]:=1;
ind:=ind+1;
end;
end;