Тема написана для новичков в программировании на Delphi.
Простейшая процедура генерации пароля:
procedure TForm1.Button1Click(Sender: TObject);
const
gen:array[0..5] of String=('1','2','a','B','/','*');//сюда вписывай любое кол-во символов
var
pass:String; //переменная, где будет храниться пароль
i:Integer; //счетчик для цикла
x:Integer; //длина пароля
begin
x:=7; //можешь указать любое значение например StrToInt(Edit1.Text)
for i:=0 to x do //шагов будет 8 т.к. 0 тоже значение
begin
pass:=pass+gen[Random(5)]; //записывем в "pass" случайное значение массива
end;
Edit1.Text:=pass;//отображаем полученный пароль в Edit1
end;
Незабудь записать:
procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
end;
________________
Все материалы исключительно для ознакомления. (Рад помочь!)
[Ссылки могут видеть только зарегистрированные пользователи. ]
gen:array[0..5] of String=('1','2','a','B','/','*');//сюда вписывай любое кол-во символов
+ надо указывать увеличивающуюся длину массива.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
pass:String; //переменная, где будет храниться пароль
i:Integer; //счетчик для цикла и длина пароля
begin
randomize;
i:=strtoint(edit2.text); //можешь указать любое значение длины пароля
for i:=0 to i do //шагов будет 8 т.к. 0 тоже значение
pass:=pass+edit1.text[random(length(edit1.text))]; //записывем в "pass" случайное значение из строки
Edit3.Text:=pass;//отображаем полученный пароль в Edit1
end;
Так выглядит более цивильно мне кажется.
В аттаче примерный внешний вид.
________________
Ни одно доброе дело не остается безнаказанным.