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

Криптографическая хеш-функция MD5.

Функция GetMD5 принимает на вход байтовую строку и возвращает байтовую строку вычисленного хеш-кода.

Function GetMD5(blob)

	Set md5 = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider") 
	
	GetMD5 = md5.ComputeHash_2((blob))

End Function

Функция GetMD5HexStrByFilePath принимает путь к файлу и возвращает md5-хеш в шестнадцатиричном виде.

Function GetMD5HexStrByFilePath(path)'MD5 файла в Hex-виде

	GetMD5HexStrByFilePath = BStrToHexStr(GetMD5(readBinaryFile(path)))

End Function

Пример:

fPath = "C:\Windows\System32\cscript.exe"

WScript.Echo "File path: " & Chr(34) & fPath & Chr(34)

WScript.Echo " MD5-hash: " & Chr(34) & GetMD5HexStrByFilePath(fPath) & Chr(34)

File path: "C:\Windows\System32\cscript.exe"
 MD5-hash: "A3A35EE79C64A640152B3113E6E254E2"