Question

是否可以使用VBS将Hexdump转换为二进制？我创建了一个程序，将任何文件作为Byte数组读取，然后将其转换为Hex。在输出中，Hexdump看起来像这样

00 00 00 0A 4D

直到结束。现在我想知道我是否可以将其转换回二进制并使用VBScript执行它。我将不胜感激，谢谢。

Answer 1

这样的事情应该有效：

hexstr = "00 00 00 0A 4D"

hexarr = Split(hexstr)
ReDim binarr(UBound(hexarr))

For i = 0 To UBound(hexarr)
  binarr(i) = Chr(CInt("&h" & hexarr(i)))
Next

binstr = Join(binarr, "")

Answer 2

您可以从十六进制转储中制作一个数组，以“＆h”开头，然后编写二进制文件：

Dim File : Set File = CreateObject("Scripting.FileSystemObject").CreateTextFile("Jim.bin")
data = Array(&h00,&h00,&h00,&h0A,&h4D)

for each x in data
File.write chr(x)
next

File.Close

使用VBScript将十六进制转换为二进制

2 个答案: