WD CODE ACTIVATION PERIODIQUE

CODE ACTIVATION PERIODIQUE



J’ai récupéré un exemple de code dans le forum et j’ai du mal a l’applique dans mon programme.



J’ai créé une bd qui a pour nom [paramètre]



Dans la premier fenetre

Voci :

le code du BTN Bienvenue

HCréationSiInexistant("*")

HLitPremier(Parametre) // Table qui contient les données du Client et la date d'activation.

SI PAS HEnDehors(Parametre) ALORS // Si la table est vide Donc c'est le premier lancement de l'application

SI DateDuJour()<=Parametre.Dat_Fin_Act ET Parametre.App_Active=2 ALORS // Comparaison entre la date du jour et la date de fin d'activation et un test supp. de test si l'application est activé ou non en cas ou la date dans la table est VIDE

OuvreFille(Page_Menu_App) // l'application est Active donc lancement de la fenetre du menu

SINON

Parametre.App_Active=1

HModifie(Parametre)

OuvreFille(Fenetre_De_Réactivation)

FIN

SINON

HRAZ(Parametre)

Parametre.App_Active=1

HAjoute(Parametre)

OuvreFille(Premier_Lancement) // Fenetre du premier lancement de l'application

FIN





Dans la fenetre premier lancement

Voici le code du btn valider





SI sai_cpt<>"" ALORS

HLitPremier(Parametre)

Parametre.CPT_CLT=sai_cpt

HModifie(Parametre)

SINON

Erreur("Verfier l'adresse Email")

RepriseSaisie(sai_cpt)

FIN

Test_Code(m_code)

SI Parametre.App_Active=1 ALORS

Ferme

SINON

Info("Votre Application est Activée","Veuillez la redemarrer de nouveau")

Ferme

FIN





Dans la fenetre de reactivation

Voici le code du Btn valider



Test_Code(m_code)

SI Parametre.App_Active=1 ALORS

Ferme

SINON

Info("Votre Application est Activée","Veuillez la redemarrer de nouveau")

Ferme

FIN















Procedure globale test_code





PROCEDURE Test_Code(code_application)

HLitPremier(Parametre,IDParametre)

mcar1,mcar2, mmmaclef sont des chaîne ANSI="" // variables utilisé au cours de decryptage

mcodascii1,mcodascii2 sont des entiers // variables utilisées au cours de decryptage .. code ascii du caractere encours du code envoyé et code ascii de la clef

mcrypte est une chaîne ="jesuisuneclef"

long_clef,m_i est un entier // la longueur de la cléf de cryptage ici la clef est "jesuisuneclef"

long_code est un entier // longeur du code fournis par le Fournisseur de l'application (le developeur TOI)

long_compte_client est un entier // longeur du compte email client

long_code=Taille(code_application)

long_compte_client=Taille(Parametre.CPT_CLT)

long_clef=Taille(mcrypte)

m_i=1

mdate_active est une Date



POUR i= 1 A long_code

mcar1=Milieu(mcrypte,m_i,1) // la variable m_i donne la position dans la chaine du clef de cryptage si m_i est sup. à la longuer de la clef on revient à la position 1

mcar2=Milieu(code_application,i,1)



mcodascii1=Asc(mcar1)

mcodascii2=Asc(mcar2)



// on va soustraire le code assci du la clef du code ascii du code puis trouver le carct. correspendant et l'ajouter à la chaine du code en clair



mmmaclef=mmmaclef+Caract(mcodascii2-+mcodascii1-21)

m_i++

SI m_i>long_clef ALORS m_i=1

FIN



SI Gauche(mmmaclef,long_compte_client)<>SansEspace(Parametre.CPT_CLT) // comparaison entre le compte client enregistré dans la table et le compte client décrypté ALORS)

Erreur("Clef d'activation Invalide ")

Ferme // fermer l'application

FIN



SI DateValide(ChaîneVersDate(Droite(mmmaclef,10))) ALORS // verfier si la date est une date VALIDE

mdate_active=ChaîneVersDate(Droite(mmmaclef,10))

SI mdate_active<DateDuJour() ALORS

Erreur("Date d'activation Expirée") // Si le client intreduit un ancien code

Ferme()

FIN

Parametre.App_Active=2

Parametre.Dat_Fin_Act=mdate_active

HModifie(Parametre)

SINON

Erreur("Clef d'activation Invalide")

Ferme // fermer l'application



FIN

 

Je suis un débutant svp
quel es le code que je dois insérer pour qu'il marche
quand je met un code il refuse ...

veuillez m’aider à résoudre le problème

 

Merci
mais jai beaucoup essayer , souvent quand on comprend vite que l'autre on l'impression qu'il ne fait pas d'effort
hors pour ce que toi tu vois plus simple est compliqué pour l'autre

merci de maider

 

voir le code qui genere mon code activation

Mcar1,Mcar2, Mmmaclef sont des chaîne ANSI ="" // variables utilisé au cours de decryptage
mcodascii1,mcodascii2 sont des entiers // variables utilisées au cours de decryptage .. code ascii du caractere encours du code envoyé et code ascii de la clef
mcrypte est une chaîne ="jesuisuneclef"
code_application est une chaîne
long_clef,m_i est un entier // la longueur de la cléf de cryptage ici la clef est "jesuisuneclef"
long_code est un entier // longeur du code fournis par le Fournisseur de l'application (le developeur TOI)
long_compte_client est un entier // longeur du compte email client
long_compte_client=Taille(SAI_mail_clt)
long_clef=Taille(mcrypte)
m_i=1
code_application=SAI_mail_clt+DateVersChaîne(SAI_Dat_fin)
long_code=Taille(code_application)
POUR i= 1 A long_code
Mcar1=Milieu(mcrypte,m_i,1) // la variable m_i donne la position dans la chaine du clef de cryptage si m_i est sup. à la longuer de la clef on revient à la position 1
Mcar2=Milieu(code_application,i,1)
mcodascii1=Asc(Mcar1)
mcodascii2=Asc(Mcar2)
Info(Mcar1,mcodascii1,Mcar2,mcodascii2,mcodascii2+mcodascii1-21,Caract(mcodascii2+mcodascii1-21))
// on va ajouter le code assci du la clef du code ascii du code puis trouver le carct. correspendant et l'ajouter à la chaine du code en clair
Mmmaclef=Mmmaclef+Caract(mcodascii2+mcodascii1-21)
m_i++
SI m_i>long_clef ALORS m_i=1
FIN
SAI_cod_gen=Mmmaclef

 

il me dit que mon erreur peut ce trouve ici

Mmmaclef=Mmmaclef+Caract(mcodascii2+mcodascii1-21)

 

cle d'activation genere

 

code dactivation inserer

 

et le message me dit cle d'activation incorrect

merci de m'aider s'il vous plait ...
merci

 

Bonjour et merci de me repondre

comment je dois faire pour avoir un code plus simple

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

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

La première chose qui l'on remarque est que ton code d'activation n'est pas en ASCII ... c'est assez étrange comme code d'activation, je vois mal l'utilisateur final retaper à la main ton code d'activation ... et ce sans erreur ...

Bien cordialement

Cliquez pour agrandir...