Protection contre la copie sur cd

Commenter

Contenu du snippet

Comment protèger efficacement une application contre la copie cd.

1 crayé un fichier qui contien une incrémentation (toujours le placer en fin de cd)
1b Faire une griffe a la fin de votre cd (mesurez avec une latte)

2 Lire le fichier depuis le cd

3 si le fichier est corompu, et que le ficher est bien existant alors on est bien sur le cd d'origine et que ses attributs et sa taille sont correct alors on est bien sur le cd d'origine

Source / Exemple : 


Procedure craye_file_inc;
var j    : int64;
     buf : array[word] of byte;
     St  : TFileStream;
begin
 for j:=0 to 32766 do
  buf[j]:=byte(j); // ne pas crayé un fichier de moins de 32k
 st:=Tfilestream.create('Protection.dat',fmCreate);
 for j:=0 to 10 do
  st.write(Buf,Sizeof(Buf));
 st.free;
end;

// dans votre programme
Function CheckIfOriginalCd:Boolean
var f       : thandle;
      b      : array[0..500] of byte;
      lus    : integer;
     Totlus : Int64;
begin
 result:=false;
 Totlus:=0;
 if not fileexist('Protection.dat') then exit;
 f:=Filecreate('Protection.dat',fmRead);
 while true do
  begin
   try
    Fileread(f,b,lus);
   exept
    break;
   end;
   totlus:=totlus+lus;
   if lus=0 then
     break;
  end;
 if filesize('Protection.dat')<>Totlus then
  if attributs, time etc etc... then
   result:=true;
end;

Conclusion :


c'est la technique de protection que j'utilise le plus bien sur mon code est plus perfectionné

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_ManChesTer)