Created
August 18, 2015 17:18
-
-
Save jakebathman/fee8e3f93246c4360420 to your computer and use it in GitHub Desktop.
Excel hash creation function in VBA 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
Thank you for this! It worked great. I wrote a VBA macro to go through a selection in Excel and hash the values.