| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

KLAUS ©   (2006-06-17 13:06:00) 

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

---

Leonid Troyanovsky   (2006-06-17 16:03:00) [1]

> GanibalLector ©   (17.06.06 15:51) [7]

> сабже. Так каков же предел???


2^128?

--
Regards, LVT.

---

GanibalLector   (2006-06-17 15:51:00) [2]

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

---

isasa   (2006-06-17 15:44:00) [3]

GanibalLector ©   (17.06.06 14:34) [5]
:)
Там не все ASCII символы, да и GUIDы могут неожиданно закончится.

---

GanibalLector   (2006-06-17 14:34:00) [4]


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;


---

Leonid Troyanovsky   (2006-06-17 13:45:00) [5]

> 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.

---

Gero   (2006-06-17 13:30:00) [6]

for, Random, Chr

---

Юрий Зотов   (2006-06-17 13:27:00) [7]

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

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

---

ЮЮ   (2006-06-17 13:19:00) [8]

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

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

---

Наверх