[Delphi7] Gerador De Senha

Gerador de Senha

Adicione na Form:
- 1 Edit [palheta Standard]
- 1 Button [ idem ']

De 2 clicks no button, apague tudo e coloque:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
const
str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';
max=10;
begin
Randomize;
Edit1.Text:='';
for i:=1 to max do
begin
Edit1.Text:=Edit1.Text+str[random(length(str))+1];
end;
end;

end.




max=10; é o numero de letras na senha gerada.

Abraços !