[DÚVIDA]Gerador de senhas

[dargains 1]

Estou querendo criar um gerador de senhas que contenham tanto numeros quanto letras :

Não quero o gerador Só quero o Código do negócio,tipo Gerador de Cash (Level Up)Estou querendo o cógido do cartão e do PIN (o codigo pra eu criar um gerador de senhas)Obrg...

[Akilleks~™ 0]

amigo, para criar como um cartão, você terá de ver a quantidade que o cartão possui e os codigos que ele tem.

 

Vou lhe dar um exemplo:

 

var

num,max,i:integer;

Key:Char;

begin

randomize;

max:=5;//quantidade de caracteres na senha

Edit1.Text:='';

for i:=0 to max do

begin

num := Round(random(10)); //Máximo do numero aleatório

case Num of

0: Key := '0';

1: Key := 'A';

2: Key := 'B';

3: Key := 'C';

4: Key := 'D';

5: Key := 'E';

6: Key := 'F';

7: Key := 'G';

8: Key := 'H';

9: Key := 'I';

10: Key := 'J';

end;

Edit1.Text:=Edit1.Text+Key;

end;

end;

 

 

Ai irá depender se você quiser um como por exemplo com poucas variações e poucas opções , com numeros, e um maximo "X" você poderá colocar assim:

 

var

num,max,i:integer;

Key:Char;

begin

randomize;

max:=8;// Quantidade de carcteres que a senha irá possuir

Edit1.Text:='';

for i:=0 to max do

begin

num := Round(random(20)); // Máximo do numero aleatório

case Num of

0: Key := '0';

1: Key := 'A';

2: Key := '1';

3: Key := 'B';

4: Key := '2';

5: Key := 'C';

6: Key := '3';

7: Key := 'D';

8: Key := '4';

9: Key := 'E";

10: Key := '5'; // As opções, letras, que terá o gerador.

end;

Edit1.Text:=Edit1.Text+Key;

end;

end;

 

 

 

 

Espero ter ajudado, abraços.

[Surfistinha£ 20]

Adicione 2 edits e 2 botoes

 

 

 

No 1 botao voce declara o seguinte codigo que no caso irá gerar o Codigo do cartao

 

var

i: integer;

const

str = 'Code do Cartão aqui';{Code a ser gerado}

max = 16;{O numero ou letra que vai gerar esse numero 6 é a quantidade de numero ou letra a ser gerador}

begin

Edit2.Text := 'Code do Cartão aqui';

for i := 16 to max do

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

end;

 

 

 

No 2 botao voce declara o seguinte codigo que no caso irá gerar o Codigo do PIN

 

var

i: integer;

const

str = 'Code do PIN Aqui';{Code a ser gerado}

max = 10;{O numero ou letra que vai gerar esse numero 6 é a quantidade de numero ou letra a ser gerador}

begin

Edit2.Text := 'Code do PIn aqui !';

for i := 10 to max do

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

end;

 

Pronto ;D

[' Sky 6]

ou se preferir ^^

 

adicione 1 edit e 1 button

 

e add

 

var

i: integer;

const

str = '12344254444554515151585544554451511';{Codigo a ser geradado por exemplo vc pode botar 12345678924685}

max = 6;{o tanto de numeros ou letras a ser gerado se vc botar 8 será gerado 8}

begin

Edit1.Text := '';

for i := 1 to max do

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

end;

 

end.

 

onde está na com de verde ali é caso vc queira adicionar outra button

vc add,o codigo e onde está de verde vc muda para Edit.2 ou seja so apaga o 1 e bota o 2

entendeu ?

[dargains 1]

Quando eu boto o code no button ele da um erro...

[bidoow 0]

@dargains

 

que erro cara?

[dargains 1]

eSTE ERRO:

Cannot find implemetate of method ButtonOnClick 1.

Tem como alguem me ajudar?

[~OwneR~ 8]

É porque o OnClick não foi declarado...

Dá 2 cliques no botão e substitui o begin e end pelo código. Não se esqueça de adicionar um Randomize senão os códigos gerados serão sempre os mesmos!

Se não der certo vai no Events do botão e dá 2 cliques em OnClick

Bye