Мой старый сайт и зеркало-архив (осторожно, на сайте реклама!)
BedvitCOM.HashStringSHA
Хеширование строки алгоритмами SHA, MD
Часть библиотеки BedvitCOM
Использованы исходники Crypto++
Функция:
SHAstrUTF8((BSTR stringIn, LONG versionSHA, VARIANT_BOOL charLower, )
Параметры функции:
1.stringIn- входящая строка
2.versionSHA- версия алгоритма SHA
3.charLower - вывод результата в нижнем регистре (опционально, по умолчанию FALSE)
Поддержка следующих алгоритмов (+ новейшие SHA3) :
versionSHA= 1, SHA1
versionSHA= 2224, SHA2_224
versionSHA= 2256, SHA2_256
versionSHA= 2384, SHA2_384
versionSHA = 2512, SHA2_512
versionSHA= 3224, SHA3_224
versionSHA= 3256, SHA3_256
versionSHA= 3384, SHA3_384
versionSHA= 3512, SHA3_512
Функция:
MDstrUTF8(BSTR stringIn, LONG versionMD, VARIANT_BOOL charLower)
Параметры функции:
1.stringIn- входящая строка
2.versionMD- версия алгоритма MD
3.charLower- вывод результата в нижнем регистре (опционально, по умолчанию FALSE)
Поддержка следующих алгоритмов:
versionMD = 5, MD5
Пример использования
[VBA]
Sub SHA_1()
Dim bCOM As New BedvitCOM.VBA
Debug.Print bCOM.HashStringSHA("String", 1) 'VersionSHA = 1, SHA1
End Sub
[/VBA]