Salut
Je suis en train de developper une application vb 2008
Je souhaiterais savoir comment faire pour creer un formulaire vb pour le controle d'acces avec mots de passe.
Ma base de données est sur mysql
Merci de m'aiguiller.
Salut
Je suis en train de developper une application vb 2008
Je souhaiterais savoir comment faire pour creer un formulaire vb pour le controle d'acces avec mots de passe.
Ma base de données est sur mysql
Merci de m'aiguiller.
Bonjour,
Comme ta demande n'est pas précise, je vais te réponde comme j'ai compris ta question.
Pour une fenêtre d'authentification tu peux déjà utiliser le "Formulaire de Connexion" (Ajouter > Nouvel élément > Formulaire de Connexion)
Ce module te permet de gérer les connexions avec anthentification par login mot de passe. Tu pourras après ça améliorer le code.
Ensuite, pour ce qui est de sécuriser les mots te passes, je peux te proposer un module :
Ce module te permet de hacher en MD5 (chaîne de 32 caractères hexadécimaux) les mots de passe.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60 Imports System Imports System.Security.Cryptography Imports System.Text Module HachageMd5 ''' <summary> ''' Fonction de hachage d'une chaîne de caractère en MD5 en une chaîne de 32 caractères hexadécimaux. ''' </summary> ''' <param name="input">Chaîne de caractères à hacher.</param> ''' <returns>Chaîne de 32 caractères hexadécimaux.</returns> ''' <remarks></remarks> Function hachageEnMD5(ByVal input As String) As String ' Création d'un nouvelle instance MD5 Dim md5Hasher As MD5 = MD5.Create() ' Conversion de l'argument en un tableau de bit puis hachage. Dim data As Byte() = md5Hasher.ComputeHash(Encoding.Default.GetBytes(input)) ' Création d'une instance de Stringbuilder ' pour collecter les bits et créer la chaîne. Dim sBuilder As New StringBuilder() ' Formattage de chaque bit du tableau haché en caractère hexadécimal. Dim i As Integer For i = 0 To data.Length - 1 sBuilder.Append(data(i).ToString("x2")) Next i ' Renvoi de la chaîne hexadécimale. Return sBuilder.ToString() End Function ''' <summary> ''' Comparaison d'une chaîne de caractères à une référence de hachage. ''' </summary> ''' <param name="input">Fonction dont le hachage en MD5 doit être comparé.</param> ''' <param name="hash">Référence à comparer (Chaîne hachée).</param> ''' <returns>Booléen : Vrai si les hachages des chaînes sont identiques, Faux sinon</returns> ''' <remarks>La première chaîne est une chaine de caractère normale qui sera hachée en MD5 pour la comparaison. La seconde est une chaîne déjà hachée.</remarks> Function verifyValeurHachage(ByVal input As String, ByVal hash As String) As Boolean ' Hachage du première paramêtre. Dim hashOfInput As String = hachageEnMD5(input) ' Création d'une instance StringComparer et comparaison des hachages. Dim comparer As StringComparer = StringComparer.OrdinalIgnoreCase '202cb962ac59075b964b07152d234b70 'd9b1d7db4cd6e70935368a1efb10e377 If 0 = comparer.Compare(hashOfInput, hash) Then Return True Else Return False End If End Function End Module
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager