Форум: "Основная";
Текущий архив: 2003.10.30;
Скачать: [xml.tar.bz2];
Вниз
Перебор Найти похожие ветки
← →
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;
"Поиграй" с этим коддингом должно получиться.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.30;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c
