Sejam bem vindos ao nosso forum, onde havera hacks, utilitários tutoriais e dicas para diversos jogos, fique conosco e desfrute do melhor.

Criando Gerador de Senha

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Criando Gerador de Senha

Mensagem por Mr.Positive em Qua Jan 12, 2011 4:53 pm

Gerador de Senha

Adicione na Form:

- 1 Edit [palheta Standard]
- 1 Button [ idem ']

De 2 clicks no button, apague tudo e coloque:

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; é o numero de letras na senha gerada.

Abraços !

Mr.Positive
Membro
Membro

Mensagens : 40
Agradecimentos : 0
Data de inscrição : 12/01/2011
Idade : 21
Localização : Recreio
Humor : Feliz !
0 / 1000 / 100



Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Criando Gerador de Senha

Mensagem por Vidaama em Seg Fev 21, 2011 11:37 am

ctrl+c,ctrl+v
amigo...poste Ss para ajudar os membros a criarem os projetos

Vidaama
Bronze Member
Bronze Member

Mensagens : 152
Agradecimentos : 11
Data de inscrição : 13/02/2011
Idade : 19
15 / 10015 / 100



Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

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