FORUM WINDEV

quelqu'un peux me dire comment crée une d' version évaluation avec windev




ce forum ne marche pas ou et limite???????????????????????????????????????? personne dite moi

Bonjour,
Vous développez avec quelle version de windev?

levieux a écrit:Bonjour,
Vous développez avec quelle version de windev?

Nous attendons la réponse.............
Quoi qu'il en soit, voici une piste:


Protection par numéro de série: Testé avec la version 12...

Le numéro de série généré est de la forme 1234-1234-4564-4564 Donc pour protéger une application on déclare dans le projet deux procédures globales GENERE et QUATRE_CHIFFRES.
Le rôle de la procédure QUATRE_CHIFFRES permet de normaliser le nombres de chiffres pour une sous clé à un nombre égal à quatre, donc si on lui donne un nombre qui contient plus que 4 chiffres il sera tronqué au nombre de quatre, si le nombre fourni est inférieur à 4 on lui ajoute un chiffre prédéterminé comme complément, dans l’exemple fourni c’est le chiffre 7 ( inter+="7" ).
La procédure GENERE génère réellement le numéro de série, et ce à travers les quatre sous éléments qui sont presque identiques. Bien sûr il faut personnaliser chaque sous élément soit dans la boucle POUR i=1 A Taille(utilisateur) qui peut être mise sous la forme POUR i=1 A Taille(utilisateur)-2 ou autres forme.
Aussi, le calcul de l’élément element=element*10+Asc(Milieu(utilisateur,i-1,1)) peut être varié selon le choix pour créer une multitude de résultats.
L’entrée de la procédure GENERE doit être une entrée unique qui peut être le numéro de série du disque dur, ou le nom de la société, un nom de personne, ou une combinaison de ces paramètres.

Code: Tout sélectionner

//Procédure genere
PROCEDURE genere(utilisateur)
element,i est entier
passe est une chaîne
//On vérifie la taille du nom d’utilisateur
SI Taille(utilisateur)<4 ALORS
   Warning("Le nom est trés court")
   RENVOYER Faux
FIN
element=0
//Sous-élément 1
POUR i=1 A Taille(utilisateur)
   element =element*10+Asc(Milieu(utilisateur,i,1))
   element=modulo(element,65500)
FIN
passe=quatre_chiffres(element)+"-"
element=0
//Sous-élément 2
POUR i=1 A Taille(utilisateur)-1
   element=element+Asc(Milieu(utilisateur,i,1))+Asc(Milieu(utilisateur,i+1,1))
   element=modulo(element,65500)
FIN
passe=passe+quatre_chiffres(element)+"-"
element=0
//Sous-élément 3
POUR i=1 A Taille(utilisateur)-1
   element=element*10+Asc(Milieu(utilisateur,i-1,1))
   element=modulo(element,65500)
FIN
passe=passe+quatre_chiffres(element)+"-"
element=0
//Sous-élément 4
POUR i=1 A Taille(utilisateur)-2
   element=element+Asc(Milieu(utilisateur,Taille(utilisateur)-i,1))+Asc(Milieu(utilisateur,i+1,Taille(utilisateur)-i-11))
   element=modulo(element,65500)
FIN
passe=passe+quatre_chiffres(element)
RENVOYER passe


Code: Tout sélectionner

//PROCEDURE quatre_chiffres
PROCEDURE quatre_chiffres(entree)
i est entier
inter est une chaîne
inter =Gauche(entree,4)
SI Taille(inter)<4 ALORS
   POUR i=Taille(inter) A 3
      inter+="7"
   FIN
FIN
RENVOYER inter