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 (http://www.torry.net/pages.php?id=311) 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]

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


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:

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 :D