[AutoIt] Поиск и замена строк в бинарном файле

По работе есть необходимость изменять в бинарном файле последовательность байт. Не спрашивайте зачем, это все равно секрет =)

Т.к. руками это делать ну очень не хочется, то на помощь приходит… AutoIt. Именно он позволил без каких либо напрягов выполнить поставленную задачу. Да и вообще, AutoIt — это замечательное средство не только для тестировщика, но и для всех тех, кому не чужда тема автоматизации процессов.

$exe = "file_name.exe"
 
$file = FileOpen($exe)
$read = FileRead($file)
FileClose($file)
 
$find = BinaryToString("0x00000000000000000000000000000000000")
$replace = BinaryToString("0x00000000000000000000000000000000001")
 
$read = StringReplace($read, $find, $replace)
If @extended > 0 Then
   ;MsgBox(64, 'Патчер', 'Вхождение найдено, файл пропатчен')
Else
   Exit 1
   ;MsgBox(64, 'Патчер', 'Вхождений нет, файл не пропатчен')
EndIF
 
$file = FileOpen($exe, 2)
FileWrite($file, $read)
FileClose($file)