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
