Per MD5 Game Version Überprüfen?

[Bluespide]

ich hab da sone Fuktion

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Imports System.Security.Cryptography Imports System.Text Imports System.IO Public Function MD5FileHash(ByVal sFile As String) As String Dim MD5 As New MD5CryptoServiceProvider Dim Hash As Byte() Dim Result As String = "" Dim Tmp As String = "" Dim FN As New FileStream(sFile, FileMode.Open, FileAccess.Read, FileShare.Read, 8192) MD5.ComputeHash(FN) FN.Close() Hash = MD5.Hash For i As Integer = 0 To Hash.Length - 1 Tmp = Hex(Hash(i)) If Len(Tmp) = 1 Then Tmp = "0" & Tmp Result += Tmp Next Return Result End Function

---