Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Keygen propio (https://www.clubdelphi.com/foros/showthread.php?t=10855)

brandolin 31-05-2004 14:46:34

Keygen propio
 
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 31-05-2004 16:59:25

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 02-06-2004 15:14:26

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 02-06-2004 15:53:14

Cita:

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

Cita:

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


La franja horaria es GMT +2. Ahora son las 00:12:17.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi