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 crypter un fichier. Le mot de passe est saisi dans un champ de saisie (MotDePasse). La priorité est donnée à la sécurité du cryptage (constante crypteSécurisé ). Le fichier pourra comporter des caractères non-imprimables (booléen Faux ).
|
||
|
// Déclaration des variables
FichierACrypter est une chaîne FichierCrypté est une chaîne ResCryptage est un booléen // Sélection du fichier à crypter FichierACrypter = "C:\MesRépertoires\Fichier.txt" // Sélection du fichier crypté FichierCrypté = "C:\MesRépertoires\FichierCrypté.txt" // Cryptage du fichier ResCryptage = fCrypte (FichierACrypter, FichierCrypté, MotDePasse, crypteSécurisé , Faux ) // Affichage du message d'erreur si le cryptage n'a pas été effectué SI ResCryptage = Faux ALORS Erreur(ErreurInfo( errMESSAGE )) SINON Info("Le fichier a été crypté") FIN
|
||
Le code suivant permet de crypter un fichier. Le mot de passe est saisi dans un champ de saisie (MotDePasse). La priorité est donnée à la sécurité du cryptage (constante crypteSécurisé ). Le fichier pourra comporter des caractères non-imprimables (booléen Faux ).
|
||
|
// Déclaration des variables
FichierACrypter est une chaîne = "\Mes Fichiers\FichierA.TXT" FichierCrypté est une chaîne = "\Mes Fichiers\FichierB.TXT" ResCryptage est un booléen // Cryptage du fichier ResCryptage = fCrypte (FichierACrypter, FichierCrypté, MotDePasse, crypteSécurisé , Faux ) // Affichage du message d'erreur si le cryptage n'a pas été effectué SI ResCryptage = Faux ALORS Erreur(ErreurInfo( errMESSAGE )) SINON Info("Le fichier a été crypté") FIN
|
