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 |