Delphi-Help

procedure TForm1.FormCreate(Sender: TObject);

begin

Randomize;

end;

function RandomPwd(PWLen: integer): string;

 // таблица символов, используемых в пароле

const StrTable: string =

 '!#$%&/()=?@<>|{[]}\*~+#;:.-_' +

 'ABCDEFGHIJKLMabcdefghijklm' +

 '0123456789' +

 'ДЦЬдцьЯ' + 'NOPQRSTUVWXYZnopqrstuvwxyz';

var

 N, K, X, Y: integer;

begin

 // проверяем максимальную длину пароля

 if (PWlen > Length(StrTable)) then K := Length(StrTable)-1

 else K := PWLen;SetLength(result, K);// устанавливаем длину конечной строки

 Y := Length(StrTable); // Длина Таблицы для внутреннего цикла

 N := 0; // начальное значение цикла

 while N < K do begin // цикл для создания K символов

  X := Random(Y) + 1; // берём следующий случайный символ

  // проверяем присутствие этого символа в конечной строке

  if (pos(StrTable[X], result) = 0) then begin

   inc(N); // символ не найден

   Result[N] :=StrTable[X]; // теперь его сохраняем

  end;

 end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

 // вызываем функцию генерации пароля из 30 символов

 label1.Caption :=  RandomPwd(30);

 // ...

end;