[Delphi] Gerador de Senhas Avançado

[~OwneR~ 8]

Antes de qualquer coisa eu sei que já tem outros tópicos sobre geradores de senha, mas eles são básicos, esse é um pouco mais avançado. Tava sem nada pra fazer então eu fiz esse gerador, ele é baseado no que o bidoow postou =D

 

Preview:

 

Primeiramente vamos precisar de: 2 GroupBox (opcional), 3 CheckBox, 2 Label, 2 Edit, 2 Button, 1 XPManifest (opcional).

 

1° Coloque os 3 CheckBox dentro do GroupBox1, e o resto (menos o XPManifest) no GroupBox2.

 

2° Renomeie (Text ou Caption não o Name) os componentes (são apenas sugestões)

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Dica: Coloque um & no início dos CheckBox e Button para fazer um atalho (ex: &Gerar, ao apertar G o botão será clicado).

 

3° Coloque True no Checked do CheckBox1 e 2

 

Agora vamos ao que interessa =D

 

Deixe o OnClick do Button1 assim:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Você pode alterar o ShowMessage para MessageBoxA

 

Deixe o OnClick do Button2 assim:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Deixe o OnKeyPress do Edit2 assim:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Agora vamos as explicações =D

No primeiro Código verifica se o Edit2 não está vazio, senão retorna uma mensagem de erro.

Logo após verifica se pelo menos um CheckBox está marcado, senão retorna outra mensagem de erro.

Se não retornar erro o código continua. Então adiciona os caracteres na string de acordo com os CheckBox marcados e então gera uma senha no Edit1 baseado na String com a quantidade de dígitos indicado no Edit2

 

O segundo Code apenas seleciona o texto do Edit1 e copia para a área de transferência

 

O terceiro Código proibe que digite um caractere além de números no Edit2 retornando um erro. E se apertar Enter a senha será gerada.

 

EXTRA

Para determinar um número mínimo e máximo de dígitos faça assim:

Primeiro substitua a linha if Edit2.Text <> '' then para:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Também substitua essa linha ShowMessage('Coloque a quantidade de dígitos a serem gerados'); por:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Créditos? EU!

 

Qualquer dúvida posta ae =D

[קђ๏єภเא 14]

Legal, ja tinha visto um desses mais tava com preguiça de fazer :P

[' Sky 6]

pow man muito

dps tento fazer e edito aki pra vcs verem .

 

@OFF

ai man poderia me arrumar um tutorial fazendo um gerador de nick ?

[~OwneR~ 8]

pow man muito

dps tento fazer e edito aki pra vcs verem .

 

@OFF

ai man poderia me arrumar um tutorial fazendo um gerador de nick ?

 

Pra fazer um gerador de nick é mais simples =)

Só precisa de um Button, um Edit e um ListBox. O ListBox você coloca a visibilidade em false.

Depois adicione os nicks que serão gerados nos itens do ListBox (isso vai dar trabalho...)

Deixe o OnClick do Button assim:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

PS: Isso não vai criar nicks só vai pegar os nicks que estão na ListBox

[Surfistinha£ 20]

muito bom agradecido no edit fica bem melhor doque na listbox na minha opniãoum exclente artigo obrigado por postar mas nao e la avançado mas tudo bem

[rychardsson 0]

Cara bem legal

Esse da pra escolher se e so letra

ou

so numero

legal

levou meus thx

:)

[DragonBoss 8]

uoll, bom topico mesmo... mereceu thanks....

 

fiko mto legal....

 

flw, abraços.

[l2lipe 0]

caraca veio sempre com bons topicos show se eu tiver tempo vo tentar

vlw

[bidoow 0]

Bem legal man, otimo topico! Thankeuzado!

[DarkSj 0]

dava pra fazer uma porcariazinha tipo

deisha a enabled do edit 1 pra false qe fica mais profissional(-QQ).

 

mas ta ótimo cara!

 

Vlw!

[~OwneR~ 8]

@Surfstinha

Alí coloca o valor da listbox no edit...

 

@DarkSj

No que eu fiz eu coloquei o edit com enabled em false, mas vai do gosto de cada um :cool:

 

@All

Valeu gente =D