[Delphi7] Criando um gerador de senha.

[bidoow 0]

Criando um gerador de senha.

 

 

------

 

Cria um Edit (aba Standard) e um Button (aba Standard).

 

Clique 2 vez no Button, apague tudo e coloque esse codigo:

 

procedure TForm1.Button1Click(Sender: TObject);

var

i:integer;

const

str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';

max=10;

begin

Randomize;

Edit1.Text:='';

for i:=1 to max do

begin

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

end;

end;

 

end.

 

max=10; = Caracteres que seram gerados, você pode trocar.

 

Agora aperte F9 e teste!

 

abraços

 

EDIT

 

Randomize; // Adicionado ao topico, creditos a Owner

[Surfistinha£ 20]

eu ja postei um turtorial desse mas tudo bem

 

Gostei do resultado parabens mano

 

Muito Obrigado

[bidoow 0]

desculpá ai não tinha visto q vc ja tinha feito um :D

 

mas agora tem 2, melhor ainda ! ahsuashashu

 

vlw

[Surfistinha£ 20]

Que nada man ta de boa esse ta bem melhor as vezes isso aconte-se

 

de boa

[DragonBoss 8]

hum, bem legal , vlw ae =D

[matheusguerra 3]

legal msm, se vc tiver criatividade pode add umas edit's e umas labei's e zuar com akele amigo xato que vem na sua casa só pra aumuça (tipow coisa de lammer) kkkkk

 

Mais fico bom mesmo, levo meus tanks :D ^^

[anonimo555 2]

Gostei cara ta de parabéns levou meu agradecimento !

[bidoow 0]

Kaki num funciono da um erro e reinicia o pc!!!:conf used:

 

:O, você está usando o Delphi 7? É só você fazer o que se pede direitinho que da certo, se não consegui posta ai o erro que deu.! vlw

[matheusguerra 3]

Kaki num funciono da um erro e reinicia o pc!!!:confused::confused:

 

Obs:Ñ pode apertar ALT+F4

 

o erro que da deve ser muito grave, ate reinicia o pc

[DarkSj 0]

ele gera alguns números letras e essas coisas aleatóriamente?:confused:

 

outra coisinha, como vs bota os botões e a janela tão bonitinho assim?

¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨

Metas no WC:

[X]5 posts

[X]10 posts

[ ]50 posts

[ ]100 posts

[ ]250 posts

[ ]500 posts

[ ]750 posts

[ ]1000 posts

 

 

¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨

[bidoow 0]

sim, gera numeros e letras aleatoriamente.

[matheusguerra 3]

cara tinha um programa de gera senha aleatorio mais era assim:

tinha uma edit para vc escrever uma palavra para sair juntamente com a senha.

como eu faria isso?

[DragonBoss 8]

n entendi bem, vc ker ke ele faça a senha de letras aleatorias usando as letras do edit, OU ke ele use letras aleatorias mais letras do edit OU ke use letras aleatorias e sua palavra ? exemplos: no edit vc escreveu NOME , no primeiro ke falei, fikaria por exemplo : MOEN ou no segundo exemplo sxMOdNrE (usou letras aleatorias + a do edit ) e no ultimo por exemplo : kwNOMElpx(inseriu o edit em meio a letras aleatorias =P )

 

explika certin ke tento ajuda ^^

 

flw, abraços. (to indo durmi agora..kdpoakdpa)

[Surfistinha£ 20]

Cade os créditos dos codes ?

[bidoow 0]

não sei, me mandaram por msn.

[Niik 3]

Boa Man!

[takenabe 0]

Mt Legal O 1 Negocio Usando DElphi Q Consegui Q Orgulhu *.* VLW Bidow

[bidoow 0]

ASUSUHASUSAH

 

vlw ai manu :p

[' Extasy 0]

nossa

quero ve vc acerta a senha de alguem assim ¬ o ¬

+ o result foi bom

parabens XD

[bidoow 0]

esse programa não é pra acerta a senha de ninguem, aff ¬¬'

é para gerar uma senha para você! senha aleatoria --'

[xXAndr&lXx 2]

Valeu cara, mas tipo, eu tentei fazer um gerador de cash, ai botei no gerar cartão a mesma coisa só mudei o max para 16, e agora oq ponho no gerar PIN ? (OBS: Ja tentei o mesmo codigo mas não funcionou.

[bidoow 0]

Cria um Botao Gerar PIN (BUTTON2) e Outro Edit (edit2)

 

procedure TForm1.Button2Click(Sender: TObject);

var

i:integer;

const

str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';

max=10;

begin

Edit2.Text:='';

for i:=1 to max do

begin

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

end;

end;

 

end.

 

só muda o MAX ali

 

vlw

[matheusguerra 3]

vc altera o max como o bidoow disse

mais ha pouca chance se ser um PIN valido

[~OwneR~ 8]

Bidoow esse gerador tá faltando uma coisinha...

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

• Entre
• ou
• Cadastre-se

Pela falta desse Randomize o gerador sempre gera a mesma sequência (no caso sempre começava com 12U80OB6DF)

Bye~ =)

[bidoow 0]

ok vou botar no topico