Нахождение слова полным перебором

[Никита2001]

Доброе время суток. Прошу помощи. Пусть мы написали слово состоящее из русских, английских букв и чисел. Можете посоветовать код, который найдет это слово методом полного перебора? (пример. Вводим слово "рв2gg". а на выходе "Искомое слово "рв2gg" найдено. Количество проверенных сочетаний n")

[Аватар]

Сначала определиться что такое слово. В тексте "abv 1abve" слово "abv" встечается 1 или 2 раза? Если 1, то какие разделители слов? Если 2 раза, то можно искать примерно так

  s1:='abv 1abve';  s2:='abv';
  Position:=1; Count:=0;
  while Position>0 do begin
    Position:=PosEx(s1,s2,Position);
    if Position>0 then begin
      Inc(Count);
      Inc(Position,Length(s2));
    end;
  end;

Код в браузере набросал, так что не обессудь )

[Serge_Bliznykov]

длина пароля, надеюсь, не большая?
Потому что, иначе, Вы не дождётесь.

то, что Вы хотите, в математике (комбинаторике) называется
Размещения с повторениями

даже если не различать прописные и строчные буквы, то получаем
алфавит: 33 русские + 26 латинских + 10 цифр = 69

число вариантов n^k, в данном случае 69^k,
где k-длина

т.е. для вашего примера, где k=5, число вариантов: 1564031349
дальше, как Вы понимаете, хуже.

что же касается непосредственно программы перебора вариантов.
То это несложно.
Тут уже всё упирается в эффективность применённого алгоритма и его реализацию (насколько это будет быстро).

так, навскидку, пример можете посмотреть в этой теме:
Перебор всех доступных значений!

Комбинаторика - нахождение всех возможных комбинаций

Сгенерировать все подмножества (Delphi)

.

[Никита2001]

Сообщение от Аватар

Сначала определиться что такое слово. В тексте "abv 1abve" слово "abv" встечается 1 или 2 раза? Если 1, то какие разделители слов? Если 2 раза, то можно искать примерно так

  s1:='abv 1abve';  s2:='abv';
  Position:=1; Count:=0;
  while Position>0 do begin
    Position:=PosEx(s1,s2,Position);
    if Position>0 then begin
      Inc(Count);
      Inc(Position,Length(s2));
    end;
  end;

Код в браузере набросал, так что не обессудь )

Спасибо что ответили быстро) Но тут поиск не в тексте. Тут даже так. Нам надо найти методом перебора букв (например английского алфавита) и цифр заданное слово.

[Serge_Bliznykov]

Сообщение от Никита2001

Тут даже так. Нам надо найти методом перебора букв (например английского алфавита) и цифр заданное слово.

я ответил Вам на этот вопрос.

[evg_m]

const //составим "словарик" 
  ALF ='0123...9ABC...Z'; //все интересующие нас символы

for j:=1 to length(ALF) do // и пройдем по словарику "перебор букв из СПИСКА"
  writeln(ALF[j]);

[Аватар]

Упс, и зачем код не с той оперы написал) Думаю в конце концов весь этот перебор сведется к банальной попытке взлома парольной защиты. А зачем еще такие переборы?

[evg_m]

readln(myword); //Вводим слово "рв2gg".
writeln( format('искомое слово "%s" найдено' , [myword]); // а на выходе "Искомое слово "рв2gg" найдено. 
writeln( format('количество проверок %d', [0]); //Количество проверенных сочетаний n")

в полном соответствии с ТЗ. если хотите другое уточняйте ТЗ.

[Никита2001]

Ах. Если бы взлом пароля. Тут все гораздо прозаичнее. Реализовать алгоритм полного перебора до заданного слова (анализ сколько по времени будет происходить перебор, сделать вывод почему надо использовать сложный пароль (исходя из заданного алфавита))

[Аватар]

n^k

Весь анализ - во сколько раз 5^33 будет больше 4^33, примерно во столько же раз дольше будет и генерация паролей проходить. Не считая еще попытки применить пароль