Gestion de licence

**Elod65** · 11/06/2015, 11h13

Bonjour à tous,

J'ai mis en place la gestion des licences concernant les produits que je gère.
Le principe est le suivant : A la première ouverture de l'application une licence est accordée valable 7 jours (le temps du paramétrage...)

Un fichier fic contient:
- le nombre de licence
- les adresses mac des pc qui se sont connectés à la base tant que le nb de licences max n'est pas atteint : MAC1; MAC2...
Le tout est crypté dans le fichier fic.

A l'ouverture de l'application,
1. Lecture dans un fichier fic (mdp nécessaire pour son ouverture) du nombre de licence
2. Récupération de l'adresse mac du poste client en cours et recherche dans le fichier fic si l'adresse mac est connu
2a. Si elle n'est pas connu et que le nb de licence n'est pas atteint : ajout de l'adresse mac cryptée et ouverture de l'application
2b. Si connu : ouverture de l'application
3. Lorsque j'installe sur un PC portable, j'ai régulièrement des pb de licence : l'adresse mac récupérée du pc change parfois. J'ai donc listé toutes les adresses mac présentes sur le PC avec NetAdresseMAC(i) (je suppose que le wifi ou autre doivent perturber), et quand je tombe sur une déjà enregistrée j'ouvre l'application. Mais ça ne marche toujours pas... L'adresse mac qui est remonté ne correspond à aucune présente sur le PC. (Je précise que je n'ai aucun souci lorsqu'il s'agit d'un pc de bureau.)

Voilà un extrait de mon code :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
// Nb licence
HLitRecherche(Param, TypeSousType, ["Licence", "NbLicence"])
SI HTrouve(Param) ALORS
	Param.Infos = Crypte(SansEspace(CHP_NbLicence), sMDPParametrage, crypteAnsi, encodePCS)
	HModifie(Param)
SINON
	Param.Type = "Licence"
	Param.SousType = "NbLicence"
	Param.Infos = Crypte(SansEspace(CHP_NbLicence), sMDPParametrage, crypteAnsi, encodePCS)
	HAjoute(Param)
FIN
 
// Code de vérification des adresses mac
// On liste des adresses MAC (carte réseau) disponibles sur le PC
sListe est une chaîne = ""
i est un entier = 0
TANTQUE NetAdresseMAC(i) <> ""
	sListe += ";" + NetAdresseMAC(i)
	i++
FIN
sListe = sListe[[2 A ]]
 
// On vérifie que le pc est autorisé à ouvrir l'application
HLitRecherchePremier(Param, Type, "Licence")
TANTQUE PAS HEnDehors(Param)
	SI Param.SousType[[ A 3]] = "MAC" ALORS
		nNbLicenceExistante++
		POUR TOUTE CHAÎNE sL DE sListe SEPAREE PAR ";"
			SI Décrypte(Param.Infos, sMDPParametrage, crypteAnsi, encodePCS) = sL ALORS
				bEntre = Vrai
				SORTIR
			FIN
		FIN
		SI bEntre = Vrai ALORS
			SORTIR
		FIN
	FIN
	HLitSuivant(Param)
FIN
 
// Si le pc n'est pas déjà enregistré, on vérifie que le nb de licence n'est pas atteint, si non on ajoute l'@ mac
SI bEntre = Faux ALORS
	SI nNbLicenceExistante+1 <= nNbLicence ALORS
		Param.Type = "Licence"
		Param.SousType = "MAC"+(nNbLicenceExistante+1)
		Param.Infos = Crypte(NetAdresseMAC(0), sMDPParametrage, crypteAnsi, encodePCS)
		HAjoute(Param)
	SINON
		Ouvre(FEN_Licence, "Vous avez atteint le nombre de licence vendu pour cette application." +RC+ sMsgeContact, 1, Vrai)
		RETOUR
	FIN
FIN

Je ne vois pas où est le problème....

Si une âme charitable passe pas là...
Merci d'avance pour votre aide.

**Narwe** · 11/06/2015, 11h30

Je n'ai pas lu le code mais le problème ne pourrait-il pas venir d'une clé Wifi Usb ?
L'adresse Mac enregistrée dans la base serait celle de cette clé et si elle n'est plus branchée lors du 2e lancement de l'application, aucune adresse mac du PC portable ne se retrouve dans la base.

**JG_33** · 11/06/2015, 12h32

Bonjour,

Dans tout ce que j'ai pu lire sur les calculs ou contrôle de clé de licences, il ne faut jamais utiliser l'adresse MAC.
C'est un piège, puisque l'adresse mac peut changer et surtout peut être changée par un petit malin.
Il faut faire autrement

Cordialement

**Elod65** · 11/06/2015, 13h18

Merci pour vos réponses.

Narwe : non il n'y a pas de clef wifi usb. Rien n'est raccordé en usb sur le pc (sauf la souris

)

JG_33 : c'est déjà en place chez tout mes clients. Mais tu utiliserais quoi du coup ??

Merci pour votre aide

**JG_33** · 11/06/2015, 15h32

Tu peux utiliser les fonctions windev pour générer des clés d'activation, le numéro de disque dur sur lequel est l'application, une clé du registre + une clé fichier ,un algo personnel etc...
L'important est que les informations utilisées soient fiables, constantes et uniques au poste

**Elod65** · 11/06/2015, 15h39

Ok.

Bon après c'est juste une protection pour des utilisateurs qui ne connaissent strictement rien à l'informatique.
Le but est juste de limiter les copies sur tous les postes utilisateurs de la boite...

Sinon techniquement, quelqu'un voit d'où peut venir le problème (en écartant le fait qu'un petit malin peut changer l'adresse mac) ? si personne ne la change manuellement l'adresse mac ne peut pas changer...?

D'avance merci

**Narwe** · 11/06/2015, 17h20

Peut-être que le cryptage pose problème :

Code :

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

Param.Infos = Crypte(SansEspace(CHP_NbLicence), sMDPParametrage, crypteAnsi, encodePCS)

Dans l'aide, il est indiqué (tout au moins dans l'aide sur Windev18) :
crypteAnsi : Cette constante est utilisable uniquement en WinDev Mobile pour Windows CE.

Peut-être que le problème vient de là ?

Sinon, peut-être que le champ Infos qui stock l'adresse MAC est trop court et que donc l'info crypté y est tronqué (EDIT : le paramètre encodePCS implique une taille supérieur d'environ 30%).

Bon, si le programme fonctionne sur des PCs fixes, ce ne doit pas être la cause du problème.
Dans ce cas, je listerait dans un fichier trace un peu caché de l'utilisateur, l'ensemble des adresses MAC et leur cryptage en conservant l'historique. Le jour où la connexion ne fonctionne plus, je pourrais déjà savoir si le problème vient du fait que l'adresse MAC n'est plus listé ou si le problème vient d'ailleurs (cryptage, stockage, perte de données, ...).
Si l'adresse MAC n'est plus listés, je ferais un point sur mon vie car je pencherais sur un problème de Karma.

**dsr57** · 11/06/2015, 21h01

Bonjour

Sinon, peut-être que le champ Infos qui stock l'adresse MAC est trop court et que donc l'info crypté y est tronqué

+1

Bon dev

**frenchsting** · 12/06/2015, 09h37

Ce que je ferais pour garder un peu ton idée, c'est de mémoriser toutes les adresses MAC du poste. Ainsi, si le client a changé de clé WIFI, il devrait trouver celle de la carte réseau embarquée, bluetooth ou autre.

Effectivement on peu contourner cette histoire d'adresses MAC, mais le client ne peut pas deviner quel a été le mode de protection.

Les fonctions de clés d'activation est une autre piste.

Pour la fonction crypte, il faut faire attention car elle peut générer des caractères "non imprimables".

**Elod65** · 12/06/2015, 14h47

Je vous remercie tous pour votre aide.

Narwe :
- "Sinon, peut-être que le champ Infos qui stock l'adresse MAC est trop court et que donc l'info crypté y est tronqué (EDIT : le paramètre encodePCS implique une taille supérieur d'environ 30%)."
Quand les adresses mac cryptées sont décryptées, ça retourne bien les adresses mac complètes. Mais j'ai agrandit malgré tout (de 100 je suis passée à 300 caractères), tu as raison.

- "crypteAnsi : Cette constante est utilisable uniquement en WinDev Mobile pour Windows CE. " : c'est pas faux, j'ai zappé ce point...

Mais comme on disait sur les postes de bureau tout roule !

- "Si l'adresse MAC n'est plus listée, je ferais un point sur mon vie car je pencherais sur un problème de Karma." MERCI !!

mais j'espère pas quand même

frenchsting :
- "Ce que je ferais pour garder un peu ton idée, c'est de mémoriser toutes les adresses MAC du poste. Ainsi, si le client a changé de clé WIFI, il devrait trouver celle de la carte réseau embarquée, bluetooth ou autre." -> C'est déjà ce que je fais comme j'ai indiqué dans mon explication, mais dans ce sens : à l'ouverture de l'application je récupère toutes les adresses MAC et après je compare avec celle enregistrée dans le fichier fic :

Code :

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

1
2
3
4
5
6
7
8
// On liste des adresses MAC (carte réseau) disponibles sur le PC
sListe est une chaîne = ""
i est un entier = 0
TANTQUE NetAdresseMAC(i) <> ""
	sListe += ";" + NetAdresseMAC(i)
	i++
FIN
sListe = sListe[[2 A ]]

Peut-être que le "NetAdresseMac" ne convient pas...??

- "Pour la fonction crypte, il faut faire attention car elle peut générer des caractères "non imprimables"."
Oui ça j'ai fait attention

Bref, en espérant trouver une explication plausible, j'ai augmenté le nb de licence : 3 au lieu d'1 réellement vendue... ce qui fait que j'ai 3 adresses mac enregistrées pour un même pc portable et quand je fais la commande "ipconfig /all" ça ne correspond pas tout le temps. Ca a le dont de m'énerver !!

**jurassic pork** · 13/06/2015, 00h18

hello,
as-tu essayé de "récolter" les adresses MAC par WMI comme ceci par exemple :

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
18
19
20
21
22
23
// J.P Décembre 2014
objLocator est un objet Automation "WbemScripting.SWbemLocator"
objService est un objet Automation dynamique
Resultats est un objet Automation dynamique
 
QUAND EXCEPTION DANS
	objService = objLocator>>ConnectServer(".", "root\cimv2")
	objService>>Security_>>ImpersonationLevel = 3 
 
	// Récupération des adaptateurs réseau avec une condition sur le type
	// 0 = ethernet     9 = sans fil
	Resultats = objService>>ExecQuery("SELECT * FROM Win32_NetworkAdapter WHERE AdapterTypeID = 0")
	POUR x = 0 _A_ Resultats>>Count -1
		Trace("Nom Adaptateur  : ",Resultats>>ItemIndex(x)>>Properties_>>Item("Name")>>Value )
		Trace("Description  : ",Resultats>>ItemIndex(x)>>Properties_>>Item("Description")>>Value )
		Trace("Adresse MAC  : ",Resultats>>ItemIndex(x)>>Properties_>>Item("MACAddress")>>Value )
		Trace("=========================")
	FIN
FAIRE
	Erreur("Erreur execution WMI",ExceptionInfo(errInfo))
	ExceptionActive()
	RENVOYER "Erreur WMI"
FIN

Ce code ne fonctionne qu'à partir de VISTA. Il y a moyen d'affiner la requête WMI en ajoutant des conditions pour limiter les résultats. Quand une carte est désactivée on ne récupère pas son adresse MAC.

Ami calmant, J.P

**frenchsting** · 15/06/2015, 09h19

Une idée pour trouver l'origine du pb est de créer un fichier log. Quand tu ajoutes un numéro de licence, ou que tu n'en trouves pas, tu sauvegardes la liste des adresses MAC du poste et celles qui sont déjà enregistrées.

Pour simplifier la démarche, j'ajouterais le nom du poste dans ton fichier Param (NetNomMachine).

**zouzoukha** · 15/06/2015, 10h27

Salut!

+1 frenchsting pour le nom du poste.
Cela permettra de voir toutes les mac adress de chaque poste.

**frenchsting** · 15/06/2015, 14h41

Merci Zouzoukha.

Mais que cela ne t'empêche pas de jeter un œil au code de maître JP.

**Elod65** · 17/06/2015, 15h18

merci pour vos réponses.

frenchsting, je vais faire le fichier log comme tu dis.
jurassic pork, je vais tester ton code.

Je vous tiens au courant !

Merci !

**Elod65** · 25/10/2016, 16h58

Bonjour à tous,

Le problème survient de nouveau. J'ai donc mis en place le code et les logs comme indiqué dans vos différents messages.

jurassic pork : ton code me permet de constater que la méthode NetAdresseMac fonctionne bien. Les 2 méthodes me remontent bien les mêmes adresses MAC.

En fait, le client a une carte réseau "Teamviewer VPN adapter", l'adresse MAC change tout le temps...
L'adresse MAC commence apparemment toujours par "00:ff"

Lors de la 1ère ouverture de l'application, je souhaiterais donc faire un contrôle de l'adresse MAC : si elle commence par "00", je passe à la suivante, jusqu'à obtenir une adresse MAC "valide". Ensuite, je l'enregistre et donc à chaque ouverture de l'appli je trouverais la "valide" qui ne change pas (j'ai fait une boucle qui récupère toutes les adresses MAC possibles et je les compare à celle enregistrée lors de la 1ère ouverture).

Qu'en pensez-vous ?

Après j'ai également un client qui n'a apparemment pas d'adresse MAC, sa carte réseau doit donc être mal installée... à approfondir...

Merci d'avance pour vos réponses précieuses.

**frenchsting** · 26/10/2016, 14h54

Bonjour,

si ta méthode fonctionne, alors utilise la. Autre astuce, c'est de chercher des identifiants uniques style numéro de série du processeur / de la carte mère. Mais là, il va falloir gratter un peu sur le oueb...

**Elod65** · 26/10/2016, 16h03

Merci frenchsting pour ta réponse.

En fait, tout est déjà en place chez les clients via l'adresse MAC. Donc je préfère ne pas toucher.

Pour le moment je n'ai pas encore mis en place le filtre sur "00", j'ai temporairement désactivé le VPN Teamviewer, lancer l'appli, une bonne adresse mac a été prise, et ensuite j'ai remis le VPN teamviewer... Vu qu'après je tests tous les adresses MAC, il retrouve la 1ère.

Si quelqu'un a d'autres idées, je suis preneuse.

**frenchsting** · 26/10/2016, 16h16

Bah, si ça marche comme ça, ne te casse pas trop la tête.

Précise aux futurs utilisateurs que ton logiciel est "chatouilleux" avec des configurations réseau non standard...

**Elod65** · 26/10/2016, 17h06

oui, je pense comme toi...

Je vais laisser tel quel et si un client a un souci je prendrais la main chez lui et ferais cette manip.

Merci pour ton avis frenchsting

Gestion de licence

WinDev

Discussions similaires

Partager

Partager