Hi,
ich habe zwei Scripte erstellt. Das einen spaltet eine Datei in einzelnen Files auf, das anderes soll diese wieder zusammensetzen. Aber leider ist die Datei nach dem Zusammensetzen nichtmehr lauffähig. Als datei kann man eine beliebige exe die >16KB ist nehmen.
Datei splitten:
Spoiler anzeigen
$dateiname = "datei.exe"
$FileOpenBinary = FileOpen($dateiname, 16)
$FileRead = FileRead($FileOpenBinary)
$FileSendSizeLeft = BinaryLen($FileRead)
Dim $start = 1
While 1
If $FileSendSizeLeft > 16000 Then
$teilbin = BinaryMid($FileRead, 1, 16000)
IniWrite($dateiname & ".meta", "Fragmente", $start, 16000)
$file = FileOpen($start & ".aubin", 18)
FileWrite($file, $teilbin)
FileClose($file)
$FileSendSizeLeft = $FileSendSizeLeft - 16000
$start = $start + 16000
Else
$teilbin = BinaryMid($FileRead, $start)
IniWrite($dateiname & ".meta", "Fragmente", $start, $FileSendSizeLeft)
$file = FileOpen($start & ".aubin", 18)
FileWrite($file, $teilbin)
FileClose($file)
Exit
EndIf
WEnd
FileClose($FileOpenBinary)
[/autoit]Datei zusammensetzen:
Spoiler anzeigen
$dateiname = "datei.exe"
$var = IniReadSection($dateiname & ".meta", "Fragmente")
$finalfile = FileOpen($dateiname, 17)
[/autoit] [autoit][/autoit] [autoit]For $a = 1 To $var[0][0] Step 1
$fragment = FileOpen($var[$a][0]&".aubin", 16)
$FileRead = FileRead($fragment )
FileClose($fragment)
FileWrite($finalfile, $FileRead)
Next
FileClose($finalfile)
[/autoit]Weiß jemand was ich falsch mache?
