var
i:integer;
const
str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ@!#$%&*';
max=14;
begin
Edit1.Text:='';
for i:=1 to max do
begin
Edit1.Text:=Edit1.Text+str[random(length(str))+1];
end;
ChaveirinhoD...
Veterano
Registrado
612 Mensagens
122 Curtidas
(Código fonte)Gerador de senha (Delphi/Lazarus)
#1 Por ChaveirinhoD...
16/12/2020 - 23:43