String array (aus bytes) wieder in datei umwandeln

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    String array (aus bytes) wieder in datei umwandeln

    Hi, kann mir evtl einer helfen, wär cool, hab auch schon selbst vieles probiert (bin momentan noch auf kein ergebnis gekommen).
    Wie die "Überschrift" schon beschreibt lese ich aus einer datei die bytes aus (in eine string array) und will diese string array aus bytes wieder in eine datei (.exe) umwandeln.

    Der auslese teil des project klappt schonmal ganz gut:

    VB.NET-Quellcode

    1. 'Global
    2. Dim FilePath As String = "D:\test\test.exe"
    3. Dim public_sb As String
    6. 'in der funktion
    7. 'Datei in bytes (trennzeichen / )
    8. Dim FileBytes() As Byte = My.Computer.FileSystem.ReadAllBytes(FilePath)
    9. Dim sb As New System.Text.StringBuilder(FileBytes.Length * 4)
    10. For Each bt As Byte In FileBytes
    11. sb.Append(bt.ToString())
    12. sb.Append("/"c)
    13. Next
    15. public_sb = sb.ToString()


    edit://
    mein ansatz zum datei schreiben sah so aus.. geht aber ned

    VB.NET-Quellcode

    1. 'string in array
    2. Dim _bytes As String = public_sb
    3. Dim _byte_array() As String
    4. _byte_array = _bytes.Split("/")
    8. Dim oFileStream As System.IO.FileStream
    9. oFileStream = New System.IO.FileStream("bytes.exe", System.IO.FileMode.Create)
    10. For Each byte_in_file As String In _byte_array
    11. oFileStream.WriteByte(byte_in_file)
    12. Next
    13. oFileStream.Close()


    end edit:||

    soweit so gut,.. und jetzt zum schreiben der datei mit hilfe von public_sb, weis ich nicht mehr weiter, habe gegoogled usw, nebenbei auch das gefunden : example-code.com/vbdotnet/save-byte-array.asp
    hilft mir aber nicht, ich komm einfach nicht drauf, würde mir evtl einer zeigen wies richtig geht? wär sehr nett! :S

    nachdem du das array gesplittes hast, hast Du ja praktisch das ursprüngliche byte-array. also ist File.WriteAllBytes Dein freund.

    edit... ist natürlich mist, was ich geschrieben hab. Du hast ja ein String-Array... musst eben vorher die elemente aus Deinem String-Array in ein Byte-Array schieben... verzeih, habs überlesen.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „SpaceyX“ ()

    hmm komm igw nicht weiter habs jetzt mal so probiert:

    VB.NET-Quellcode

    1. ' Dim testbytes As Byte = CByte(_bytes) 'test 1
    2. Dim x() As Byte = Convert.FromBase64String(public_sb) 'test 2
    4. Dim oFileStream As System.IO.FileStream
    5. oFileStream = New System.IO.FileStream("bytes.exe", System.IO.FileMode.Create)
    6. oFileStream.Write(x, 0, x.Length) 'test 2
    7. ' oFileStream.WriteByte(testbytes) 'test 1
    8. oFileStream.Close()

    bei test2 macht er mir die exe datei aber kann sie nicht ausführen (system fehler)
    wenn ich test1 benutze kommt eine fehlermeldung "Ungültige Konvertierung
    von der Zeichenfolge 77 90 144 0 3 0 0 0 4 0 0 0 255 in Typ Byte."

    edit//

    wenn ich oben

    VB.NET-Quellcode

    1. sb.Append(" "c)

    weg lasse, kommt trotzdem ein fehler (mit der test 1 methode) "Value was either too large or too small for a Double."

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Text
    4. Public Class Form1
    5. Private _byteString As New StringBuilder()
    7. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    8. Dim b() As Byte = File.ReadAllBytes(My.Computer.FileSystem.SpecialDirectories.Desktop & "\1.exe")
    10. For Each b1 As Byte In b
    11. _byteString.Append(CStr(b1) & "/")
    12. Next
    14. _byteString.Remove(_byteString.Length - 1, 1)
    15. End Sub
    17. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    18. Dim strings() As String = _byteString.ToString().Split("/"c)
    19. Dim bytes As New List(Of Byte)
    21. For Each Str As String In strings
    22. bytes.Add(CByte(Str))
    23. Next
    25. File.WriteAllBytes(My.Computer.FileSystem.SpecialDirectories.Desktop & "\2.exe", bytes.ToArray())
    26. End Sub
    27. End Class
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

Facebook
Telefonspende