Keygen en Delphi

Ver el tema anterior Ver el tema siguiente Ir abajo

Keygen en Delphi

Mensaje  [G]host el Mar Jul 26, 2011 9:44 pm

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;
avatar
[G]host
Admin

Mensajes : 67
Puntos : 204
Reputación : 0
Fecha de inscripción : 24/10/2010
Edad : 27

Ver perfil de usuario http://ghost.activo.mx

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.