Главная страницаОбратная связьКарта сайта

Как сгенерировать случайный пароль

Чем хакер отличается от юзера? Хакер подбирает пароль с третьего раза, а юзер набирает с пятого.

Вам понадобилось, чтобы Ваше приложение само создавало пароли ? Возможно данный способ Вам пригодится. Всё очень просто: пароль создаётся из символов, выбираемых случайным образом из таблицы.

Пароль создаётся из символов, содержащихся в таблице.

Внимание:

Длина пароля должна быть меньше, чем длина таблицы!

Запускаем генератор случайных чисел (только при старте приложения).


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                     // цикл для создания K символов
  begin
    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);
var
  cPwd: string;
begin
  // вызываем функцию генерации пароля из 30 символов
  cPwd := RandomPwd(30);
  // ...
end;


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Как сгенерировать случайный пароль", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info