HMAC SHA1 for Amazon S3

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

Download Chilkat Crypt ActiveX

LOCAL lcStrToSign
LOCAL loCrypt
LOCAL lnSuccess
LOCAL lcAWSAccessKeyId
LOCAL lcAWSSecretAccessKey
LOCAL lcSignature

*  This example uses sample data from:
*  http://docs.amazonwebservices.com/AmazonS3/2006-03-01/RESTAuthentication.html

lcStrToSign = "GET" + [CHR(10) + [CHR(10) + [CHR(10) + "Tue, 27 Mar 2007 19:36:42 +0000" + [CHR(10) + "/johnsmith/photos/puppy.jpg"

loCrypt = CreateObject('Chilkat.Crypt2')

lnSuccess = loCrypt.UnlockComponent("Anything for 30-day trial.")
IF (lnSuccess <> 1) THEN
    *  Unlock Failed.
    =MESSAGEBOX(loCrypt.LastErrorText)
    QUIT
ENDIF

*  We want SHA1 for the HMAC hash algorithm:
loCrypt.HashAlgorithm = "sha1"

lcAWSAccessKeyId = "0PN5J17HBGZHT7JJ3X82"

lcAWSSecretAccessKey = "uV3F3YluFJax1cknvbcGwgjvx4QpvB+leU8dUj2o"

*  Set the HMAC secret key:
loCrypt.SetHmacKeyString(lcAWSSecretAccessKey)

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

*  Indicate that Base64 output is desired:
loCrypt.EncodingMode = "base64"

lcSignature = loCrypt.HmacStringENC(lcStrToSign)
? loCrypt.LastErrorText

*  Display the signature as part of the HTTP Authorization header:
? "Authorization: AWS " + lcAWSAccessKeyId + ":" + lcSignature

? "Expected:      AWS 0PN5J17HBGZHT7JJ3X82:xXjDGYUmKxnwqr5KXNPGldn5LbA="