Componentes necessários:

Edit1=Vazio;
Button1=Gerar senha;

• Download GeradorDeSenhaLazarus
• Enviar nova versão

Esconder código-fonte

var
i:integer;
const
str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ@!#$%&*';
max=14;
begin
Edit1.Text:='';
for i:=1 to max do
begin
Edit1.Text:=Edit1.Text+str[random(length(str))+1];
end;

Morse

Security Pwd

Criptografador feito no Lazarus (Delphi 7 para Linux)

Gerador de Senha feito no Lazarus (Delphi 7 para Linux)

Crivo de Eratóstenes Simples em Ada 95

Nenhum comentário foi encontrado.