System login windev

System login windev

Ajouter un utilisateur :

 // Code pour ajouter un utilisateur  
 Admin.login="mouhcin"  
 Admin.passe=Crypte("123","mouhcin",crypteRC516,encodeBASE64)  
 HAjoute(Admin)  

Login :

HLitRecherche(Admin,login,sai_login,hIdentique)   
  SI HTrouve(Admin) ALORS   
     SI sai_pass=Décrypte(Admin.passe,"mouhcin",crypteRC516,encodeBASE64) ALORS   
       Ferme()   
       SINON   
          Erreur("")   
     FIN   
  FIN