Hallo zusammen,
ich bin gerade dabei einen Login mit MD5 Verschlüsselung zu realisieren.
Leider klappt das noch nicht - immer "falsche daten"
Wenn ich den MD5 Teil weglasse klappt alles wunderbar. Es muss also an der Verschlüsselung liegen.
(ich habe auch schon versucht Benutzername UND Passwort zu verschlüsseln -> ging auch nicht)
Ich habe mir hierfür eine Anleitung
aus dem Internet als Vorlage gesucht.
Hier ist mein Code:
Das ist der MD5 code:
Das ist ein Modul, das ich erstellt habe.
ich bin gerade dabei einen Login mit MD5 Verschlüsselung zu realisieren.
Leider klappt das noch nicht - immer "falsche daten"
Wenn ich den MD5 Teil weglasse klappt alles wunderbar. Es muss also an der Verschlüsselung liegen.
(ich habe auch schon versucht Benutzername UND Passwort zu verschlüsseln -> ging auch nicht)
Ich habe mir hierfür eine Anleitung
aus dem Internet als Vorlage gesucht.
Hier ist mein Code:
Code:
Imports System.Data.OleDb
Imports System
Imports System.Windows.Forms
Imports System.Security.Cryptography
Imports System.Text
Public Class frmLogin
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs)
'Prüfer_registrieren.Show()
'Me.Hide()
End Sub
Private Sub btnAbbrechen_Click(sender As Object, e As EventArgs) Handles btnAbbrechen.Click
Me.Close()
End Sub
Private Sub btnAnmelden_Click(sender As Object, e As EventArgs) Handles btnAnmelden.Click
Dim conn As OleDbConnection
conn = New OleDbConnection
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Acer\Desktop\IHK-Bewertung_04-07-2019\ITAPIHK2018.accdb;
Persist Security Info=False;"
conn.Open() ' Verbindung öffnen
'Definition Benutzer / Passwort -> MD5 verschlüsselt
Dim benutzer As String = (txtNutzername.Text)
Dim passwort As String = MD5StringHash(txtPasswort.Text)
Dim myAdapter As New OleDbDataAdapter
Dim Abfrage As String = "SELECT * FROM tbl_logpruefer WHERE User='" + Replace(benutzer, " ", "") + "' AND PW='" & Replace(passwort, " ", "") & "'"
' Das ist die Abfrage welche Prüft ob der Account existiert.Die txt_benutzer ist die Textbox in der der Benutzername eingeben wird und txt_passwort bekommt das Passwort
Dim myCommand As New OleDbCommand
myCommand.Connection = conn
myCommand.CommandText = Abfrage
myAdapter.SelectCommand = myCommand
Dim myData As OleDbDataReader
myData = myCommand.ExecuteReader()
' Hier startet man die Abfrage
If myData.HasRows Then
' Wenn die Abfrage Einträge enthält / also der Benutzer und das Passwort stimmen überein
MsgBox("Einloggen erfolgreich !")
conn.Close()
conn.Open()
Bewertungsbogen.Show()
Me.Hide()
Else 'Sonst wird angezeigt das die Daten falsch sind
MsgBox("Falsche Daten")
End If
End Sub
End Class
Das ist der MD5 code:
Das ist ein Modul, das ich erstellt habe.
Code:
Imports System.Security.Cryptography
Imports System.Text
Module Verschlüsselung
Public Function MD5StringHash(ByVal strString As String) As String
Dim MD5 As New MD5CryptoServiceProvider
Dim Data As Byte()
Dim Result As Byte()
Dim Res As String = ""
Dim Tmp As String = ""
Data = Encoding.ASCII.GetBytes(strString)
Result = MD5.ComputeHash(Data)
For i As Integer = 0 To Result.Length - 1
Tmp = Hex(Result(i))
If Len(Tmp) = 1 Then Tmp = "0" & Tmp
Res += Tmp
Next
Return Res
End Function
End Module