Dim md5 As New System.Security.Cryptography.MD5CryptoServiceProvider
 
        Dim s As String = "Porcupine Pie; Vanilla Soup"
        Dim es As String = String.Empty
 
        Dim b() As Byte = md5.ComputeHash(System.Text.Encoding.ASCII.GetBytes( _
          s))
 
        For i As Integer = 0 To 15
            es += b(i).ToString("x2")
        Next
 
        Debug.WriteLine(es)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist