05.04.2010, 21:25
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
Провел на форуме:
188563
Репутация:
52
|
|
Сообщение от qwerty001
условие - подобрать пароль методом перебора символов. длину пароля не знаю. (: если не сложно подскажите как такое организовать.
1. В бесконечном цикле пробегать по ASCII отвечающий за буквы, цифры.
Код:
myChar := Chr(66); // Использование Char для конвертирования
Подробнее
2. Объявить в const базу пароля и по ней пробегать в цикле.
Вот пример как реализовывать через const:
PHP код:
const
m='qwertyuioplkjhgfdsa'; // база
Var
i,j:integer;
s,str:string;
begin
str:='';
for j:=1 to 15 do // кол-во символов*на базу
begin
for i:=1 to length(m) do
begin
s:=str+m[i];
memo1.Lines.Add(s); // что то делаем с генер, строкой
end;
str:=s;
end;
end;
P.s. но лучше сделать 1 циклом, например в While (i=255) do.
|
|
|