[Delphi7]Gerador de senhas

[vinci327 2]

Olá,hoje eu vou ensinar a vocês a como criar um gerador de senhas,eu encontrei um video no Youtube e achei legal compartilhar com vocês.

 

Bom,vamos começar.

 

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

• Entre
• ou
• Cadastre-se

 

1-Organize do seu jeito.

2-Vamos por o código:

 

Apague o Begin e cole o código.

 

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

• Entre
• ou
• Cadastre-se

 

Resultado:

 

 

Obs:max=10; o 10 é o numero de caracteres que havera no Edit1

[Zaum 22]

Vc eskeceu de falar, que para esse codigo soh gera uma senha de 10 digitos para fazer com mais digitos modifique o numero em vermelho

 

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

• Entre
• ou
• Cadastre-se

 

Saiu com erro...merda codigo abaixo

 

 

var

i:integer;

const

str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';

max=10;

begin

Edit1.Text:='';

for i:=1 to max do

begin

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

end;

[vinci327 2]

Sim sim vou editar o post ^^

[Cash Override 0]

Simples mais funcional !