vbs-16進制轉2進制

'16進制轉2進制
'Buf 16進制字符串
Function hexTOBinary(Buf)
	Buf_len = len(Buf)
	For i = 1 To Buf_len
		hex_str = mid(Buf,i,1)
		binary = ""
		If hex_str = "0" then binary = "0000"
		If hex_str = "1" then binary = "0001"
		If hex_str = "2" then binary = "0010"
		If hex_str = "3" then binary = "0011"
		If hex_str = "4" then binary = "0100"
		If hex_str = "5" then binary = "0101"
		If hex_str = "6" then binary = "0110"
		If hex_str = "7" then binary = "0111"
		If hex_str = "8" then binary = "1000"
		If hex_str = "9" then binary = "1001"
		If hex_str = "a" then binary = "1010"
		If hex_str = "b" then binary = "1011"
		If hex_str = "c" then binary = "1100"
		If hex_str = "d" then binary = "1101"
		If hex_str = "e" then binary = "1110"
		If hex_str = "f" then binary = "1111"
		hexTOBinary = hexTOBinary & binary
	Next                                
End Function