Keygen en Delphi
Página 1 de 1.
Keygen en Delphi
Aquí mostrare como crear un pequeño keygen en delphi para generar claves aleatoreamente(usando las que tenemos) asi no nos complicamos musho la vida generando numeros con alguna OEM.
Bueno empezemos el tutorial.
Para este caso yo tengo 3 edits y 3 buttons pero ustedes pueden usar un boton y un Edit
el codigo que pondre es lo mismo que usaremos para los 3 botones asi que solo toca explicar una vez el codigo para que lo implementen.
procedure TForm1.Button1Click(Sender: TObject);
var
numero:Integer; // definimos la variable numeros
begin //
numero:=Random(6); // aqui nos mostrara una clave random del 0 al 6
Case numero of // segun el numero que sale nos mostrara x key generada aleatoriamente
0: begin Edit1.Text:='KEY 1'; end; // Clave random que se mostrara
1: begin Edit1.Text:='KEY 2'; end; // Clave random que se mostrara
2: begin Edit1.Text:='KEY 3'; end; // Clave random que se mostrara
3: begin Edit1.Text:='KEY 4'; end; // Clave random que se mostrara
4: begin Edit1.Text:='KEY 5'; end; // Clave random que se mostrara
5: begin Edit1.Text:='KEY 6'; end; // Clave random que se mostrara
end
end;
Bueno empezemos el tutorial.
Para este caso yo tengo 3 edits y 3 buttons pero ustedes pueden usar un boton y un Edit
el codigo que pondre es lo mismo que usaremos para los 3 botones asi que solo toca explicar una vez el codigo para que lo implementen.
procedure TForm1.Button1Click(Sender: TObject);
var
numero:Integer; // definimos la variable numeros
begin //
numero:=Random(6); // aqui nos mostrara una clave random del 0 al 6
Case numero of // segun el numero que sale nos mostrara x key generada aleatoriamente
0: begin Edit1.Text:='KEY 1'; end; // Clave random que se mostrara
1: begin Edit1.Text:='KEY 2'; end; // Clave random que se mostrara
2: begin Edit1.Text:='KEY 3'; end; // Clave random que se mostrara
3: begin Edit1.Text:='KEY 4'; end; // Clave random que se mostrara
4: begin Edit1.Text:='KEY 5'; end; // Clave random que se mostrara
5: begin Edit1.Text:='KEY 6'; end; // Clave random que se mostrara
end
end;
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.
|
|