Скачать: CL | DM;

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

← →
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;


---

← →
isasa ©   (2006-06-17 15:44) [6]

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

---

← →
GanibalLector ©   (2006-06-17 15:51) [7]

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

---

← →
Leonid Troyanovsky ©   (2006-06-17 16:03) [8]

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

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


2^128?

--
Regards, LVT.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c