Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

18th
Ноя

Генератор случайных чисел и англ. букв

Posted by Chas under Delphi, Исходники

Мне нужно чтобы программа генерировала случайные числа/англ буквы, общее количество символов «ключа» должно быть 32символа.

1234567890qwertyuiopasdfghjklzxcvbn m (только цифры и маленькие англ буквы). Также нужно самому указывать количество «ключей» для генерации в Edit1, как сделать такой генератор?

Serge_Bliznykov

const PassChar = '1234567890qwertyuiopasdfghjklzxcvbnm';

var

    LenPass : integer;

    sPass : string;

    i, passCharCount : integer;

begin

   Randomize;

   LenPass := 32; {длина пароля}

   passCharCount := Length(PassChar);
   sPass := '';
   for i:=1 to LenPass do

      sPass := sPass + PassChar[ Random(passCharCount)+1 ];
   ShowMessage('Полученный пароль: '+ sPass);

end;

BDA
киньте на форму 2 едита и 1 кнопку.

procedure TForm1.Button1Click(Sender: TObject);
const
PassChar = '1234567890qwertyuiopasdfghjklzxcvbnm';
var
LenPass: integer;
sPass: string;
i, passCharCount: integer;
begin
Randomize;
passCharCount := Length(PassChar);
sPass := Edit1.Text;
LenPass := 32 - Length(sPass);
if LenPass < 0 then exit; for i := 1 to LenPass do sPass := sPass + PassChar[Random(passCharCount) + 1]; Edit2.Text := sPass; end;[/code] Использование: Вставляете в edit1 неизменяемую часть строки; Нажимаете кнопку; Копируете из edit2 полученную строку. Вложения