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

Функция BStrToBinStr.

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

Function BStrToBinStr(blob)

	binStr = ""
 
	For i = 1 To LenB(blob)
		
		x = AscB(MidB(blob, i , 1))

		For j=0 To 7

			binStr = binStr & ((Int(x / (2 ^ (7-j)))) Mod 2)
					
		Next

	Next

	BStrToBinStr = binStr

End Function

Пример:

blob = StrToUTF8("abc")'получить блоб

binStr = BStrToBinStr(blob)'блоб в двоичную строку

WScript.Echo "Bin str: " & Chr(34) & binStr & Chr(34)