Tutorial criando um Gerador De Senhas

['Lenneth 487]

Como criar um Gerador de senhas pelo delphi.

 

Vamos la...

 

Primeiramente adicione em sua **** um Edit e um Buttom

 

Agora coloque em "var"

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Logo ficara assim

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

max=7 : quantidade de caracteres que seram gerados(lembrando você pode aumentar o numero como também diminuir fica a sua escolha).

 

Agora no Buttom você adiciona

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Bom é isso até mais.

Creditos Before123

[iMelo~' 15]

ja vi tanto man que hoje nem acredito mais nisso kkk , porém obrigado por compartilhar mas entre nois , eu nao acredito nisso nao.

[JoaoTms- 0]

Cria um Edit e um Button

 

No button declara

 

procedure TForm1.Button1Click(Sender: TObject);

var

i: integer;

const

str = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890';

max = 12;

begin

Edit1.Text := '';

Randomize;

for i := 1 to max do

Edit1.Text := Edit1.Text + str[random(length(str))+1];

end;

 

Espero ter ajudado =]

[Lf' 6]

Caro JoaoTms-,

 

Evite comentar em tópicos cujo último post tem mais de 15 dias.

 

Isso traz tópicos velhos de volta a primeira página,desorganizando a área.

 

Qualquer dúvida sobre as regras gerais do fórum, leia:

 

• Regras WebCheats
  

 

 

Tópico Trancado