1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
|
Function HexToBin(NombreHex)
Dim tHex, tBin
Dim i, j
Dim Binaire
Dim Trouve
Binaire = ""
NombreHex = UCase(NombreHex)
tHex = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F")
tBin = Array("0000", "0001", "0010", "0011", "0100", "0101", "0110", _
"0111", "1000", "1001", "1010", "1011", "1100", "1101", "1110", "1111")
For i = 1 To Len(NombreHex)
Trouve = False
For j = 0 To 15
If tHex(j) = Mid(NombreHex, i, 1) Then
Binaire = Binaire & tBin(j)
Trouve = True
Exit For
End If
Next
If Not Trouve Then HexToBin = "": Exit Function
Next
HexToBin = Binaire
End Function
Function StringToByteArray(s)
Dim i, byteArray
For i=1 To Len(s)
byteArray = byteArray & Hex(Asc(Mid(s,i,1)))
Next
StringToByteArray = byteArray
End Function |
Partager