Guten Abend, ich tüftele seit nun gut 3 Tagen an folgenden Problem herum,
Mein Ziel ist es, ein Byte Arry in seine Bit's, dargestellt in Nullen und Einsen zu zerlegen, und diese dann wieder zurück.
Ich erwarte selbstverständlich nicht das mir hier jemand den Code fertig stellt, und mir eine komplett gefixte Version zu schickt,
und doch würde ich mich sehr über Anhaltspunkte freuen, wo mein Fehler liegen könnte, da ich wirklich schon lange dran rum bastle, und der Code jetzt endlich,
ohne einen Fehler auszugeben läuft.
Komme aktuell echt nicht weiter, der Output hat im Hex Editor gewisse Ähnlichkeiten, aber nur von der "Form" her, nicht vom Inhalt, freue mich über jeden Tipp.
Mein Ziel ist es, ein Byte Arry in seine Bit's, dargestellt in Nullen und Einsen zu zerlegen, und diese dann wieder zurück.
Ich erwarte selbstverständlich nicht das mir hier jemand den Code fertig stellt, und mir eine komplett gefixte Version zu schickt,
und doch würde ich mich sehr über Anhaltspunkte freuen, wo mein Fehler liegen könnte, da ich wirklich schon lange dran rum bastle, und der Code jetzt endlich,
ohne einen Fehler auszugeben läuft.
VB.NET-Quellcode
- Private Sub DebugSub
- Dim b0 As Byte() = System.IO.File.ReadAllBytes(Application.StartupPath & "\TestFile.exe")
- Dim s0 As String = ByteToBits(b0)
- Dim b1 As Byte() = BitsIntToByteArray(s0)
- System.IO.File.WriteAllBytes(Application.StartupPath & "\TestFileRebuild.exe", b1)
- MsgBox("done")
- End Sub
- Private Function ByteToBits(ByVal b0 As Byte()) As String 'from the Internet
- Dim OutPutS1 As String
- For Each b1 As Byte In b0
- Dim i As Integer
- Dim xx(0 To 7) As Byte
- For i = 0 To 7
- If b1 And 2 ^ i Then xx(i) = 1 Else xx(i) = 0
- OutPutS1 = OutPutS1 & CStr(xx(i))
- Next
- Next
- Return OutPutS1
- OutPutS1 = Nothing
- End Function
- Private Function BitsIntToByteArray(ByVal s0 As String) As Byte()
- Dim LiByte0 As New List(Of Byte)
- For i As Integer = 0 To s0.Length - 1 Step 8
- Dim s1 As String = s0.Substring(i, 7) ' or s0.Substring(i, 8) ? starts @ 0 or 1?
- Dim b0 As Byte = Convert.ToByte(s1, 2)
- LiByte0.Add(b0)
- Next
- Return LiByte0.ToArray
- End Function
Komme aktuell echt nicht weiter, der Output hat im Hex Editor gewisse Ähnlichkeiten, aber nur von der "Form" her, nicht vom Inhalt, freue mich über jeden Tipp.
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „voubekai“ ()