Discussion :

[louis67]

Bonjour,

Je suis actuellement sur un projet de système de clé d'activation en ligne pour un de mes logiciels codé en VB.NET. J'ai réussi à mettre en place mon système qui est d'ailleurs fonctionnel. Le seul problème que je rencontre est que choisir comme identifiant pour le PC afin de le reconnaître de façon unique (pour l'instant je récupère le n° physique du HDD mais avec quelques problèmes^^). Je souhaitais donc connaître vos avis sur quoi choisir.

Et enfin j'aimerais aussi savoir si enregistrer la variable disant que le produit est activé dans le registre Windows est une bonne idée. Si oui auriez vous un ou deux tutos sur la maîtrise du registre ?

Merci d'avance,

Cordialement,

Louis

[Pol63]

l'id du cpu est mieux (un dd ca se change plus souvent)
wmi et wmi code creator t'aideront pour ca

après enregistrer simplement si c'est activé est un peu light à mon gout, il faut crypter quelque chose contenu l'id cpu et le fait que c'est activé

[louis67]

Ok merci bcp ! Je vais m'orienter vers le cpu. Pour la sécurité je compte également vérifier tous les jours (si le soft s'ouvre et qu'il y a internet) que le clé est toujours valide. Pour le cryptage je vais regarder ceci mais d'abord il faut que je comprenne le vrai fonctionnement du registre et comment l'utiliser en VB.

[EDIT]
Bonsoir,
J'ai trouvé comment obtenir le n° de série du CPU via la fonction suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Function GetCPUID() As String
        Dim computer As String = "."
        Dim wmi As Object = GetObject("winmgmts:" & _
            "{impersonationLevel=impersonate}!\\" & _
            computer & "\root\cimv2")
        Dim processors As Object = wmi.ExecQuery("Select * from " & _
            "Win32_Processor")
 
        Dim cpu_ids As String = ""
        For Each cpu As Object In processors
            cpu_ids = cpu_ids & ", " & cpu.ProcessorId
        Next cpu
        If cpu_ids.Length > 0 Then cpu_ids = _
            cpu_ids.Substring(2)
 
        Return cpu_ids
    End Function

J'obtient ceci : BFEBFBFF0001067A
Je voulais juste savoir si cela vous paraît cohérent ou si j'ai récupéré autre chose . Je vais à présent m'attaquer au registre.

[Pol63]

ca ressemble à ce que j'avais aussi ^^
c'est de l'hexadecimal, tu peux le transformer en octets ou le laisser en string

[louis67]

Bonsoir,
J'ai réussi à utiliser le registre pour enregistrer les clés mais ce code n'a pas fonctionné sur un PC W8 (le mien est un W7 64bits). Auriez-vous une idée ?
Voici le code en question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim Registre As Microsoft.Win32.RegistryKey = Nothing
                Registre = Microsoft.Win32.Registry.LocalMachine
                Registre.CreateSubKey(PathRegistre).SetValue("Key", CleCryptee)
                Registre.CreateSubKey(PathRegistre).SetValue("PcIdent", IdPcCrypte)
                Registre.CreateSubKey(PathRegistre).SetValue("Registrant", EmailCrypte)
                Registre.CreateSubKey(PathRegistre).SetValue("License", AES_Encrypt(Now & "+-+Full", CryptageKey))

Note : Sur le pc W8 rien ne s'est créé. Ni la clé ni les variables.

Merci d’avance

[clementmarcotte]

Bonsoir,
Note : Sur le pc W8 rien ne s'est créé. Ni la clé ni les variables.

Merci d’avance

Je n'ai pas Windows 8, mais je soupçonne un problème de droit d'accès en écriture. Je ne sais pas ce que cela va donner, mais tu ne perds rien à essayer de lancer VB en tant qu'administrateur avant de relancer le débogage.

Je ne sais pas si c'est la même chose sur Windows 8, mais l'éditeur de registre de Windows 7 lancé comme administrateur permet de modifier les attributs de sécurité des clefs du registre.