Генерация пароля

← →
KLAUS © (2006-06-17 13:06) [0]

Всем привет!
Нужно сгенерировать случайную строку, содержащую всю таблицу ASCII
, т.е. чтоб в неё входили и цифры и буквы (как заглавные так и остальные). ПОдскажите плиз как организовать всё это дело??

← →
ЮЮ © (2006-06-17 13:19) [1]

И непечатные символы? И длиной ровно 255 символов?

И какое отношение такой монстр имеет к subj-у?:

← →
Юрий Зотов © (2006-06-17 13:27) [2]

> ЮЮ © (17.06.06 13:19) [1]
> какое отношение такой монстр имеет к subj-у?:

Самое непосредственное. Это ДЕгенерация пароля.

← →
Gero © (2006-06-17 13:30) [3]

for, Random, Chr

← →
Leonid Troyanovsky © (2006-06-17 13:45) [4]

> KLAUS © (17.06.06 13:06)

> , т.е. чтоб в неё входили и цифры и буквы (как заглавные
> так и остальные).

function GenWord(const lenghword: Cardinal; const symbols: String): String; var i, lensym: Longint; begin Assert(symbols <> "", "Invalid symbols table"); lensym := Length(symbols); SetLength(Result, lenghword); for i := 1 to lenghword do Result[i] := symbols[1+ Random(lensym)]; end;

--
Regards, LVT.

← →
GanibalLector © (2006-06-17 14:34) [5]

procedure TForm1.ExecClick(Sender: TObject); // function GenGuid:String; var ID: TGUID; begin Result := ""; if CoCreateGuid(ID) = S_OK then Result := GUIDToString(ID); end; // begin ShowMessage(GenGuid); end;

> GUIDы могут неожиданно закончится
Кстати, а это интересно. Я не нашел никакой информации о сабже. Так каков же предел???

Генерация пароля Найти похожие ветки