[Idee] Visual Basic Md5 Check für ServerSided und ClientSided

Darki1

Also wäre es möglich, mit VB.net einen MD5 Checker umzusetzen wie das Flyff.a und .b System das würde nämlich nice sein für die es nicht funktioniert.

Müsste aufjedenfall ein Programm sein , dass 2 Dateien mit einem Hash erstellt und das gleichzeitig Serversided im Client checked ob da der gleiche MD5 Hash ist.

Ich würde eure Hilfe begrüßen.

Sacred

Evtl. könnte man das mit einer ReadAllText Funktion machen^^

Darki1

Zitat von Sacred;169676

Evtl. könnte man das mit einer ReadAllText Funktion machen^^

Joa schon muss ja aber auch Clientsided dann ausgelesen werden und voher 2 Dateien mit einem bestimmten MD5 Hash erstellt werden.

ichbinniemand

ja es wäre möglich
1. hash von der datei erstellen

Code

[COLOR=darkblue]Imports[/COLOR] System.Security.Cryptography
[COLOR=darkblue]Imports[/COLOR] System.IO
[COLOR=darkblue]Imports[/COLOR] System.Net


[COLOR=darkblue]Public[/COLOR] [COLOR=darkblue]Class[/COLOR] Form1
    [COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Function[/COLOR] GetMD5Hash([COLOR=darkblue]ByVal[/COLOR] SourceFile [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR]) [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR]
        [COLOR=darkblue]Dim[/COLOR] ByteSourc() [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Byte[/COLOR] File.ReadAllBytes(SourceFile)
        [COLOR=darkblue]Dim[/COLOR] Md5 [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]New[/COLOR] MD5CryptoServiceProvider()
        [COLOR=darkblue]Dim[/COLOR] ByteHash() [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Byte[/COLOR] [COLOR=black]=[/COLOR] Md5.ComputeHash(ByteSource)
        [COLOR=darkblue]Return[/COLOR] Convert.ToBase64String(ByteHash)
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Function


[/COLOR]

Alles anzeigen

2. Hash senden (z.b. über nen streamwriter)
der folgende code wird dank einem bug in der forensoftware (Vbulletin3.8.5) in 2 codeabschnitte unterteilt nicht wundern

Code

Dim Writer As New IO.StreamWriter(Client.GetStream)
Writer.WriteLine(

Code

GetM5Hash("Pfad\Datei.b"))
Writer.Flush()
Writer.Close()

3. Abrufe (Streamreader) und abgleichen und wenn falsch Verbindung Schliessen

Code

Dim Reader As New StreamReader(Client.GetStream)
If Not (Reader.ReadLine = GetMD5Hash("Pfad\Datei.b")) Then Client.Close

so sollte es theoretisch gehen

edit Warum über ReadAllText? jede verschlüsselung wird nicht über text sondern über bytes gemacht bzw der text wird zu byte convertirt

Darki1

Danke für die Vorlage ich werde es versuchen umzusetzen.

Sedrika

Dann bekomm aber auch noch hin, dass dieser nicht gefaked wird =) Bsp mit damum check.

ichbinniemand

das würde so gehen

Code

If New IO.FileInfo(Application.ExecutablePath).LastWriteTime <> New IO.FileInfo(My.Application.Info.DirectoryPath + "\Datei.a").LastWriteTime Then
            MsgBox("Datei.a ist fehlerhaft")
            End
        End If

oder wenn man wirklich sicher gehen will kann mans mit jeder datei abprüfen vorrausgesetzt das topdirectory wird immer gleichzeitig mit der .a datei gepatcht

Code

For Each f As String In My.Computer.FileSystem.GetFiles(My.Application.Info.DirectoryPath, FileIO.SearchOption.SearchTopLevelOnly)
            If New IO.FileInfo(f).LastWriteTime <> New IO.FileInfo(My.Application.Info.DirectoryPath + "\Datei.a").LastWriteTime Then
                MsgBox("Datei.a ist fehlerhaft")
                End
            End If
        Next

[Idee] Visual Basic Md5 Check für ServerSided und ClientSided

Jetzt mitmachen!

SCHNELLZUGRIFF

HILFE & COMMUNITY

RECHTLICHES