Извлечение исходных данных + перенос в бинарные данные

Fileread($file)

Binary(666); => 0x9A020000

$file = FileRead('Prog.exe')
$bin = Binary($file)
FileWrite('bin.txt', $bin)

$hFile = FileOpen(@AutoItExe, 16)
$bRead = FileRead($hFile)
FileClose($hFile)
$hFile = FileOpen(@ScriptDir & '\bin.txt', 18)
FileWrite($hFile, $bRead)
FileClose($hFile)

$hFile = FileOpen(@AutoItExe, 16)
$bRead = FileRead($hFile)
FileClose($hFile)
$hFile = FileOpen(@ScriptDir & '\bin.txt', 2)
FileWrite($hFile, String($bRead))
FileClose($hFile)

Global $sFileFrom = @AutoItExe, $sFileTo = @ScriptDir & '\bin.txt', $iSize, $hFile, $bRead, $sText, $iStep = 16

$iSize = FileGetSize($sFileFrom)
$hFile = FileOpen($sFileFrom, 16)
For $i = 0 To $iSize Step $iStep
	$bRead = FileRead($hFile, $iStep)
	$sText &= StringFormat('0x%s | %-' & $iStep * 3 & 's| %s\r\n', Hex($i, 6), _
			StringRegExpReplace(Hex($bRead), '(?<=.{2})(?=(.{2})+\z)', ' '), _
			StringRegExpReplace(BinaryToString($bRead), '[\x00-\x1F]', '.'))
Next
FileClose($hFile)
$hFile = FileOpen($sFileTo, 2)
FileWrite($hFile, $sText)
FileClose($hFile)

Local $sFileFrom = @AutoItExe
Local $sFileTo = @ScriptDir & '\bin.txt'
Local $iStep = 16
Local $iCountStr, $hFile, $bRead, $sText

$timer = TimerInit()

$iCountStr = Ceiling(FileGetSize($sFileFrom) / $iStep) ; определяет количество строк
$hFile = FileOpen($sFileFrom, 16) ; открывает в бинарном виде
$bRead = FileRead($hFile) ; читает файл в бинарном виде
FileClose($hFile)
$sRead = BinaryToString($bRead) ; копирует аналог данных в строковом виде
$bRead = StringRegExpReplace(Hex($bRead), '.{2}', ' $0') ; добавляет разделитель в бинарные данные
; $bRead = StringRegExpReplace(StringTrimLeft($bRead, 2), '.{2}', ' $0') ; как вариант предыдущей строки
$abRead = StringRegExp($bRead, '.{1,48}', 3) ; создаёт массив по строкам 48 символов 16*3 (2 символа в бинарном виде + пробел)
$sRead = StringRegExpReplace($sRead, '[\x00-\x1F]', '.') ; заменяет управляющие символы (нечитаемые) точками
$asRead = StringRegExp($sRead, '.{1,16}', 3) ; создаёт массив по строкам 16 символов
For $i = 0 To $iCountStr - 1
	$sText &= '0x' & Hex($i * $iStep, 6) & ' |' & $abRead[$i] & ' |' & $asRead[$i] & @CRLF ; последнюю строку можно через StringFormat пропустить
Next

$hFile = FileOpen($sFileTo, 2)
FileWrite($hFile, $sText)
FileClose($hFile)

MsgBox(0, "Время выполнения", 'Время : ' & Round(TimerDiff($timer) / 1000, 2) & ' сек')