Форум: "Потрепаться";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];
Вниз
Не могу решить проблему... Найти похожие ветки
← →
Delpher_Gray (2003-04-03 15:02) [0]Админы !! Пожалуйста не удаляйте эту тему, т.к эта прога будет не брутворсер для перебора пароля, так что отнеситесь к этому с =)
Заранее благодарен !!
Уважаемые Delph"еры !!
Помогите с алгоритмом программы типа брутфорсера...
Есть строка например из 3-х букв: ABC, нужно из них перебрать все комбинации.
Что-то вроде:
A
B
C
AA
AB
AC
BA
BB
BC
CA
CB
CC
AAA
AAB
AAC
ABA
ABB
ABC
...........
Ну и так далее до бесконечности !
Я скока голову не ломал, не могу предумать алгоритм =(
← →
Delpher_Gray (2003-04-03 15:04) [1]
> Админы !! Пожалуйста не удаляйте эту тему, т.к эта прога
> будет не брутворсер для перебора пароля, так что отнеситесь
> к этому с =)
Млин очепятка =)) С пониманием !
← →
DVM (2003-04-03 15:06) [2]For ch:="a" to "z" do
For ch1:="a" to "z" do
For ch2:="a" to "z" do
begin
...
end;
← →
Delpher_Gray (2003-04-03 15:14) [3]to DVM:
Не... Нужно чтоб именно из строки, да бусконечно !! А так и я могу =))
← →
Palladin (2003-04-03 15:16) [4]а для чего будет эта прога?
← →
Delpher_Gray (2003-04-03 15:19) [5]to Palladin:
Это вообще не прога...
Я просто никак не пойму как это реализовать !!
Тренировка для мозгов !!
Мне ломать не чё не надо, т.к. тамими методами как брутфорс пол года переберать буду =)))
← →
Palladin (2003-04-03 15:29) [6]в прошлом я тебе ответил
что данная вещь получается при помощи увеличения на 1 n-ичного числа и представления его в виде символов...
вот и думай...
← →
DVM (2003-04-03 15:31) [7]
> Не... Нужно чтоб именно из строки, да бусконечно !! А так
> и я могу =))
Чего из строки?
For ch:="a" to "z" do
For ch1:="a" to "z" do
For ch2:="a" to "z" do
begin
str:=ch1+ch2+ch3
end;
← →
Zz_ (2003-04-03 15:32) [8]http://rualgo.narod.ru/algs/perest.htm
← →
DVM (2003-04-03 15:36) [9]Можно рекурсивно вызывать функцию, правда не бесконечно, но до длины строки на перебор которой понадобится вечность получится.
← →
Palladin (2003-04-03 15:44) [10]"вечность" :)
на планете "Земля" это довольно абстрактное понятие :)
← →
Wild Wizard (2003-04-03 15:55) [11]Вообще помойму такая задачка была на олимпиаде по алгоритмике году в 98....
Если ты знаешь буквы "алфавита", аспольземого в строке, то точно рекурсией, можно как-то по теории графов...очень мудрено...была у мя где-то статейка....(но могет я ошибаюсь?)
← →
Jel (2003-04-03 15:57) [12]Посмотри как сделано тут http://tdelphi.spb.ru/b01.php
Там есть исходник brutefoce-ра
← →
Pat (2003-04-03 17:16) [13]Мне тут недавно подсказали с подобной проблемой. Есть массив. Нужно найти сумму всевозможных произведений. Может быть поможет...
Вот функция нахождения суммы всевозможных произведений из k множителей
function SumProizv(mas:array of real;k:integer):real;
var
i,j,l: integer;
ind: array of integer;
mul:real;
begin
l:=Length(mas);
if k=l //k - количестсво множителей в каждом слагаемом
then
begin
result:=1;
for i:=0 to length(mas)-1 do
result:=result*mas[i];
exit
end;
result:=0;
SetLength(ind,l+1);
for i:=1 to l do
ind[i]:=i;
i:=k;
while i>0 do
begin
if (ind[i+1]-ind[i]) > 1
then inc(ind[i]);
while (ind[i+1]-ind[i]) > 1 do
begin
ind[i+1]:=ind[i]+1;
inc(i)
end;
while ind[i]<=L+i-k do
begin
mul:=1;
for j:=1 to k do
mul:=mul*mas[ind[j]-1];
result:=result+mul;
inc(ind[i])
end;
dec(ind[i]);
dec(i)
end;
ind:=nil;
end;
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.008 c
