Este é um bom exemplo de gerador de senha forte. Basta enviar como parâmetro o tamanho da senha desejada. Aqui está demonstrado seu uso em Delphi, mas não haverá dificuldades em adaptá-la para outras linguagens.

function TfrmPrincipal.GeraChave(Tamanho: integer): String;
var
  I: Integer;
  Chave: String;
const
  str = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789';
begin
  Chave := '';
  for I := 1 to Tamanho do
    Chave := Chave + str[random(length(str)) + 1];
  Result := Chave;
end;

 

 

Anúncios