Comment créer un système de login en VB.net

Messages postés
25612
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 mai 2019
- - Dernière réponse : maxoufox
Messages postés
1
Date d'inscription
dimanche 23 juin 2013
Statut
Membre
Dernière intervention
23 juin 2013
- 23 juin 2013 à 10:28
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

http://codes-sources.commentcamarche.net/faq/1337-comment-creer-un-systeme-de-login-en-vb-net

Afficher la suite 
jordane45
Messages postés
25612
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 mai 2019
311 -
Bonjour,

Sans vouloir être désagréable, en lisant le titre j'esperais trouver quelque chose de plus "poussé"... Password Crypté.. utilisation de class...etc....

La il n'est question QUE de lire un fichier texte. ( avec un code faux au passage..)

ReadAllLines fait partie de FILE => File.ReadAllLines(MonFIchierTXT)

Dans ta boucle tu déclare USR et MDP... dans jamais les initialiser...
Dim usr As String
Dim mdp As String
If TextBox1.Text usr And TextBox2.Text mdp Then
......


Je te laisse chercher la correction a y faire ... !!


Cordialement,
Jordane
jordane45
Messages postés
25612
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 mai 2019
311 -
Bonjour,

il semble qu'il y ai quelques erreurs dans ce code ......

- Usr et Mdp sont déclarés mais jamais initialisés...( donc toujours à vide..)
- ReadAllLines() ne fait pas parti de Streamreader mais de File.

A la rigueur ce "tuto" devrait se nomer lecture d'une textbox et d'un fichier texte... tout au plus..

Vu le titre je m'attendais à quelque chose de plus "utile" ...
-> utilisation de class, cryptage des passwords... utilisation d'un BDD ou au moins des MySettings pour stocker les infos..

Enfin bon.. il en faut pour tous les niveaux... quoi qu'il en soit, il faudrait déjà commencer par corriger le code
Après, même en gardant cette simplicité, il y a largement de quoi améliorer ce code..( recherche dans un tableau autrement que par une boulce for each.. par exemple.. )
Adn56
Messages postés
1220
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
1 -
100% d'accord avec jordane45, franchement faut pas poster nawak non plus.
Autre exemple tu lis un tableau() dans une string toi ?
ralala en plus niveau sécu y'a qu'a ouvir le fichier texte avec le notepad pour avoir accés et puis basta. Je ne parle même pas des gestions d'erreur si le fichier n'éxiste pas ou pire s'il est vide lol

fais au mois un truc du style :
try
Dim Sr As New StreamReader(Application.StartupPath & "\destination_secu.txt")
'ou mieux avec un Using Sr as new... qui dispose à la fermeture du end using
Dim destinataire As New List(Of String)

' lecture compléte des fichiers
While Not Sr.EndOfStream()
destinataire.Add(Sr.ReadLine())
End While
Dr.Close()
Dr.Dispose()
catch
... end blabla

bonne prog
joypoet
Messages postés
1
Date d'inscription
mercredi 10 avril 2013
Statut
Membre
Dernière intervention
10 avril 2013
-
salut tlm
et si j'ai les utilisateur et les mdp sur une base donnes access
qu'est ke dois je faire sachant que je suis un debutant
pourquoi ce code marche pas (me donne erreur sur mdp.utilisateur : je veux qu'il compare le mdp que j'ai entre dans VB avec le mdp de l'utilisateur entre dans ACCESS

Private Sub OK_Click()If pseudo "" Or mdp "" Then
MsgBox "remplir les champs "
End If
With Adodc2.Recordset
.MoveFirst
.Find ("pseudo =") & utilisateur
If .EOF Then
MsgBox "utilisateur inexistant"
Else
.Find ("mdp=") & mdp.utilisateur
If .EOF Then
MsgBox "mdp incorrect"
Else
Form1.Hide
Menu.Show
End If
End If
End With
End Sub
maxoufox
Messages postés
1
Date d'inscription
dimanche 23 juin 2013
Statut
Membre
Dernière intervention
23 juin 2013
-
eu...
il faut juste un moyen de vérifier que le pass et l'username est dans le fichier

imports System.IO

Dim key As String = TXTuser & ":" & TXT pass
Dim file As String = "c:/mon-file.txt"
Dim read As String = file.Read()
If key 'méthode de vérification que key est dans file
then
msgbox("correct!")
else
End
end If
Commenter la réponse de jordane45