Modify binary file HEX data using VBS

Public BinaryData

If (lcase(right(,11))="") Then
 (0)
End If

If <4 Then
  "Change File Hex. By: lxzzr  lxzzr@"
  ""
  "Usage: " & & " FilePath SavePath sHEX dHEX"
  "     : "".\"" "".\"" ""80 7A 01 61"" ""80 7A 01 61"""
 (0)
End If

sHEX = Replace(LCase((2)), " ", "")
dHEX = Replace(LCase((3)), " ", "")

"File: " & (0)
"sHEX: " & (2)
"dHEX: " & (3)

ReadBinary((0))

MyData = Replace(BinaryData, sHEX, dHEX)

WriteBinary (1), MyData

"All done."
(0)

 

Function ReadBinary(FileName)
 Dim Stream, ObjXML, MyNode

 Set ObjXML = CreateObject("")
 Set MyNode = ("binary")
 Set Stream = CreateObject("")

  = ""

  = 1
 
  FileName

  =

 

 BinaryData =

 Set MyNode = Nothing
 Set Stream = Nothing
 Set ObjXML = Nothing
End Function

Function WriteBinary(FileName, BufferData)
 Dim Stream, ObjXML, MyNode

 Set ObjXML = CreateObject("")
 Set MyNode = ("binary")
 Set Stream = CreateObject("")

  = ""
  = BufferData

  = 1
 
 
  FileName, 2
 

 Set stream = Nothing
 Set MyNode = Nothing
 Set ObjXML = Nothing
End Function