Перебор

← →
TSa (2003-10-20 00:33) [0]

Подскажите пожалуйста как лучше организовать простой перебор всех возможных значений для подбора паролья ? мароль ввожится в едит и нужно его подобрать ? (а принципе используется только лат. буквы и цифры) кинте строчку текста кто занимался спасибо !!

← →
SPIRIT (2003-10-20 00:54) [1]

сколько символов пароль ??
и строчкой тут не обойдешься .. как минимум 20-30 надо :))

← →
TSa (2003-10-20 01:04) [2]

пароль до 10 симловов !!!
(да какая разница)

> и строчкой тут не обойдешься .. как минимум 20-30 надо :))
ну я это образно может есть у кого помогите

← →
SPIRIT (2003-10-20 02:20) [3]

> пароль до 10 симловов !!!
> (да какая разница)

разница большая .. если кол-во сиволов в пароле фиксировано то задача невероятно упрощается ...

← →
Palladin (2003-10-20 02:26) [4]

> TSa © (20.10.03 01:04) [2]

смотри какая циферка 839299365868340224, это количество вариантов которые тебе нужно попробовать... как ты думаешь, доживешь хотябы до половины?

← →
Palladin (2003-10-20 02:30) [5]

да кстати, это количество вариантов из 10 символов учитывая большие и маленькие латинские символы и цифры, если еще приплюсовать пароли меньшей разрядности - получится 853058371866181866

← →
Anatoly Podgoretsky (2003-10-20 08:41) [6]

115 дет, если только 26+10 и подбирать по миллиону в секунду

← →
WihOut Any ... (2003-10-20 11:00) [7]

Зря вы так резко. Есть и другие алгоритмы. В частности программа xIntruder подбирает посимвольно (последовательно первый, второй и т.д. символы) не зная количества символов в пароле

← →
TSa (2003-10-21 10:45) [8]

Так что ? хорошо пароль до 5 символов !!!
помогите с кодом чуть чуть !!!

← →
REA (2003-10-21 10:49) [9]

Так тебе "паролью" или "мароль" подобрать?
А то оно по-разному "ввожится".

Лови строчку:

For i := 0 To 10000 Do

Дальше сам.

← →
Dementiy (2003-10-21 11:06) [10]

Пошукай в инете есть на эту тему статьи.
Этих умников которые выше понты колотили не слушай :)
function GetId(str: string; i: integer): string;
begin
if (str[i] >= "a") and (str[i] <= "y" ) then
str[i] := chr(ord(str[i]) + 1)
else
if i <> 1 then
begin
str[i] := "a";
str := GetId(str, i - 1);
end;
Result := str;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
aa: string;
i: integer;

begin
aa := "aaa";
for i := 1 to 10000 do
begin
Memo1.Lines.Add(aa);
aa := GetId(aa, 3);
end;

end;
"Поиграй" с этим коддингом должно получиться.

Перебор Найти похожие ветки