HEX Editor - Ladezeiten fix?

  • VB.NET

Es gibt 15 Antworten in diesem Thema. Der letzte Beitrag () ist von SeriTools.

    HEX Editor - Ladezeiten fix?

    Hallo,

    ich arbeite momentan an einem Programm das auch Dateien (meist .exe) wie ein HEX Editor öffnet, gestimmte Zeilen ändert und wieder speichert.

    Momentan sieht mein Code so aus:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Public Class Form1
    4. Dim HEX As String
    5. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    6. If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
    7. Using File As New IO.FileStream(OpenFileDialog1.FileName, IO.FileMode.Open)
    8. Dim value As Integer = File.ReadByte
    9. Do Until value = -1
    10. HEX = HEX & (value.ToString("X2"))
    11. value = File.ReadByte
    13. Loop
    14. End Using
    15. Richtextbox1.text = HEX
    16. End If
    17. End Sub
    19. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    20. Try
    21. If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
    22. Dim fs As New IO.FileStream(SaveFileDialog1.FileName, IO.FileMode.Create)
    24. For x As Integer = 0 To HEX.Length - 1 Step 8
    25. Dim ui As UInt32
    26. ui = Convert.ToUInt32(HEX.Substring(x, 8), 16)
    27. Dim b() As Byte = BitConverter.GetBytes(ui)
    28. fs.Write(b, 0, b.Length)
    29. Next
    30. fs.Close()
    31. End If
    32. Catch
    34. End Try
    35. End Sub
    37. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    38. Dim DOSmode As String = "546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F6465"
    39. Dim noDOSmode As String = "0000000000000000000000000000000000000000000000000000000000000000000000000000"
    40. RichTextBox1.Text = Replace(RichTextBox1.Text, DOSmode, noDOSmode)
    41. End Sub
    42. End Class


    Wenn ich jedoch eine größere Datei öffne, braucht diese zu lange (ich habe immer abgebrochen) um zu laden.
    Gibt es eine einfachere möglichkeit?
    Danke im Vorraus. :)

    Oder Du liest die Datei blockweise (hier ohne Blockhandling):

    VB.NET-Quellcode

    1. Dim bb As Byte() = New Byte(255) {}
    2. Using fs As New IO.FileStream("c:\Temp\xxx.yyy", IO.FileMode.Open, IO.FileAccess.Read)
    3. fs.Read(bb, 0, 256)
    4. End Using
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @milaim: Threads zu verwenden löst zwar das Problem, dass die GUI nicht mehr reagiert, aber die lange Ladezeit würde natürlich bleiben.

    Was die Ausführungsgeschwindigkeit des Codes erhöhen würde, wäre z. B. die Verwendung eines StringBuilders. Wenn du aber wirklich große Dateien lesen möchtest, solltest du dich allerdings von deinem Ansatz komplett verabschieden und immer nur (dynamisch) die Range lesen, die tatsächlich angezeigt werden soll.

    ErfinderDesRades schrieb:

    naja, da will doch jemand den Byte-Code einer Exe verändern, und sie anschließend trotzdem starten.
    Oft ein Versuch von Crackern, Beschränkungen von Shareware-Versionen zu unterlaufen.


    Nein, ich möchte lediglich dass das Programm diesen Teil:


    automatisch in diesen ändert:


    Und falls gelegentlich, diesen Teil:


    ebenfalls unsichtbar macht:


    Abgesehen davon soll es nur eine von mehreren Funktionen sein.
    Bitte sag jetzt nicht ich sollte den Code obfuscaten oder sonstiges tun, ich möchte es so lösen. :)

    Hat sich erledigt, funktionierender Code:

    VB.NET-Quellcode

    1. Imports System.IO
    2. Public Class Form1
    4. Dim FileX As String
    5. Dim DOSmode As String = "54-68-69-73-20-70-72-6F-67-72-61-6D-20-63-61-6E-6E-6F-74-20-62-65-20-72-75-6E-20-69-6E-20-44-4F-53-20-6D-6F-64-65"
    6. Dim noDOSmode As String = "00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00"
    8. Private Function StreamFile(ByVal filename As String) As Byte()
    9. Dim fs As New FileStream(filename, FileMode.Open, FileAccess.Read)
    10. Dim FileData As Byte() = New Byte(fs.Length - 1) {}
    11. fs.Read(FileData, 0, System.Convert.ToInt32(fs.Length))
    12. fs.Close()
    13. Return FileData
    14. End Function
    16. Private Function UnStreamFile(ByVal filename As String, ByVal FileBytes() As Byte)
    17. Try
    18. Dim FS As New FileStream(filename, FileMode.Create, FileAccess.Write)
    19. FS.Write(FileBytes, 0, FileBytes.Length)
    20. FS.Close()
    21. FS.Dispose()
    22. Return True
    23. Catch ex As Exception
    24. Return False
    25. End Try
    26. End Function
    28. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    29. OpenFileDialog1.ShowDialog()
    31. End Sub
    33. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    34. If CheckBox1.Checked = True Then
    35. FileX = Replace(FileX, DOSmode, noDOSmode)
    36. End If
    37. SaveFileDialog1.ShowDialog()
    38. End Sub
    40. Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
    41. Dim FileByt() As Byte
    42. FileByt = StreamFile(OpenFileDialog1.FileName)
    43. FileX = BitConverter.ToString(FileByt)
    44. End Sub
    46. Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
    47. Dim FileByt() As Byte
    48. FileByt = FileX.Split("-"c).Select(Function(n) Convert.ToByte(Convert.ToInt32(n, 16))).ToArray()
    49. UnStreamFile(SaveFileDialog1.FileName, FileByt)
    50. End Sub
    52. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    53. FileX = Replace(FileX, DOSmode, noDOSmode)
    54. End Sub
    55. End Class

    Hey,
    das "This program cannot be run in DOS mode" gehört zur PE dazu. Da istn kleines Dos Programm am Anfang dass diesen Text ausgibt, falls es im DOS Modus ausgeführt wird. Der Dateipfad ist der Pfad zur Debuginfo, da hat entweder der Entwickler geschlammt oder die Debugversion veröffentlicht.