Dicas - Gerador de Senhas

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (3)  (0)

Se você precisa gerar senhas automaticamente, utilize o Gerador de Senhas.

Gerador de Senhas

 

Se você precisa gerar senhas automaticamente, utilize o seguinte código:

 

function GeraSenha (aQuant: integer): string ;

var

  i: integer;

const

  str = '1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';

begin

  for i:= 1 to aQuant do

  begin

    Randomize;

    Result := Result + str[Random(Length(str))+1];

  end ;

end;

 

Para testar, adicione no formulário um Button e um Edit. No OnClick do botão, digite o seguinte código:

 

Edit1.Text := GeraSenha(5);

 

O número 5, indica a quantidade de caracteres que a senha deve possuir. Veja na Figura as senhas geradas pelo programa.

por Luciano Pimenta

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Ficou com alguma dúvida?