Hash mit MD5 in VB.NET

Es ist wichtig zu beachten, dass MD5 nicht mehr als ein guter Weg, um hash-Daten, die Sie schützen möchten. Siehe wikipedia für eine Diskussion der Schwachstellen.

Lesen Sie diese Antwort für hashing mit SHA.

Passwörter, die Sie sparen würde die hash des Benutzers PW für die DB. Da es ist one-way (es ist nicht leicht den ursprünglichen Wert zurück, aus dem hash), dies verhindert, dass jemand wie ein Hausmeister oder Kunden-service-rep in der Lage, um zu sehen die tatsächlichen Passwörter in der Datenbank.

Imports System.Security.Cryptography
Imports System.Text

Shared Function GetHash(theInput As String) As String

    Using hasher As MD5 = MD5.Create()    ' create hash object

        ' Convert to byte array and get hash
        Dim dbytes As Byte() = 
             hasher.ComputeHash(Encoding.UTF8.GetBytes(theInput))

        ' sb to create string from bytes
        Dim sBuilder As New StringBuilder()

        ' convert byte data to hex string
        For n As Integer = 0 To dbytes.Length - 1
            sBuilder.Append(dbytes(n).ToString("X2"))
        Next n

        Return sBuilder.ToString()
    End Using

End Function

Je nachdem, wie Sie es speichern möchten, anstatt ein mit StringBuilder zum erstellen einer hex-Zeichenfolge, die Sie verwenden können Convert.ToBase64String():

Return Convert.ToBase64String(dbytes)
' MyWeakPassword hashed:
'     to hex: DB28F1BE20A407398171295DD0D191E2
'  to Base64: 2yjxviCkBzmBcSld0NGR4g==

Hashing getan werden sollte, mit salt. Dies ist-Daten Hinzugefügt, um den hash zu machen, das Ergebnis weniger vorhersehbar (es gibt Wörterbücher der Hash-Ergebnisse der gemeinsamen PW wie "Passwort"; Salz-das Ergebnis verändert):

Shared Function GetHash(theInput As String, theSalt As String) As String
...
      hasher.ComputeHash(Encoding.UTF8.GetBytes(theInput & theSalt))

Salz sollte erstellt werden mit der Cryptographic random number generator, wie gezeigt, in der SHA-Version. Konvertieren Sie das Salz zum text (hex oder Base64), dann verbinden sich mit dem PW um den PW-hash.

Überprüfen/vergleichen, die der Eintrag eines Benutzers, einfach den hash der Eingabe und vergleicht es mit dem hash in der Datenbank gespeichert, mit dem gleichen Salz (das heißt, das Salz muss, um gerettet zu werden):

 Shared Function CheckHash(hashedStr As String, newInput As String) As Boolean
    ' get the hash value of user input: 
    Dim newHash  As String = GetHash(newInput & dbSalt) 

    ' return comparison
    Return String.Compare(newHash, hashedStr, InvariantCultureIgnoreCase)
 End Function

Wie geschrieben, die GetHash - Funktion verwendet werden soll, so etwas wie ein CryptoTools Klasse. Da es Shared/Static der Klasse muss nicht instanziert werden:

  thisHash = CryptoTools.GetHash(strToHash) 

Hinweis: Hashing groß-und Kleinschreibung, so foobar wird in einem unterschiedlichen hash als FooBar oder FOOBAR. Erstellen Sie eine groß-und Kleinschreibung system, konvertieren Sie die ursprüngliche Zeichenfolge (z.B. ein Passwort) in Kleinbuchstaben um, bevor Sie berechnen Sie den MD5-hash-Wert gespeichert wird, und tun das gleiche für den Wert, den Sie später eingeben:

' ToLowerInvariant allows for foreign char sets
Dim str As String = PWTextBox.Text.ToLowerInvariant

If CheckHash(dbHashedValue, str) Then
    ' okie dokie
Else
    ' failed
End If

InformationsquelleAutor Nat Pongjardenlarp

   Private Function GetHash(strToHash As String) As String

    Dim md5Obj As New System.Security.Cryptography.MD5CryptoServiceProvider
    Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash)

    bytesToHash = md5Obj.ComputeHash(bytesToHash)
    Dim strResult As New StringBuilder

    For Each b As Byte In bytesToHash
        strResult.Append(b.ToString("x2"))
    Next

    Return strResult.ToString

End Function

InformationsquelleAutor mirko cro 1234