HMAC SHA1 for Amazon S3

Demonstrates the HMAC SHA1 computation required by the Amazon S3 web service.

Download Chilkat Crypt ActiveX

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

'  This example uses sample data from:
'  http://docs.amazonwebservices.com/AmazonS3/2006-03-01/RESTAuthentication.html
strToSign = "GET" & vbLf & vbLf & vbLf & "Tue, 27 Mar 2007 19:36:42 +0000" & vbLf & "/johnsmith/photos/puppy.jpg"

set crypt = CreateObject("Chilkat.Crypt2")

success = crypt.UnlockComponent("Anything for 30-day trial.")
If (success <> 1) Then
    '  Unlock Failed.
    MsgBox crypt.LastErrorText
    WScript.Quit
End If

'  We want SHA1 for the HMAC hash algorithm:
crypt.HashAlgorithm = "sha1"

AWSAccessKeyId = "0PN5J17HBGZHT7JJ3X82"
AWSSecretAccessKey = "uV3F3YluFJax1cknvbcGwgjvx4QpvB+leU8dUj2o"

'  Set the HMAC secret key:
crypt.SetHmacKeyString AWSSecretAccessKey

'  By setting the charset = "utf-8", the string will be converted
'  to utf-8 (internal to the Chilkat component) prior to signing:
crypt.Charset = "utf-8"

'  Indicate that Base64 output is desired:
crypt.EncodingMode = "base64"

signature = crypt.HmacStringENC(strToSign)
outFile.WriteLine(crypt.LastErrorText)

'  Display the signature as part of the HTTP Authorization header:
outFile.WriteLine("Authorization: AWS " & AWSAccessKeyId _
     & ":" & signature)

outFile.WriteLine("Expected:      AWS 0PN5J17HBGZHT7JJ3X82:xXjDGYUmKxnwqr5KXNPGldn5LbA=")
outFile.Close