[PT-BR]
Olá, eu tinha isso a um tempo atrás, mas não sabia se funcionava, mas funciona hahahah faz um teste.

[ENG]
Hello, I had this a while ago but did not know if it worked but works hahahah makes a test.

 Code:
include "KixWithClass.udf"	; http://www.kixtart.org/UDF/UDF_lister.php?what=post&code=213741
include "AlsArray.udf"		; http://www.kixtart.org/UDF/UDF_lister.php?what=post&code=213557
$include_fbin = includeClass("fbin", "FileBin.udf") ; UDF FileBin.udf
$fbin = newClass($include_fbin)
$path_i = @curdir+"\cmd.exe"
$path_o = @curdir+"\cmd_o.exe"

;; Reading file and returned an array of ascii code
"Reading file..."?
$bin = $fbin.ReadBin($path_i)
"Read file!"??

;; Writing to a binary array
$bin = array_merge($bin,
	stringToByteArray("hello") ;; transforming text em array from ascii
)


;; Writing the binary file array.
"Writing in the file..."?
$fbin.WriteBin($path_o, $bin)
"Written file!"??

;; Writing at the end of the file
$fbin.WriteBin_append($path_o,
	stringToByteArray("Hello Brasil!!") ;; transforming text em array from ascii
)

get$



Udf FileBin Kix2Vbs
 Code:
public function ReadBin($path)
	$objFSO = CreateObject( "Scripting.FileSystemObject" )
	Set $objBinFile = $objFSO.GetFile( $path )
	Set $objBinStream = $objBinFile.OpenAsTextStream( 1, 0 )
	$i = -1
	
	Do
		$i = $i + 1
		redim preserve $strLine[$i+1]
		$intByte = Asc( $objBinStream.Read(1) )
		$strLine[$i] = $intByte
	Loop Until $objBinStream.AtEndOfStream
	
	$ReadBin = $strLine
endfunction

public sub WriteBin($path, $ArrayByte)
	
	$objFSO  = CreateObject( "Scripting.FileSystemObject" )
	Set $objFile = $objFSO.CreateTextFile( $path, 0, 0 )
	
	For $i = 0 To UBound( $ArrayByte )
		$objFile.Write( Chr( $ArrayByte[$i] ))
	Next
	
	$objFile.Close()
	
	$objShell  = CreateObject( "Shell.Application" )
	Set $objParent = $objShell.NameSpace( $objFSO.GetParentFolderName( $objFSO.GetAbsolutePathName( $path ) ) )
	Set $objFile   = $objParent.ParseName( $path )
	$objFile.ModifyDate  = Date() & " " & Time()
	Set $objFile   = Nothing
	Set $objFSO    = Nothing
	Set $objShell  = Nothing

endsub

public sub WriteBin_append($file, $ArrayByte)

	$objFSO  = CreateObject( "Scripting.FileSystemObject" )
	Set $objFile = $objFSO.OpenTextFile( $file,  8, True )
	
	For $i = 0 To UBound( $ArrayByte )
		$objFile.Write( Chr( $ArrayByte[$i] ))
	Next
	
	$objFile.Close()
	$objBinFile.Close()

endsub