Início![[Delphi7] Gerador De Senha Barra211](https://i.servimg.com/u/f20/16/20/84/05/barra211.png){kind=small}
![[Delphi7] Gerador De Senha Barra10](https://i.servimg.com/u/f20/16/20/84/05/barra10.png){kind=small}
![[Delphi7] Gerador De Senha Barra310](https://i.servimg.com/u/f20/16/20/84/05/barra310.png){kind=small}
![[Delphi7] Gerador De Senha Para-link-forum](https://lh6.googleusercontent.com/_2Cc7CaheF_o/TdBp9c7U5II/AAAAAAAAAUM/icma-tGbZU0/para-link-forum.gif)
Mensagens
Pixels
Localização![[Delphi7] Gerador De Senha Empty](https://2img.net/i/empty.gif)
por Lucas Sáb maio 14, 2011 7:14 pmGerador de Senha
Adicione na Form:
- 1 Edit [palheta Standard]
- 1 Button [ idem ']
De 2 clicks no button, apague tudo e coloque:
max=10; é o numero de letras na senha gerada.
Abraços !
Adicione na Form:
- 1 Edit [palheta Standard]
- 1 Button [ idem ']
De 2 clicks no button, apague tudo e coloque:
- Código:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
const
str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';
max=10;
begin
Randomize;
Edit1.Text:='';
for i:=1 to max do
begin
Edit1.Text:=Edit1.Text+str[random(length(str))+1];
end;
end.
max=10; é o numero de letras na senha gerada.
Abraços !
Idade
» (Jogo) O que te lembra esta palavra ?
» Proximos bonecos do Grand chase (Idéia)
» Ola pessoal!!!
» Sign Warcraft avaliem
» Criando Asa level 3
» Entrega para BRUNO ;)
» Estudos Gerais
» Jogo do 1 até 2000