Sobre Gerador de serial's Key

[dragonpool12 6]

Olá, gostaria de saber qual o código que devo usar para criar um Gerador de Serial Key

exemplo eu to usando um Gerador de Cash, mais eu queria mesmo

um que fica-se assim o form2

 

o que eu to usando é 00000000000

 

e eu queria: 0000.00000.0000

tem como ?

so colocar os codigos que talvez eu saiba montar os edit1, 2 etc..

[DragonBoss 8]

procedure TForm1.Button1Click(Sender: TObject);

var

i:integer;

const

str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';

max=5;

begin

Edit1.Text:='';

for i:=1 to max do

begin

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

end;

end;

 

end.

 

ae na parte do Edit1.Text:=Edit1.Text+str[random(length(str))+1];

e no max=5; vc edita a quantia a ser gerada.

 

vc altera como quiser, tipo assim :

 

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

Nao testei o codigo, mas a ideia eh ke fike assim 5 letras random (ou numeros) + um ponto + 5 letras (ou numeros =P0 xD

 

ah vc altera ae, ve se isso ajuda =X

 

flw, abraços.

[dragonpool12 6]

Bom Funciono mais agora ta estranho oO

eu queria que no maximo de numeros seja 0000.00000.0000

e agora ta assim quando clico gerar com o seu código que me mando 00.00.00.00.00.00.00.00.00.00?

 

como arruma isso

 

Não tem como Fazer assim olha

Exemplo Edit1(0000) Edit2(00000) Edit3(0000)

cada Edit sair um numero randamente quando clicado Gerar

não tem como fazer edit1.txt,edit2.txt sei la não entendo nuito to aprendendo agora.

[DragonBoss 8]

hum, agora me confundi, vc ker ke ele envie 4 numero random pra um edit, 5 pro otro e 4 pra otro, ou ker ke deixe td junto num edit soh ?

[~OwneR~ 8]

Tipo eu não lembro como coloca caracteres numa string...

Então eu dei um jeito aqui e funcionou =)

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

• Entre
• ou
• Cadastre-se

Função Copy(Nome da String, Onde inicia, Quantas casas copiará);

[DragonBoss 8]

ahh, mexi um poko no cod ake, fiko complikadinho, mas funfa....

poe 4 edit e 2 botoes, o edit4 tera que ser maior ke os outros, pq ele vai ajuntar a inromaçao dos 3 edits, ae no primeiro botao vc poe a caption de "criar numeros", e no segundo vc poe "Gerar Key",nao sei se era bem isso ke vc keria, mas quando vc clika no primero botao, ele vai gerar os numeros, e quando vc clika no segundo, ele vai ajunta esses numeros e vai fika assim 0000.00000.0000...

 

pra funfa faz isso:

poe esse codigo no primeiro botao:

 

procedure TForm1.Button1Click(Sender: TObject);

var

i:integer;

const

str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';

max=4;

const

str2='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';

begin

Edit1.Text:='';

Edit2.Text:='';

for i:=1 to max do

begin

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

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

edit3.text:='Agora Clique em Gerar Key';

end;

end;

 

E isso no botao de Gerar key:

procedure TForm1.Button2Click(Sender: TObject);

var

i:integer;

const

str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';

max=5;

begin

Edit3.Text:='';

for i:=1 to max do

begin

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

Edit4.Text:=edit1.Text+'.'+edit3.text+'.'+edit2.text;

end;

end;

 

ve se ajuda o.O...

 

flw.abraços. (qualker erro, avisa ae)

[Surfistinha£ 20]

e bem melhor assim

 

var

i: integer;

const

str = 'AB5HJWLFNPCRC5CK';

max = 16;

begin

Edit2.Text := '';

for i := 0 to max do

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

end;

[matheusguerra 3]

mais esses codigo não geraria a key

seria numeros e letras aleatoriamente....

[DragonBoss 8]

lol, boiei surf... pq seria melhor assim ? o cara ker algo ke faça assim :

 

0000.00000.0000

 

ou seja, 4 um ponto, 5 um ponto e 4 de novo, o jeito ke vc falo faz 16 letras aleatorias soh nao eh?

desculpe se eu tiveh errado =P

 

o.O

[dragonpool12 6]

Bom o unico que chegou perto doque necessito é o do "DragonBoss" mesmo assim deu errado aqui

ae DragonBoss me falar como devo montar os Bottun e os Edits para o seu, que eu montei

do meu tipo e deu errado um edit nao aparecia nada.

 

DragonBoss 3 Edits funciona 100% so 1 Que nao aparece nada

eu coloquei assim

 

Edit1, Edit2, Edit3, Edit4

o edit 2, 3 e 4 aparecem aleatorialmente ja o primeiro não aparece nada

não tem como fazer assim

 

Edit1, Edit2, Edit3 = ' '

Str=123456789

 

Assim Edit1.Text:=Edit2.Text,Edit3.Text+str[random(length(str))+1];

não tem como ?

[matheusguerra 3]

ve se o nome da edit coencide com o codigo

[dragonpool12 6]

ve se o nome da edit coencide com o codigo

 

 

Olha eu fiz um Aqui que os 3 Edits aleatoriamente

mais surgiu outro problema todos os edits estão com 5 Numeros e o certo seria

0000.00000.0000,

Essa foi que eu criei sozinho

 

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

• Entre
• ou
• Cadastre-se

 

Analise ae e me fale que esta errado plx ;D

[matheusguerra 3]

muda essa parte:

max=5;

5 é o maximo cloca treze( 13 )

[DragonBoss 8]

mas ele ker separado por ponto e tals, faz ke nem eu criei la, fika com 2 botoes, mas funfa --'

 

ve laa cara, e adapta se caso achar necessario,

 

flw, abraços

[dragonpool12 6]

Cara eu Tentei o seu DragonBoss mas deu erro qui criei 2 button

coloca tudo certo os codigos só que

estou atraz de um que só tenha 1Button 3Edits 2Edits=0000 e 1Edit=00000

 

Outra dúvida surgindo

nesses trainers novos eles atualizam os addrres blz

mais como eles fazem isso sendo que qualquer engine o

GG pega?

[Ryokusei 21]

1 botão, 1 edit.

 

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

• Entre
• ou
• Cadastre-se

[matheusguerra 3]

esse que o ryokusei passo deu certo ake

testa ae

não sei se é esse que vc queria

[~OwneR~ 8]

Postei isso no começo (nem leu né?)...

Do jeito que eu postei vai um Edit e um Botão...

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

• Entre
• ou
• Cadastre-se

u_ú

[matheusguerra 3]

sim mais ele quer só numeros

dae tem ke apaga ake

str = '1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';

[~OwneR~ 8]

sim mais ele quer só numeros

dae tem ke apaga ake

 

Não tinha visto que ele queria só numeros =|

Apaguei =)

[dragonpool12 6]

Owner

 

Vlw ae

vlw ae consegui oque eu queria.

 

Tranks

[dap300 0]

Sei como

 

facil então deleta o primeiro edit e os outros tres vao gerar como voce queria :D