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

Функция BStrToHexStr.

Функция BStrToHexStr преобразует байтовую строку в шестнадцатиричную текстовую.

Function BStrToHexStr(blob)

	hexStr = ""
 
	For i = 1 To LenB(blob)
		
		hexStr = hexStr & Right("0" & Hex(AscB(MidB(blob, i , 1))), 2)

	Next

	BStrToHexStr = hexStr

End Function

Пример:

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

hexStr = BStrToHexStr(blob)'блоб в hex строку

WScript.Echo "Hex str: " & Chr(34) & hexStr & Chr(34)