Ver Mensaje Individual
  #4  
Antiguo 02-06-2004
Avatar de acertij022
acertij022 acertij022 is offline
Miembro
 
Registrado: may 2003
Ubicación: Argentina-Bs. As.
Posts: 233
Reputación: 22
acertij022 Va por buen camino
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
Responder Con Cita