Protection contre la copie sur cd

Soyez le premier à donner votre avis sur cette source.

Snippet vu 28 360 fois - Téléchargée 61 fois

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

Ajouter un commentaire

Commentaires

auran
Messages postés
3
Date d'inscription
lundi 26 novembre 2007
Statut
Membre
Dernière intervention
24 juin 2011

j'ai essai le code avec un delphi 7 et des erreurs de script s'affiche.quelqu' un peu m'aider.

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;
cs_eleuch
Messages postés
11
Date d'inscription
mardi 30 décembre 2008
Statut
Membre
Dernière intervention
15 avril 2011

Commencer par exemple par Visual Basic 2008 Exp téléchargeable gratuitement.
auran
Messages postés
3
Date d'inscription
lundi 26 novembre 2007
Statut
Membre
Dernière intervention
24 juin 2011

re salut merci je vais le voir.
pour le programme comment je vas faire et le procedure sur delphi je connais pas encore ce language je doit utilisé quel logiciel pour creer le programme.merci
cs_eleuch
Messages postés
11
Date d'inscription
mardi 30 décembre 2008
Statut
Membre
Dernière intervention
15 avril 2011

S'il sagit d'un soft (application client) livré sur CD dont on veut protéger afin qu'il puisse être chargé qu'une seule fois dans le PC du client je vous proposes une solution à télecharger gratuitement depuis ce lien http://sosdeveloper.atspace.cc/Service.htm
auran
Messages postés
3
Date d'inscription
lundi 26 novembre 2007
Statut
Membre
Dernière intervention
24 juin 2011

bonjour j'aimerai vous demander de m'envoyer un fichier zip si possible merci d'avance

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.