Форум: "Основная";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Sergy   (2002-02-07 10:10) [2]

Я бы сделал так:

var
pass, str :string;
i:integer;
begin
str:="qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM1234567890";
Pass:="";
Randomize;
for i:=1 to 8 do
Pass:=Pass+copy(str,(RandomRange(1,Length(str))),1);
end;


---

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

Форум: "Основная";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c