Die Community zu .NET und Classic VB.

Startseite / Tipps / VB.NET-Tipp 0044: Den MD5-Hash eines Strings berechnen

VB.NET-Tipp 0044: Den MD5-Hash eines Strings berechnen

 von Daniel Noll

Schwierigkeitsgrad:

Framework-Version(en): .NET Framework 1.0, .NET Framework 1.1, .NET Framework 2.0, .NET Framework 3.0, .NET Framework 3.5

.NET-Version(en): Visual Basic 2002, Visual Basic 2003, Visual Basic 2005, Visual Basic 2008

Download: Download des Beispielprojektes [1,31 KB]

' Dieser Quellcode stammt von http://www.activevb.de
' und kann frei verwendet werden. Für eventuelle Schäden
' wird nicht gehaftet.

' Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
' Ansonsten viel Spaß und Erfolg mit diesem Source!

' Projektversion:   Visual Studio 2002/2003
' Option Strict:    Aus
' Option Explicit:  An
'
' Referenzen: 
'  - System
'  - System.Data
'  - System.XML
'
' Imports: 
'  - Microsoft.VisualBasic
'  - System
'  - System.Collections
'  - System.Data
'  - System.Diagnostics
'

' ##############################################################################
' ################################# modMD5.vb ##################################
' ##############################################################################
Imports System.Security.Cryptography
Imports System.Text

Module modMD5
    Sub Main()
        Dim str As String = "ActiveVB.de"

        Console.WriteLine("Der MD5-Hash von {0} ist ""{1}""", str, _
            ComputeMD5(str))
    End Sub

    Private Function ComputeMD5(ByVal str As String) As String
        Return ComputeMD5(str, Encoding.GetEncoding("iso-8859-1"))
    End Function

    Private Function ComputeMD5(ByVal str As String, _
        ByVal encoding As Encoding) As String

        Dim input As Byte() = encoding.GetBytes(str)
        Dim hash As Byte() = (New MD5CryptoServiceProvider()).ComputeHash(input)

        Return encoding.GetString(hash)
    End Function
End Module

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 2 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.