Rutger
Legacy Member
Deze code werkt al gedeeltelijk : het encrypteert al wel, maar genereert precies altijd dezelfde code, wat dus ook niet de bedoeling is denk ik, kan iemand me helpen misschien.
Dim sQuery As String = "SELECT Paswoord FROM Gebruikers WHERE (Naam='" & strNaam & "')"
Dim objCn As New OleDb.OleDbConnection(connectionString)
Dim command As New OleDb.OleDbCommand(sQuery, objCn)
objCn.Open()
sString = command.ExecuteScalar
objCn.Close()
Dim sTekst As String = ""
Dim HashedDataBytes As Byte()
Dim encoder As New System.Text.UTF8Encoding
Dim md5Hasher As New MD5CryptoServiceProvider
HashedDataBytes = md5Hasher.ComputeHash(encoder.GetBytes(sTekst))
Dim b As Byte
For Each b In HashedDataBytes
sEncrypted &= b
Next b
objCn.Open()
Dim sQuery As String = "SELECT Paswoord FROM Gebruikers WHERE (Naam='" & strNaam & "')"
Dim objCn As New OleDb.OleDbConnection(connectionString)
Dim command As New OleDb.OleDbCommand(sQuery, objCn)
objCn.Open()
sString = command.ExecuteScalar
objCn.Close()
Dim sTekst As String = ""
Dim HashedDataBytes As Byte()
Dim encoder As New System.Text.UTF8Encoding
Dim md5Hasher As New MD5CryptoServiceProvider
HashedDataBytes = md5Hasher.ComputeHash(encoder.GetBytes(sTekst))
Dim b As Byte
For Each b In HashedDataBytes
sEncrypted &= b
Next b
objCn.Open()
