VBS Expert

1. Файловая система
   1. Текстовые файлы
   2. Двоичные файлы
   3. Каталоги
   4. Zip-архивы
2. Регулярные выражения
   1. Функция TestString
   2. Функция ExecRegexp
   3. Функция FindAll
   4. Функция rgReplace
3. Базы данных
   1. Объект Recordset
   2. Объект Command
4. Двоичные данные
   1. Функция StrToUTF8
   2. Функция BStrToBinStr
   3. Функция BStrToHexStr
   4. Функция BinStrToHexStr
   5. Функция HexStrToBinStr
5. Полезные функции
   1. Буфер обмена
   2. Процедура Echo
   3. Процедура Include
   4. Хеш-функция MD5
   5. Функция getUserName
   6. Функция PadLeft

Функция HexStrToBinStr.

Функция HexStrToBinStr преобразует шестнадцатиричную текстовую строку в текстовую двоичную (состояющую из нулей и единиц). Функция, обратная BinStrToHexStr.

Function HexStrToBinStr(hexStr)
	
	Set  dict = CreateObject("Scripting.Dictionary")
	Call dict.Add("0", "0000")
	Call dict.Add("1", "0001")
	Call dict.Add("2", "0010")
	Call dict.Add("3", "0011")
	Call dict.Add("4", "0100")
	Call dict.Add("5", "0101")
	Call dict.Add("6", "0110")
	Call dict.Add("7", "0111")
	Call dict.Add("8", "1000")
	Call dict.Add("9", "1001")
	Call dict.Add("a", "1010")
	Call dict.Add("b", "1011")
	Call dict.Add("c", "1100")
	Call dict.Add("d", "1101")
	Call dict.Add("e", "1110")
	Call dict.Add("f", "1111")

	TmpStr = LCase(hexStr)
	RezStr = vbNullString

	For i=1 To Len(TmpStr)

		x = Mid(TmpStr, i, 1)

		If dict.Exists(x) Then

			RezStr = RezStr & dict.Item(x)

		Else

			RezStr = RezStr & "xxxx"

		End If	

	Next

	HexStrToBinStr = RezStr

End Function

Пример:

hexStr = "e2e4"

binStr = HexStrToBinStr(hexStr)'двоичную строку в hex

WScript.Echo "HexStr: " & Chr(34) & hexStr & Chr(34)
WScript.Echo "BinStr: " & Chr(34) & binStr & Chr(34)