Bytes neuschreiben und wieder einlesen

n1nja · 11. Oktober 2012, 00:39

Hey Leute ich steh mal wieder vor ein Problem, was denk ich ganz einfach zu lösen ist:)

Also folgendes: (ich poste erstmal die beiden Codes, damit ihr wisst, worum es geht)

Spoiler anzeigen

So hier erstell ich eine neue Datei die ein String von der TextBox mitgibt...

Jetzt soll die erstelle Datei aber den String wiedergeben, in irgendeiner Weiße!
Dazu les ich die Bytes ein und konvertier doch "eig" nur die Bytes wieder zurück, die ich geadded habe, oder etwa nicht?! (die letzten nach der Stub)

Der Code dazu sieht so aus:

Spoiler anzeigen

Tut mir leid, aber irgendwo hängt es... Weiß leider nicht wo!
Hab schon die Bytes ausgelesen, die werden mir richtig angezeigt...

Es kommt ne Fehlermeldung Index außer Bereich!

SpaceyX · 11. Oktober 2012, 00:43

Warum machst es Dir so schwer? Lies die Bytes der Datei in eine List (Of Byte), erzeuge Dir die Bytes des Strings und füge sie in die Liste ein, danach die Liste wieder mit WriteAllBytes speichern, fertig. Beim Zurückholen lädst wieder alles in eine List (Of Byte), holst Dir mit GetRange die Bytes des Strings und konvertierst ihn wieder zurück.

n1nja · 11. Oktober 2012, 00:50

Ja ich weiß beim zurückholen den Start der Bytes(des Strings) aber ich weiß nicht wie lang es ist?!

Ich muss ja erst lesen wie lang der ist, das macht er ja noch!
Aber dann haut er nen Fehler raus!

SpaceyX · 11. Oktober 2012, 00:53

Da bleibt Dir nix anderes übrig, als diese Information mit rein zu schreiben, vestehst? Du schreibst entweder die Länge des Strings mit oder Du musst das Ende des Stings markieren. Ohne diese Info läuft das nicht.

n1nja · 11. Oktober 2012, 00:57

Ja das weiß ich... Ich weiß auch, das es so normal funktionieren muss:)
Aber irgendwo nach dem:

VB.NET-Quellcode

Dim newbyte(0 To mebyte.Length - pos - 1) As Byte

haut er mir nen Fehler...

Hab schon ziemlich alles durch:)
Diese -1 dauerndt machen mich einfach zu schaffen...
Vllt irgendwo ein -1 zu wenig oder viel, weiß es nicht!

Deswegen frag ich:)

Edit: Hab mir schon ne Zeichnung gemacht mit den Bytes, nicht das ich ein Byte zu früh oder zu spät rausfische:)

SpaceyX · 11. Oktober 2012, 01:08

Ich sag Dir ja. Arbeite mit Listen, da ersparst Dir viel Ärger. Hab ein Beispiel für Dich.

VB.NET-Quellcode

Imports System.IO
Imports System.Text
Public Class Form1
Private _exePathUncoded As String = My.Computer.FileSystem.SpecialDirectories.Desktop & "\test.exe"
Private _exePathCoded As String = My.Computer.FileSystem.SpecialDirectories.Desktop & "\test1.exe"
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub HideText(ByVal s As String)
Dim fileBytes() As Byte = File.ReadAllBytes(_exePathUncoded)
Dim textBytes() As Byte = Encoding.UTF8.GetBytes(s)
Dim stringLen As Integer = textBytes.Count
Dim lenBytes() As Byte = BitConverter.GetBytes(stringLen)
Dim tmpBytes As New List(Of Byte)
tmpBytes.AddRange(fileBytes)
tmpBytes.AddRange(textBytes)
tmpBytes.AddRange(lenBytes)
File.WriteAllBytes(_exePathCoded, tmpBytes.ToArray())
End Sub
Private Sub GetTextBack()
Dim fileBytes As New List(Of Byte)
Dim lenBytes() As Byte = Nothing
Dim stringLen As Integer = 0
Dim textBytes() As Byte = Nothing
Dim theString As String = ""
fileBytes.AddRange(File.ReadAllBytes(_exePathCoded))
lenBytes = fileBytes.GetRange(fileBytes.Count - 4, 4).ToArray()
stringLen = BitConverter.ToInt32(lenBytes, 0)
fileBytes.RemoveRange(fileBytes.Count - 4, 4)
textBytes = fileBytes.GetRange(fileBytes.Count - stringLen, stringLen).ToArray()
theString = Encoding.UTF8.GetString(textBytes)
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
HideText("Hallo Du da :-)")
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
GetTextBack()
End Sub
End Class

SpaceyX · 11. Oktober 2012, 02:01

Hab mir Deinen Code nochmal genauer angeschaut. Normal sollte man Dir bei so etwas nicht helfen, aber gut.

VB.NET-Quellcode

'Abgeändert.
Private Sub h(ByVal tmp As String)
Dim stub As Byte() = System.IO.File.ReadAllBytes(_exePathUncoded)
Dim enc As System.Text.Encoding = System.Text.Encoding.Default
Dim tmp_byte As Byte() = enc.GetBytes(tmp)
Dim create(stub.Length + tmp_byte.Length - 1) As Byte 'deklarier Arrays lieber so.
For i As Integer = 0 To stub.Length - 1
create(i) = stub(i)
Next
Dim pos As Integer = 0
'Du berechnest hier nicht die Position, sondern die Länge des Strings.
'Pos. ist daher etwas irreführend.
For i As Integer = stub.Length To stub.Length + tmp_byte.Length - 1
create(i) = tmp_byte(pos)
pos += 1
Next
System.IO.File.WriteAllBytes(_exePathCoded, create)
End Sub
Private Sub d()
Dim mebyte As Byte() = System.IO.File.ReadAllBytes(_exePathCoded)
Dim pos As Integer = 15 'hier die Länge, die Du oben erhalten hast.
Dim newbyte(pos - 1) As Byte
'Da Du ja den String hinten angehängt hast, musst Du das so machen.
For i As Integer = 0 To pos - 1
newbyte(i) = mebyte(mebyte.Length - pos + i)
Next
Dim s As String = Encoding.Default.GetString(newbyte)
End Sub

Das ist Dein Code von oben, nur etwas abgeändert, damit ich testen konnte. Beachte bitte die Kommentare.

ErfinderDesRades · 11. Oktober 2012, 03:32

n1nja schrieb:

Es kommt ne Fehlermeldung Index außer Bereich!

5 Regeln für sinnvolle Fragen - Fehlerzeile?

Aber insgesamt scheint mir, du tust nix anneres als auf umständliche Weise zwei Strings hintereinander in eine Datei zu schreiben - oder übersehe ich was?
Weil das ginge sicherlich wesentlich einfacher, etwa mit einem StreamWriter.
Aber vlt. übersehe ich wirklich was, weil wenn du die Strings beim Auslesen auseinanderhalten willst - da müssten noch iwelche Vorkehrungen getroffen sein.

n1nja · 11. Oktober 2012, 09:11

Ich kann keine Fehlerzeile oder sonst was Posten da ich es nicht weiß! Der Fehler kommt sobald ich die erstellte Datei starte:)

Wenn ich die Stub debugge kommt kein Fehler!
Nur wenn ich starte!

Und nein ich möchte nur einen String ans Ende der Datei schreiben und beim öffnen der Datei den String Auslesen und anschließend bearbeite ich den!

Kann erst heut Abend nochmal alles durchgehen!

ErfinderDesRades · 11. Oktober 2012, 09:20

n1nja schrieb:

Und nein ich möchte nur einen String ans Ende der Datei schreiben und beim öffnen der Datei den String Auslesen und anschließend bearbeite ich den!

welchen String möchtest du auslesen?
In einer TextDatei ist im Grunde nur ein STringg drin, und wenn man am Ende was anfügt, so vermehrt der String sich nicht, sondern wird einfach länger.

Oder aber es gibt die Möglichkeit, eine TextDatei zeilenweise zu lesen - da kann man eine Zeile zufügen, und kann die auch wieder als String auslesen.

Beides lässt sich sehr einfach mit der STreamWriter-Klasse umsetzen - informiere dich im ObjectBrowser/ObjektKatalog darüber.
(oder warte, bis dir hier jmd. ein fertiges Snippet serviert)

n1nja · 11. Oktober 2012, 09:29

Ja ich weiß wie es mit nen StreamWriter usw funktioniert!
Doch ich hab keine Textdatei!
Das ist ne exe...
Die Les ich ein um den String zu adden! Danach wieder abspeichern als Exe! Die auch ausführbar bleiben soll!
Deswegen Wandel ich den String in Bytes um...

ErfinderDesRades · 11. Oktober 2012, 09:43

interessiert den Streamwriter glaub nicht, obs eine Exe ist, wo er reinschreibt.
nur für den StreamReader - wie willst dus da machen, dass du die richtige Postition findest, ab der der String dann wieder auszulesen ist?

n1nja · 11. Oktober 2012, 09:47

Ja genau deswegen schreib ich die Größe der Stub Manuel rein! 25088 in den Fall! Alles was danach ist ist der String!

Ich könnt es auch mit FileOpen, FilePut usw! Wenn es so nicht funktioniert...

ErfinderDesRades · 11. Oktober 2012, 10:01

schreib ich die Größe der Stub Manuel rein! 25088 in den Fall!

kann ich in deim Code nicht erkennen, wo das stattfindet

ah - du schreibst es nicht in die DAtei, sondern im Code deines Manipulations-Programms (was sich wohl selbst manipuliert).

wiedemauchsei:

mach dirn Stream-Writer/-Reader, setze dessen .BaseStream.Position auf 25088, und fang dann an zu lesen oder zu schreiben oder was du wolle.

n1nja · 11. Oktober 2012, 10:08

Im zweiten Codesnippet:)
Dim Pos As Integer = 25088:)

Werd's abends testen...

n1nja · 11. Oktober 2012, 17:53

So Leute hab mal bisschen noch rumprobiert!

Vorweg die Methode von SpaceyX funktioniert ohne Probleme!
Jedoch muss ich hier jedesmal die Größe auch angeben!

Ich hab mir also Überlegt, ich kann auch direkt Strings in die Exe schreiben...
Und siehe da, es funktioniert auch:)

Hier mal das kleine Testtool:

Spoiler anzeigen

VB.NET-Quellcode

Public Class Form1
Private Sub TextBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDoubleClick ' Da wird eine Dateo geöffnet
Dim ofd As New OpenFileDialog
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox1.Text = ofd.FileName
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Hier wird die Datei wieder gespeichert mit einen bestimmten Wert
Dim sfd As New SaveFileDialog
If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim enc As System.Text.Encoding = System.Text.Encoding.Default
Dim datei As Byte() = System.IO.File.ReadAllBytes(TextBox1.Text)
Dim text As String = enc.GetString(datei) & "startstring" & "WertDenIchHabenWill"
Dim newfile As Byte() = enc.GetBytes(text)
System.IO.File.WriteAllBytes(sfd.FileName, newfile)
MessageBox.Show("done")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 'Jetzt wird mir der Wert der Datei ausgelesen
Dim ofd As New OpenFileDialog
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim file As Byte() = IO.File.ReadAllBytes(ofd.FileName)
Dim text As String = System.Text.Encoding.Default.GetString(file)
Dim pos As Integer = text.IndexOf("startstring") + 11
Dim lang As Integer = file.Length - pos
Dim tmp As String = text.Substring(pos, lang)
MessageBox.Show(tmp)
End If
End Sub
End Class

Ist das nun auch ne saubere Lösung oder soll ich doch mit StreamW/R arbeiten?!

ErfinderDesRades · 11. Oktober 2012, 19:14

also mir scheint, allen beteiligten hätten einigen Gewinn davon, sich mal mit Streams und STream-Konzepten auseinanderzusetzen. Das sollte ihr DateiHandling, Kommunikationsgeschichten via INet, RohDaten-konvertierung (Verschlüsselung, Kompression) und sowas grundlegend ändern. Halt alles, wo viele Daten rumgeschaufelt werden.
vlt. Stream-Konzepte guggen

Bytes neuschreiben und wieder einlesen

Bytes neuschreiben und wieder einlesen

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

n1nja schrieb:

n1nja schrieb:

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben