Мой старый сайт и зеркало-архив (осторожно, на сайте реклама!)
BedvitCOM.HashStringSHA
Часть библиотеки BedvitCOM
Использованы исходники Crypto++
Функция:
HashStringSHA(StringIn, VersionSHA)
Параметры функции:
1.StringIn - входящая строка
2.VersionSHA - версия алгоритма SHA
Поддержка следующих алгоритмов (+ новейшие 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
Пример использования
[VBA]
Sub SHA_1()
Dim bCOM As New BedvitCOM.VBA
Debug.Print bCOM.HashStringSHA("String", 1) 'VersionSHA = 1, SHA1
End Sub
[/VBA]