HMAC SHA1 for Amazon S3

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

Download Chilkat Crypt ActiveX

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
'  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 = Server.CreateObject("Chilkat.Crypt2")

success = crypt.UnlockComponent("Anything for 30-day trial.")
If (success <> 1) Then
    '  Unlock Failed.
    Response.Write crypt.LastErrorText & "<br>"

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)
Response.Write Server.HTMLEncode( crypt.LastErrorText) & "<br>"

'  Display the signature as part of the HTTP Authorization header:
Response.Write Server.HTMLEncode( "Authorization: AWS " _
     & AWSAccessKeyId & ":" & signature) & "<br>"

Response.Write Server.HTMLEncode( "Expected:      AWS 0PN5J17HBGZHT7JJ3X82:xXjDGYUmKxnwqr5KXNPGldn5LbA=") & "<br>"
%>
</body>
</html>