如何将byte转化成HEX string和将HEX string转化为Byte

[wangzibo_tim]

如题，但要求"0E"不能变成"E"
实质就是将byte转化成ascii字符便于传输，以免出现由于编码错误导致出现"?"的问题。如果有其他将byte转化成字母或数字的高效方法也可以~谢谢大家

[mocom]

Public Function HexToBytes(ByVal str)
	Dim node
	With CreateObject("MSXML2.DOMDocument")
		Set node = .createElement("temp")
		node.dataType = "bin.hex"
		node.text = str
		HexToBytes = node.nodeTypedValue
	End With
End Function

Public Function HexFromBytes(data)
	Dim node
	With CreateObject("MSXML2.DOMDocument")
		Set node = .createElement("temp")
		node.dataType = "bin.hex"
		node.nodeTypedValue = data
		HexFromBytes = node.text
	End With
End Function

Public Function FileGetBinary(ByVal path)
	With CreateObject("ADODB.Stream")
		.Type = 1
		.Open
		.LoadFromFile path
		FileGetBinary = .Read(-1)
		.Close
	End With
End Function

WScript.Echo HexFromBytes(FileGetBinary("test.txt"))