[Resolvido] criar keygen

[Joneco 0]

fala aew pessoal to querendo fazer um keygen... nada mais preciso eh de um sorteio de tais numeros quando clico no botao.

eu só consigo fazer aparecer um numero.

 

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text := '122000 55555'

end;

end.

queria poder botar quando clico no botao,sorteia entre outros numeros ...

 

vlw pessoal,fikei parado em delphi mo tempao,to perdendo a cabeça nessa bobagem =(

[Rodrigo Cougo 0]

beleza. Joneco...

Tente usar um sistema Randomico(Gera valores aleatóriamente).

 

For i:=1 to 15 do

VarNumero:=Random(1000)

 

Veja que no exemplo usei 15 caracteres com uma sistema Randomico que pega a faixa de 0 a 1000.

Caso queira definir uma faixa de numeros mais acirrada, use assim...

 

For i:=1 to 15 do

While VarNumero > 200 AND < 50000 do

begin

VarNumero:=Random(50000);

end;

 

 

 

Abraços.

[Joneco 0]

beleza. Joneco...

Tente usar um sistema Randomico(Gera valores aleatóriamente).

 

For i:=1 to 15 do

VarNumero:=Random(1000)

 

Veja que no exemplo usei 15 caracteres com uma sistema Randomico que pega a faixa de 0 a 1000.

Caso queira definir uma faixa de numeros mais acirrada, use assim...

 

For i:=1 to 15 do

While VarNumero > 200 AND < 50000 do

begin

VarNumero:=Random(50000);

end;

Vlw tah dando problema no aspecto var numero =(

[Joneco 0]

arranjei uma soulução perfeita vendo um criador de senhas....

var
  Form1: TForm1;
  serial:integer;

procedure TForm1.Button1Click(Sender: TObject);

begin
  serial := Round(random(20)); //numero de seriais ou oq voce deseja sortear
  case seroal of
  0: Edit1.Text:='4878954'; /// edit1.text é a caixa de texto,objeto escolhido onde aparecerá os seriais;
  1: edit1.text ='455455';

end;
end.

vlw pela ajuda rodrigo...

[Rodrigo Cougo 0]

beleza Joneco, se precisar posta ai!!! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif