$Open_Dump_File = FileOpen (@ScriptDir & "\noname4", 16); открываем для чтения в бинарном режиме
While 1 ; цикл чтения\записи большого файла по кускам
$Buf = FileRead($Open_Dump_File, 1024 * 1024) ; по 1 Mb в буфер
If @error = -1 Then ExitLoop
$position = StringInStr ($Buf, "46575307")
If $position <> 0 Then
$position = Ceiling ($position / 2); делим на 2 так как в байте 2 символа
$position -= 2
$fileposition = FileGetPos ($Open_Dump_File)
$fileposition -= 1024 * 1024
FileSetPos ($Open_Dump_File, $fileposition, 0); от начала
FileSetPos ($Open_Dump_File, $position, 1); сдвигаемся от текущей позиции
$fileposition = FileGetPos ($Open_Dump_File)
$hex = Hex ($fileposition , 8)
$bytes = FileRead($Open_Dump_File, 8) ; по 1 Mb в буфер
MsgBox (0, "", "найдено! Оффсет: 0x" & $hex & @CRLF & "начало: " & $bytes)
Exit
EndIf
WEnd |
