Login avec base de données access

Soyez le premier à donner votre avis sur cette source.

Vue 10 296 fois - Téléchargée 2 314 fois

Description

Ce programme montre l'utilisation d'une base de données Access en VB6 dans le cadre d'un formulaire de login. Dans cet exemple, il est aussi possible de modifier son mot de passe.

Source / Exemple :


Public Function LogonUser(UserName As String, Password As String, SetCU As Boolean) As Byte
'0: OK
'1: Bad UserName and/or password
'2: User disabled

 Dim SQL As String, rs As ADODB.Recordset
 SQL = "SELECT * FROM Users WHERE UserName='" & Database.Pure(UserName) & "' AND Password='" & mod_MD5.MD5(Password) & "';"
 Set rs = Database.Conn.Execute(SQL)
 If Database.RsEmpty(rs) Then
  LogonUser = 1
  Else
   If CBool(rs("Disabled")) Then
    LogonUser = 2
    Else
     LogonUser = 0
     If SetCU Then
      With CurrentUser
       .Admin = rs("Admin")
       .Idx = rs("Idx")
       .Password = rs("Password")
       .UserName = rs("UserName")
      End With
     End If
   End If
 End If
 rs.Close
 Set rs = Nothing
End Function

Conclusion :


Mots de passe sous la forme
>> UserName-Password => droits

>> Admin-admin => administrateur
>> Autre-autre => utilisateur simple
>> MonsieurX-bonjour => utilisateur désactivé

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
2501
Date d'inscription
jeudi 14 juillet 2005
Statut
Contributeur
Dernière intervention
5 juin 2016
1
Nouvelle version 4 ans après ...
Messages postés
565
Date d'inscription
mercredi 19 mai 2004
Statut
Membre
Dernière intervention
30 avril 2008
1
asser bien a aprofondir , avec presque n'importe quel crackpass ca te fai saute la form du mot de passe et tenvoi vers la principale lideale est de metre le mot de pass sur la form principal et de camouflé les otres element seulement apre la saisie du code valid(je ne parle pas vraiment de ton prog mais y a un rapport ;) )
Messages postés
10
Date d'inscription
samedi 21 août 2004
Statut
Membre
Dernière intervention
22 mars 2008

Si ce code ne sert qu'à défier le décriptage du mot de passe, il ne sert pas à grand chose...

J'aurais aimé voir le mot de passe initial qu'il faut taper pour entrer, ce qui aurait permis de vérifier la condition TRUE.

Aussi, pour qu'il devienne vraiment utile, faudrait pouvoir enregistrer la clé générée (cryptée) par le code lorsqu'on tappe le mot qui doit servir de mot de passe pour ensuite l'inscrire dans le programme de protection (validation du mot). Avec un tel utlitaire, on serait bien servi.

Bravo pour concept - je mets un 8.
Messages postés
78
Date d'inscription
jeudi 17 février 2005
Statut
Membre
Dernière intervention
26 décembre 2005

msdxm.ocx ca aurait été simpa de l'inclure ou alors de donner un liens pour télécharger.

ps: il suffit de faire sauter 'If (ID1 <> ID2) Or (PAS1 <> PAS2) Then' avec windasm pour entrer

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.