MD5 mit VB?

[aronsoft]

Hallo, ich habe folgendes Problem:

In VB hab ich mir son kleines Programm geproggt, was Dateien, oder Strings Hasht. Ich verwende hierbei den MD5CryptoServiceProvider. Aber, wenn ich mit diesem eine Datei/einen String hashe, kommt nicht XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX raus, sondern irgendwelche ASCII Zeichen, die manchmal sogar garnicht angezeigt werden.


Bin für jeden Tipp dankbar!

 

[CDW]

Du bekommst die Daten "Roh" zurück - also 16 Bytes "as is". Um sie lesbar anzuzeigen, müsstest Du die schon selber in einen String umwandeln - z.B mit StrConv (kommt jetzt darauf an, ob du NET Zeug nutzt oder noch VB5/6)

 

[aronsoft]

Hat sich schon erledigt:

Man mus das Resultat in Byte in Hex umwandeln:

Imports System.Security.Cryptography
Imports System.Text

Function MD5Hash(ByVal Data() As Byte)
   Dim Md5 As MD5CryptoServiceProvider
   Dim Result() As Byte
   Dim Res As String = ""
   Dim Tmp As String = ""

   Result = Md5.ComputeHash(Data)
   For i As Long = 0 To Result.Lengh
      Tmp = Hex(Result(i))
      If Len(Tmp) = 1 Then
         Tmp = "0" & Tmp
      End If
      Res += Tmp
   Next
   Return Res
End Function