Nasciweb Fóruns

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes,
Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
TForm1 = class(TForm)
EditTamanho: TEdit;
ButtonGerar: TButton;
LabelResultado: TLabel;
Label1: TLabel;
procedure ButtonGerarClick(Sender: TObject);
private
function GerarSenha(Tamanho: Integer): string;
public
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.GerarSenha(Tamanho: Integer): string;
const
Caracteres = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789!@#$%^&*()_+-=';
var
i: Integer;
begin
Randomize;
Result := '';
for i := 1 to Tamanho do
Result := Result + Caracteres[Random(Length(Caracteres)) + 1];
end;

procedure TForm1.ButtonGerarClick(Sender: TObject);
var
Tamanho: Integer;
begin
if TryStrToInt(EditTamanho.Text, Tamanho) and (Tamanho > 0) then
LabelResultado.Caption := 'Senha gerada: ' + GerarSenha(Tamanho)
else
ShowMessage('Digite um tamanho válido para a senha!');
end;

end.


Como montar o formulário

Label1 → texto: Tamanho da senha:

EditTamanho → para digitar o tamanho da senha

ButtonGerar → texto: Gerar Senha

LabelResultado → para mostrar a senha gerada



Como funciona

O usuário digita o tamanho desejado da senha.

Clica no botão Gerar Senha.

O programa seleciona aleatoriamente caracteres de uma string contendo letras maiúsculas, minúsculas, números e símbolos.

Mostra a senha gerada no LabelResultado.