Auteur: Patrick BikerExemples évolués
Chaque exemple montre une utilisation pratique de la fonction du WLangage.
Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.
Le code suivant permet de décrypter un fichier. Le mot de passe est saisi dans un champ de saisie (MotDePasse). La priorité a été donnée à la sécurité du cryptage (constante crypteSécurisé ).
|
||
|
// Déclaration des variables
FichierCrypté est une chaîne FichierDécrypté est une chaîne ResDécryptage est un booléen // Sélection du fichier crypté FichierCrypté = "C:\MonRep\FichierCrypté.txt" // Sélection du fichier décrypté FichierDécrypté = "C:\MonRep\FichierDécrypté.txt" // Décryptage du fichier // Rappel : le mot de passe est saisi dans un champ de saisie (MotDePasse) ResDécryptage = fDécrypte (FichierCrypté, FichierDécrypté, MotDePasse, crypteSécurisé ) // Affichage du message d'erreur si le décryptage n'a pas été effectué SI ResDécryptage = Faux ALORS Erreur(ErreurInfo( errMESSAGE )) SINON Info("Le fichier a été décrypté") FIN
|
||
Le code suivant permet de décrypter un fichier. Le mot de passe est saisi dans un champ de saisie (MotDePasse). La priorité a été donnée à la sécurité du cryptage (constante crypteSécurisé ).
|
||
|
// Déclaration des variables
FichierCrypté est une chaîne = "\Mes Fichiers\FichierA.TXT" FichierDécrypté est une chaîne = "\Mes Fichiers\FichierB.TXT" ResDécryptage est un booléen // Décryptage du fichier // Rappel : le mot de passe est saisi dans un champ de saisie (MotDePasse) ResDécryptage = fDécrypte (FichierCrypté, FichierDécrypté, MotDePasse, crypteSécurisé ) // Affichage du message d'erreur si le décryptage n'a pas été effectué SI ResDécryptage = Faux ALORS Erreur(ErreurInfo( errMESSAGE )) SINON Info("Le fichier a été décrypté") FIN
|
