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

Participe do fórum, é rápido e fácil

Sejam bem vindos ao nosso forum, onde havera hacks, utilitários tutoriais e dicas para diversos jogos, fique conosco e desfrute do melhor.
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Criando Gerador de Senha

2 participantes

Ir para baixo

Criando Gerador de Senha  Empty Criando Gerador de Senha

Mensagem por Mr.Positive 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
Mr.Positive
Membro
Membro

Mensagens : 40
Agradecimentos : 0
Data de inscrição : 12/01/2011
Idade : 29
Localização : Recreio
Humor : Feliz !
Criando Gerador de Senha  Left_bar_bleue0 / 1000 / 100Criando Gerador de Senha  Right_bar_bleue



Ir para o topo Ir para baixo

Criando Gerador de Senha  Empty Re: Criando Gerador de Senha

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

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

Mensagens : 152
Agradecimentos : 11
Data de inscrição : 13/02/2011
Idade : 27
Criando Gerador de Senha  Left_bar_bleue15 / 10015 / 100Criando Gerador de Senha  Right_bar_bleue



Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos