Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 174

•  TDictionary Custom Sort  6 234

•  Fast Watermark Sources  6 037

•  3D Designer  8 936

•  Sik Screen Capture  6 361

•  Patch Maker  6 784

•  Айболит (remote control)  6 764

•  ListBox Drag & Drop  5 640

•  Доска для игры Реверси  96 259

•  Графические эффекты  6 983

•  Рисование по маске  6 263

•  Перетаскивание изображений  5 158

•  Canvas Drawing  5 530

•  Рисование Луны  5 230

•  Поворот изображения  4 777

•  Рисование стержней  3 378

•  Paint on Shape  2 634

•  Генератор кроссвордов  3 520

•  Головоломка Paletto  2 810

•  Теорема Монжа об окружностях  3 621

•  Пазл Numbrix  2 368

•  Заборы и коммивояжеры  3 048

•  Игра HIP  2 005

•  Игра Go (Го)  1 931

•  Симулятор лифта  2 290

•  Программа укладки плитки  1 993

•  Генератор лабиринта  2 445

•  Проверка числового ввода  2 129

•  HEX View  2 463

•  Физический маятник  2 082

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

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



Автор: Kurt Mueller

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

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

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

Внимание:

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

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


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;








Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте