Voila mon programmeMDP
JE COPIE COLLER DEPUIS LANCIEN FORUM !
Le contraire de egal (n'est pas egal) = /=
Si vous voulez proteger l'execution d'un programme Vous editez votre programme a Proteger est vous faite sa 2nde Suppr Entrer prgm > > Choisir le PrgmMDP
Programme de Reglage ce programme sert a metre un utilisateur et un MDP pour le PrgmMDP
Programme Modifier par Linkakro !
JE COPIE COLLER DEPUIS LANCIEN FORUM !
- PrgmMDP:
- PrgmMDP
Lbl 2
EffEcr
Output(4,1,"UTILISATEUR ?"
Input Chaine2
If Chaine2/=Chaine3
Then
EffEcr
Output(2,1,Chaine2
Output(4,4,"ERREUR"
Pause
Goto 2:End
If Chaine2=Chaine3
Goto 3
Lbl 3
EffEcr
Output(4,6,"MDP ?"
Input Chaine2
If Chaine2=Chaine1
Goto 1
If Chaine2/=Chaine1
EffEcr
Output(2,1,Chaine2
Output(4,4,"ERREUR"
Pause
Goto 2:End
Lbl 1
Menu("MDP","CHANGER DE MDP",M,"CHANGER IDENT.",J,"CONTINUER",C
Lbl M
EffVar Chaine1
Input Chaine1
Lbl J
EffVar Chaine3
Input Chaine3
Lbl C
EffEcr
Output(2,4,"BIENVENUE"
Output(4,4,Chaine3
Pause
Le contraire de egal (n'est pas egal) = /=
Si vous voulez proteger l'execution d'un programme Vous editez votre programme a Proteger est vous faite sa 2nde Suppr Entrer prgm > > Choisir le PrgmMDP
Programme de Reglage ce programme sert a metre un utilisateur et un MDP pour le PrgmMDP
- PrgmMDP2:
- EffEcr
Output(4,1,"UTILISATEUR ?"
Input Chaine 3
EffEcr
Output(4,6,"MDP ?"
Input Chaine 1
Stop
Programme Modifier par Linkakro !
- PrgmMDP(MODIFIER):
- // PrgmMDP
Repeat Chaine2=Chaine1
Repeat Chaine2=Chaine3
EffEcr
Output(4,1,"UTILISATEUR ?"
Input Chaine2
If Chaine2/=Chaine3
Then
EffEcr
Output(2,1,Chaine2
Output(4,4,"ERREUR"
Pause
End
End
EffEcr
Output(4,6,"MDP ?"
Input Chaine2
If Chaine2/=Chaine1
Then
EffEcr
Output(2,1,Chaine2
Output(4,4,"ERREUR"
Pause
End
End
Lbl Y
Menu("MDP","CHANGER DE MDP",M,"CHANGER IDENT.",J,"CONTINUER",C
Lbl M
EffVar Chaine1
Input Chaine1
Goto Y
Lbl J
EffVar Chaine3
Input Chaine3
Goto Y
Lbl C
EffEcr
Output(2,4,"BIENVENUE"
Output(4,4,Chaine3
Pause