Sections Fixer Bischen hilfe

[Inj3ct]

Hi ich habe mal einen pe fixer gecoded also eine funktion

Public Function FixPEHeader(file As String) As String
Dim EOFData As String
Dim Size As String
Dim Dateigröße As String
Dim im As IMAGE_SECTION_HEADER
Open file For Binary Access Read As #1 'Pfad zur exe
Size = String(LOF(1), vbNullChar)
Get #1, , Size
Close #1
Dateigröße = GetExeByte(Size)
EOFData = Dateigröße - section(3).PointerToRawData + section(3).SizeOfRawData
section(3).VirtualSize = section(3).VirtualSize + EOFData
section(3).SizeOfRawData = section(3).SizeOfRawData + EOFData
NTHEADER.OptionalHeader.SizeOfImage = NTHEADER.OptionalHeader.SizeOfImage + EOFData
Open file For Binary As #1
Put #1, , DOSHEADER
Put #1, DOSHEADER.e_lfanew + 1, NTHEADER
ReDim section(1 To NTHEADER.FileHeader.NumberOfSections)
For i = 1 To NTHEADER.FileHeader.NumberOfSections
Put #1, , im
section(i) = im
Next
Close #1
End Function

der obere teil war eigentlich kein großes problem blos das hinzufügen in das file da hab ich probleme ich glaube so wie ich das mache ist es falsch also der Teil

Open file For Binary As #1
Put #1, , DOSHEADER
Put #1, DOSHEADER.e_lfanew + 1, NTHEADER
ReDim section(1 To NTHEADER.FileHeader.NumberOfSections)
For i = 1 To NTHEADER.FileHeader.NumberOfSections
Put #1, , im
section(i) = im
Next
Close #1

könnte mir jemand vieleicht ein bischen helfen also sagen wie ich die funkton zum laufen bringe wäre echt nett


MFG
Inj3ct

[EBFE]

Wenn du es schon komplett einliest, kannst du es doch gleich auch komplett als neue Datei schreiben

[Inj3ct]

Wäre es möglich das du mir ein kleines beispeil zeigst wie ich das genau amche oder meinst du ich kann den unteren teil weg lassen?