En esta entrada vamos a hablar de como crear un keygen en Delphi de manera muy fácil y en unas pocas lineas de código.
Como se habrán dado cuenta esta categoria “Delphi” es nueva para nuestro blog, a medida que voy aprendiendo, publicare artículos acá en este blog. El programa que utilizo para programar en Object Pascal es el “Delphi 7 Second Edition”
Código: procedure TForm1.Button1Click(Sender: TObject);
var
numero:Integer; // Definimos la variable numero
begin
numero:=Random(4); // Elejimos un numero de 0 al 3
Case numero of // Segun el numero que sale mostramos X key
0: begin Edit1.Text:='KEY 1'; end; // Si sale 0
1: begin Edit1.Text:='KEY 2'; end; // Si sale 1
2: begin Edit1.Text:='KEY 3'; end; // Si sale 2
3: begin Edit1.Text:='KEY 4'; end; // Si sale 3
// Editar Key 1, Key 2, Key 3, Key 4, por los cdkey.
end
end;