Protection Application Par DLL ' appel"

Bonsoir, j'ai trouvé un ancien projet a toute fin utile avec un fichier wfms.dll qui lit le numéro de série du disque et aussi celui du disque usb

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

pour télécharger l'exemple

 

ce que je trouve marrant c'est vouloir protéger son appli en crackant une autre appli
en tout cas voila aussi un vieux code

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

 

I have Old GetDiskSerial versi 5.0 cracked
It can run with windev
I will be share soon

Sorry to have to wait, because have to search in old data backup ....
It's a link for GetDiskSerial.DLL :

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

GetDiskSerial.DLL in folder Release
Example program in other program windev in folder Example
Detail Procedure and function in folder Help

I try with windev and run smoothly
example code
Trace(CallDLL32("GetDiskSerial.dll","GetSerialNumber",0))

 

Bonjour,
Pour ce que ça vaut, je poste un bout de code. Je ne me rappelle plus la source.

A savoir que ça ne fonctionne qu'à partir de Vista et >. Sur XP, ça renvoie une erreur.

Ajouter d'abord RécupèreInfosLicence() en tant que procédure globale

Code (Text):

FONCTION RécupèreInfosLicence()

objLocator est un objet Automation "WbemScripting.SWbemLocator"
objService est un objet Automation dynamique
Resultats est un objet Automation dynamique
MonInfoLicence est une SuperInfoLicence

QUAND EXCEPTION DANS
   objService = objLocator>>ConnectServer(".", "root\cimv2")
   objService>>Security_>>ImpersonationLevel = 3
 
   // Récupération du numéro de série du 1er disque
   Resultats = objService>>ExecQuery("SELECT SerialNumber,Tag FROM Win32_PhysicalMedia WHERE Tag LIKE '%PHYSICALDRIVE0'")
   POUR x = 0 _A_ Resultats>>Count -1
       MonInfoLicence.NumSérieDisque = Resultats>>ItemIndex(x)>>Properties_>>Item("SerialNumber")>>Value
   FIN
     
   Resultats = objService>>ExecQuery("SELECT Name,UserName FROM Win32_ComputerSystem")
   POUR x = 0 _A_ Resultats>>Count -1
       MonInfoLicence.RegisteredUser = Resultats>>ItemIndex(x)>>Properties_>>Item("UserName")>>Value
       MonInfoLicence.NamePC = Resultats>>ItemIndex(x)>>Properties_>>Item("Name")>>Value
   FIN  
   Resultats = objService>>ExecQuery("SELECT UUID FROM Win32_ComputerSystemProduct")
   POUR x = 0 _A_ Resultats>>Count -1
       MonInfoLicence.UUID = Resultats>>ItemIndex(x)>>Properties_>>Item("UUID")>>Value
   FIN
   RENVOYER MonInfoLicence
 
FAIRE
   Erreur("Erreur execution WMI",ExceptionInfo(errInfo))
   ExceptionActive()
   MonInfoLicence.Leresultat="Erreur WMI"
   RENVOYER MonInfoLicence
FIN
 

Il faudra d'abord faire une déclaration dans l’initialisation du projet

Code (Text):

SuperInfoLicence est une Structure
   NumSérieDisque est une chaîne
   NamePC est une chaîne
   RegisteredUser est une chaîne
   UUID est une chaîne
  Leresultat est une chaîne
FIN
 

Puis quelque part dans votre projet

Code (Text):

MonInfoLicence est une SuperInfoLicence

MonInfoLicence=RécupèreInfosLicence()
// Par exemple
SI MonInfoLicence.Leresultat<>"Erreur WMI" ALORS
    info(MonInfoLicence.NumSérieDisque); // Pour le n° série du disque
    info(MonInfoLicence.UUID); // Pour l'identifiant unique de windows.
FIN
 

C'est juste un point d'entrée. A vous de voir quoi en faire.