Bonjour, Tous mes fichiers .fic sont protégés par un mot de passe à chaque fois je voulais changer le mot de passe je dois obliger de modifier tous les fichiers puis je lance la synchronisation des données afin de modifier le mot de passe. Ma question : Est ce qu'il y a une méthode pratique que ça sans modifier les fichiers.fic Merci de votre retour
Avec cette procédure le tour est joué PROCEDURE ChangeDataFilePassWord(ancienMotDePasse,nouveauMotDePasse) sMP est une chaîne="" ListeFichier est une chaîne sFichier est une chaîne //ListeFichier = HListeFichier(hLstDetail + hLstTout) ListeFichier = HListeFichier(hLstTout) I est un entier=1 sFichier=ExtraitChaîne(ListeFichier,I,RC) POUR TOUTE CHAÎNE sFichier DE ListeFichier SEPAREE PAR RC sFichier=ExtraitChaîne(ListeFichier,I,RC) // Ancien mot de passe HPasse(sFichier, ancienMotDePasse) SI HErreurMotDePasse() = Vrai ALORS Erreur("Mot de passe invalide") HPasse(sFichier, sMP) FIN // Modification du mot de passe SI PAS HChangeMotDePasse(sFichier, nouveauMotDePasse) ALORS Erreur(HErreurInfo() + RC + ErreurInfo()) FIN I++ FIN
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens! Avec cette procédure le tour est joué PROCEDURE ChangeDataFilePassWord(ancienMotDePasse,nouveauMotDePasse) sMP est une chaîne="" ListeFichier est une chaîne sFichier est une chaîne //ListeFichier = HListeFichier(hLstDetail + hLstTout) ListeFichier = HListeFichier(hLstTout) I est un entier=1 sFichier=ExtraitChaîne(ListeFichier,I,RC) POUR TOUTE CHAÎNE sFichier DE ListeFichier SEPAREE PAR RC sFichier=ExtraitChaîne(ListeFichier,I,RC) // Ancien mot de passe HPasse(sFichier, ancienMotDePasse) SI HErreurMotDePasse() = Vrai ALORS Erreur("Mot de passe invalide") HPasse(sFichier, sMP) FIN // Modification du mot de passe SI PAS HChangeMotDePasse(sFichier, nouveauMotDePasse) ALORS Erreur(HErreurInfo() + RC + ErreurInfo()) FIN I++ FINCliquez pour agrandir...