[Delphi7] Criando um gerador de senha.

Ir em baixo

[Delphi7] Criando um gerador de senha.

Mensagem por marare em Sex Fev 04, 2011 9:44 pm

Criando um gerador de senha.


______________
Cria um Edit (aba Standard) e um Button (aba Standard).
Clique 2 vez no Button, apague tudo e coloque esse codigo:

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;

end.

max=10; = Caracteres que seram gerados, você pode trocar.
Agora aperte F9 e teste!
abraços

Creditos^^

Owner
avatar
marare
Membro
Membro

Mensagens : 147
Agradecimentos : 203
Data de inscrição : 29/12/2010
Idade : 20
Localização : Cheats Na Net

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: [Delphi7] Criando um gerador de senha.

Mensagem por -_LuCaS_- em Dom Fev 06, 2011 3:09 pm

Hum,Boa Ideia Criar um Gerador de Senhas,Tem Muita Gente Que Fica Indeciza Na Hora De Escolher Uma Senha(Eu Sou Um Exemplo Rs..)
avatar
-_LuCaS_-
Membro
Membro

Mensagens : 47
Agradecimentos : 5
Data de inscrição : 28/12/2010
Idade : 22

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum