Rappel Authentifier(NomUtilisateur : Caractere, SignatureDemandee : Binaire, SignatureAttendue : Binaire);
Le paramètre NomUtilisateur contient le nom de l'utilisateur demandé. Les paramètres SignatureDemandee et SignatureAttendue contiennent respectivement la signature demandée par le client et attendue par le serveur au regard du secret partagé.
La valeur de retour doit suivre la convention de fonctionnement de l'énuméré RappelReponse.
Cette méthode de rappel correspond à la réception de la commande APOP du protocole Post Office Protocol (POP).
/****************************************************************/
Rappel ClientMessagerie.Authentifier(NomDeLUtilisateur : Caractere, SignatureDemandee : Binaire, SignatureAttendue : Binaire)
/* Objet : Authentifie l'utilisateur. */
/****************************************************************/
Variable
/******/
MonClient : MonClientMessagerie;
U : Nul Ou Utilisateur;
Debut
EcrireExtension("AppMls", MonClient);
MonClient.Identification=Caractere(Ip1)+"."+Caractere(Ip2)+"."+Caractere(Ip3)+"."+Caractere(Ip4)+"/"+Caractere(Port, "&&&");
Si ActiverJournal Alors
EcrireJournal(MonClient, "Authentifier("+NomDeLUtilisateur+")");
Fin Si
Si SignatureDemandee!=SignatureAttendue Alors
Retourner RappelEchecFonctionnel;
Fin Si
U=ChercherUtilisateur(NomDeLUtilisateur);
Si U==Nul Alors
Retourner RappelEchecFonctionnel;
Fin Si
MonClient.BoiteAuxLettres=BoiteAuxLettresElectronique(U, ");
Retourner RappelSucces;
Fin Rappel
- | - | - | - | - | - | - | - | - |