Keygen propio

[brandolin]

Hola a todos...

Necesito alguna pista de como generar un numero de serie para mis productos... mas presisamente necesitaria algun componente o funcion que me permita encriptar/desencriptar algun dato para hacer algunas validaciones. Al estilo del numero de srie de cualquier producto comercial...

Gracias desde ya.

[jachguate]

Si no tenes mucha idea... podes valerte de un componente para números de serie. En la sección Security/Shareware de Torry hay suficientes para escoger...

Hasta luego.

[brandolin]

Gracias... ya habia estado por esa seccion, el tema es que hay tantos componentes que uno se pierde probando... lo que ando buscando es una recomendacion de algun componente free que cubra mis necesidades que basicamente son dos:

1) proporsionar un key para que el usuario pueda ingresar en el momento de la instalacion... idem windows u otro producto

2) que pueda encryptar/desencryptar algunas claves en la base de datos...

gracias desde ya

[acertij022]

Empezado por brandolin

1) proporsionar un key para que el usuario pueda ingresar en el momento de la instalacion... idem windows u otro producto

Lo que haria yo sería:
tener internamente un número de activación y colocar una serie de casillero para ingresar el codigo de activación y lo que haces es sumar el codigo ASCII que le corresponde a cada caracter que el cliente coloca. Asi podes tener varios codigo que la suma de un mismo numero; y podes tener varios numeros de activacion ej: 96541= aplicación full ; 456 = aplicación demo ; 7894 = aplicación trial

Empezado por brandolin

2) que pueda encryptar/desencryptar algunas claves en la base de datos...

Lo que haria yo sería:
encriptar los datos que se guardan en la base de la siguiente manera:

Código Delphi [-]
function Encript(aFrase: String, aClave: Integer): String;
begin 
   Result:='';
   RandSeed:=aClave;
   for aa:=1 to Length(aFrase) do 
       Result:=Result+Chr(Byte(aFrase[aa]) xor random(256));
end; 
 
function Decript(aFrase: String; aClave: Integer): String;
begin 
   Result:='';
   RandSeed:=aClave;
   for aa:=1 to Length(aFrase) do 
       Result:=Result+Chr(Byte(aFrase[aa]) xor random(256));
end;

Espero haber sido de ayuda