Hallo,
gleich mal vorweg: ich bin neu in der Welt von VB, habt gnade mit mir
möchte gerne folgende funktion in VB zum laufen bekommen, ich sag mal sie läuft ja auch schon, nur nicht so wie es soll.
PHP Funktion:
Bevor gefragt wird, wozu man es braucht: (kurz gefasst) ein Spiel benutzt Mods die werden dort mit ein MD5 hash kontrolliert ob jeder Spieler die selben/gleichen/identischen Mods auch hat.
Mit dem Script kann man auf einer Seite die Mods anbieten den MD5 hash angeben dieser ist auch Identisch mit dem schon im Spiel vorhandenn wenn es sich um den 100% gleichen handelt. Es handelt sich um zip Datein.
Und das gleiche soll auch lokal(die zip's sind also auf den Rechner) mit dem VB Programm passiere.
Nun meine bisherige Funktion in VB
Der MD5 Hash wird übergeben und angezeigt, soweit so gut, nur es ist leider der Falsche.
Wenn man in PHP sowie im VB Script den Teil mit dem Anhängen des Dateinamens wegläst dann ist es der gleiche Hash.
Das PHP Script ist aber richtig da mir dort der selbe Hash angezeigt wird wie im Spiel.
Interssanterweise wird mir der MD5 bei beiden identisch angezeigt wenn es sich um eine TXT Datei handelt. Nur leider nicht bei zip, oder einer anderen.
Muss man in VB noch irgend etwas machen damit das Funktioniert hab mich schon zu tode gesuchmaschint aber leider nichts entsprechndes gefunden.
Hoffe hier kann mir jemand helfen.
Gruß
Hugoo00
gleich mal vorweg: ich bin neu in der Welt von VB, habt gnade mit mir
möchte gerne folgende funktion in VB zum laufen bekommen, ich sag mal sie läuft ja auch schon, nur nicht so wie es soll.
PHP Funktion:
Bevor gefragt wird, wozu man es braucht: (kurz gefasst) ein Spiel benutzt Mods die werden dort mit ein MD5 hash kontrolliert ob jeder Spieler die selben/gleichen/identischen Mods auch hat.
Mit dem Script kann man auf einer Seite die Mods anbieten den MD5 hash angeben dieser ist auch Identisch mit dem schon im Spiel vorhandenn wenn es sich um den 100% gleichen handelt. Es handelt sich um zip Datein.
Und das gleiche soll auch lokal(die zip's sind also auf den Rechner) mit dem VB Programm passiere.
Nun meine bisherige Funktion in VB
VB.NET-Quellcode
- Public Function MD5Hash(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 StreamReader = New StreamReader(sFile, Encoding.ASCII)
- Dim l As String
- l = FN.ReadToEnd()
- l &= datei_l 'datei_l Private Variable mit dem Dateinamen ohne .EXT
- Dim ll() As Byte
- ll = Encoding.ASCII.GetBytes(l)
- MD5.ComputeHash(ll)
- 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
Der MD5 Hash wird übergeben und angezeigt, soweit so gut, nur es ist leider der Falsche.
Wenn man in PHP sowie im VB Script den Teil mit dem Anhängen des Dateinamens wegläst dann ist es der gleiche Hash.
Das PHP Script ist aber richtig da mir dort der selbe Hash angezeigt wird wie im Spiel.
Interssanterweise wird mir der MD5 bei beiden identisch angezeigt wenn es sich um eine TXT Datei handelt. Nur leider nicht bei zip, oder einer anderen.
Muss man in VB noch irgend etwas machen damit das Funktioniert hab mich schon zu tode gesuchmaschint aber leider nichts entsprechndes gefunden.
Hoffe hier kann mir jemand helfen.
Gruß
Hugoo00