Gerador de senhas

[checobol 0]

Edit

[iMelo~' 18]

http://www.webcheats.com.br/forum/delphi-vb/1598253-tutorial-criando-um-gerador-de-senhas.html

[checobol 0]

Edit

[JoaoTms- 0]

Cria um Edit e um Button

 

No button declara

 

procedure TForm1.Button1Click(Sender: TObject);

var

i: integer;

const

str = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVW XYZ1234567890';

max = 12;

begin

Edit1.Text := '';

Randomize;

for i := 1 to max do

Edit1.Text := Edit1.Text + str[random(length(str))+1];

end;

 

Espero ter ajudado =]

[checobol 0]

Tenso¬¬

[Grilo~* 0]

Simples, faça um edit pra letra ou um *****, use o seguinte

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

• Entre
• ou
• Cadastre-se

Faça um desses pra cada *****...

[Lf' 7]

Tópico Movido Para: Programação - Dúvidas/Ajuda

 

Na área de Delphi / VB não é permitido:

Dúvidas relacionadas a Delphi/VB. A área correta pra isto é Programação - Dúvidas/Ajuda

[checobol 0]

edit

[ℛiqu∊ 15]

Entendi o que você quer.

Bom,não mexo com delphi,mas deve ser algo parecido com isso:

 

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

• Entre
• ou
• Cadastre-se

 

No caso,ele vai gerar da seguinte forma:

 

AsiIY89Bjh8578Cb9786

 

Mantendo as letras A,B e C naquela ordem.