Created
March 1, 2016 17:24
-
-
Save tomschenkjr/d6b28f98dec2f91f542a to your computer and use it in GitHub Desktop.
Hash function for Excel (taken from http://superuser.com/questions/550592/is-there-an-excel-function-to-create-a-hash-value)
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Public Function BASE64SHA1(ByVal sTextToHash As String) | |
Dim asc As Object | |
Dim enc As Object | |
Dim TextToHash() As Byte | |
Dim SharedSecretKey() As Byte | |
Dim bytes() As Byte | |
Const cutoff As Integer = 5 | |
Set asc = CreateObject("System.Text.UTF8Encoding") | |
Set enc = CreateObject("System.Security.Cryptography.HMACSHA1") | |
TextToHash = asc.GetBytes_4(sTextToHash) | |
SharedSecretKey = asc.GetBytes_4(sTextToHash) | |
enc.Key = SharedSecretKey | |
bytes = enc.ComputeHash_2((TextToHash)) | |
BASE64SHA1 = EncodeBase64(bytes) | |
BASE64SHA1 = Left(BASE64SHA1, cutoff) | |
Set asc = Nothing | |
Set enc = Nothing | |
End Function | |
Private Function EncodeBase64(ByRef arrData() As Byte) As String | |
Dim objXML As Object | |
Dim objNode As Object | |
Set objXML = CreateObject("MSXML2.DOMDocument") | |
Set objNode = objXML.createElement("b64") | |
objNode.DataType = "bin.base64" | |
objNode.nodeTypedValue = arrData | |
EncodeBase64 = objNode.text | |
Set objNode = Nothing | |
Set objXML = Nothing | |
End Function |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
A comprehensive list of general purpose hash functions and their implementations can found here:
https://www.partow.net/programming/hashfunctions/index.html