[Данные, строки] hex binary патчер

; наглядно посмотреть hex строку можно с помощью двоичного редактора, например WinHex

$1 = FileOpen(@ScriptDir & "\orig.txt", 2) ;запишем в новый файл данные, которые будем менять
FileWrite($1, "Autoit ROCKS!")
FileClose($1)

$sInFile = @ScriptDir & "\orig.txt" ; начальный файл
$sFind = "524F434B53" ; MSFT 5.0 hex значение которое будем менять
$sReplace = "5448452042455354" ; внезапно! новое значение, которое пропишем
$sOutFile = @ScriptDir & "\patched.txt" ; выходной файл

_BinaryReplace($sInFile, $sFind, $sReplace, $sOutFile)

Func _BinaryReplace($sInFile, $sFind, $sReplace, $sOutFile)
    Local $FO, $FR
    $FO = FileOpen($sInFile, 16) ; принудительное открытие первого файла, бинарное (по байтам) чтение
    $FR = FileRead($FO) ; читаем файл в новую переменную
    FileClose($FO) ; закрываем открытый прочитанный файл
    $FR = StringReplace($FR, $sFind, $sReplace, 1); находим и меняем hex строку
    $FO = FileOpen($sOutFile, 18) ; открываем новый файл в режиме бинарной записи 16+2
    FileWrite($FO, $FR) ; записываем новое значение
    FileClose($FO) ; закрываем созданный файл
EndFunc

; можно сравнить два файла с помощью WinMerge

#include <String.au3>

$sInFile = @ScriptDir & "\orig.txt"
$sFind = _StringToHex("bootmgr")
$sReplace = _StringToHex("003tmgr")

_BinaryReplace($sInFile, $sFind, $sReplace)

Func _BinaryReplace($sInFile, $sFind, $sReplace)
    Local $FO, $FR
    $FO = FileOpen($sInFile, 16)
    $FR = StringReplace(FileRead($FO), $sFind, $sReplace, 1)
    $FO = FileOpen($sInFile, 18)
    FileWrite($FO, $FR)
    FileClose($FO)
EndFunc