[سؤال] كيفية التعديل على قيمه معينه داخل ملف هيكس

كود :

Dim MyFileStream As IO.FileStream = Nothing

Try

    'تعريف مسار الملف

    MyFileStream = New IO.FileStream("D:\test.exe", IO.FileMode.Open, IO.FileAccess.ReadWrite)

    'مصفوفة من البايت بحجم الملف

    Dim Buffer(MyFileStream.Length - 1) As Byte

    'المصفوفة المراد البحث عنها داخل الملف

    Dim Find As Byte() = {&HFF, &HFF, &H10}

    'قرائة الملف حتي النهاية

    MyFileStream.Read(Buffer, 0, Buffer.Length)

    Dim Index As Integer = 0

    Do

        Index = SearchByteArray(Buffer, Find, Index)

        If Index <> -1 Then

            'اسنبدال القيمة الثالثة بقيمة جديدة

            Buffer(Index + 2) = &HFF

        End If

    Loop Until Index = -1

    'الانتقال لبداية الملف

    MyFileStream.Seek(&H0, IO.SeekOrigin.Begin)

    'كتابة المصفوفة للملف بعد التعديل

    MyFileStream.Write(Buffer, 0, Buffer.Length)

    'للتأكد من أنه تم كتابة كل البيانات للملف

    MyFileStream.Flush()

    'حساب CRC-32 للملف بعد التعديل وتحويله لمصفوفة من البايت

    Dim CRCBytes As Byte() = BitConverter.GetBytes(CRC32.ComputeChecksum(Buffer))

    'الانتقال لموقع حفظ CRC-32

    MyFileStream.Seek(&HC, IO.SeekOrigin.Begin)

    'كتابة قيمة CRC-32 الجديدة للملف بعد التعديل

    MyFileStream.Write(CRCBytes, 0, CRCBytes.Length)

Finally

    If MyFileStream IsNot Nothing Then MyFileStream.Close()

End Try

كود :

Public Class Crc32

    Shared table As UInteger()

    Shared Sub New()

        Dim poly As UInteger = &HEDB88320UI

        table = New UInteger(255) {}

        Dim temp As UInteger = 0

        For i As UInteger = 0 To table.Length - 1

            temp = i

            For j As Integer = 8 To 1 Step -1

                If (temp And 1) = 1 Then

                    temp = CUInt((temp >> 1) Xor poly)

                Else

                    temp >>= 1

                End If

            Next

            table(i) = temp

        Next

    End Sub

    Public Shared Function ComputeChecksum(bytes As Byte()) As UInteger

        Dim crc As UInteger = &HFFFFFFFFUI

        For i As Integer = 0 To bytes.Length - 1

            Dim index As Byte = CByte(((crc) And &HFF) Xor bytes(i))

            crc = CUInt((crc >> 8) Xor table(index))

        Next

        Return Not crc

    End Function

End Class

كود :

Dim Find As Byte() = {&HFF, &HFF, &H10}

If IsArraysEqual(Find, {&HFF, &HFF, &H10}) Then

    MsgBox("الحالة الأولى")

ElseIf IsArraysEqual(Find, {&H5E, &H5, &H64}) Then

    MsgBox("الحالة الثانية")

Else

    MsgBox("الحالة الثالثة")

End If

كود :

Function IsArraysEqual(ByVal ArrayA As Byte(), ByVal ArrayB As Byte()) As Boolean

    If ArrayA.Length <> ArrayB.Length Then

        Return False

    Else

        Dim Counter As Integer = 0

        For I As Integer = 0 To ArrayA.Length - 1

            If ArrayA(I) = ArrayB(I) Then

                Counter += 1

            Else

                Exit For

            End If

        Next

        Return (Counter = ArrayA.Length)

    End If

End Function

كود :

Dim Buffer(MyFileStream.Length - 1) As Byte

            Dim Find As Byte() = {&H46, &H3, &HFF, &HF}

            MyFileStream.Read(Buffer, 0, Buffer.Length)

            If IsArraysEqual(Find, {&H46, &H3, &HFF, &HF}) Then

                Dim Index As Integer = 0

                Do

                    Index = SearchByteArray(Buffer, Find, Index)



                    If Index <> -1 Then



                        TextBox2.Text = Buffer(Index + 0)

                        TextBox3.Text = Buffer(Index + 1)

                        TextBox4.Text = Buffer(Index + 3) & Buffer(Index + 2)



                    End If

                Loop Until Index = -1