(Excel) Generate OAuth 1.0 Signature

Demonstrates how to generate an OAuth 1.0 signature.

Download Excel Class Modules Chilkat Excel Class Modules

Dim oauth As Chilkat.OAuth1
Set oauth = Chilkat.NewOAuth1

' All Chilkat classes can be unlocked at once at the beginning of a program
' by calling UnlockBundle.  It requires a Bundle unlock code.
Dim chilkatGlob As Chilkat.CkGlobal
Set chilkatGlob = Chilkat.NewCkGlobal

success = chilkatGlob.UnlockBundle("Anything for 30-day trial.")
If (success <> True) Then
    Debug.Print chilkatGlob.LastErrorText
    Exit Sub
End If

' Set input parameters:
oauth.OauthVersion = "1.0"
oauth.OauthMethod = "GET"
oauth.OauthUrl = "http://echo.lab.madgex.com/echo.ashx"
oauth.ConsumerKey = "key"
oauth.ConsumerSecret = "secret"
oauth.Token = "accesskey"
oauth.TokenSecret = "accesssecret"
oauth.Nonce = "01020304050607080102030405060708"
oauth.Timestamp = "1441659763"
' Can be "HMAC-SHA1", "HMAC-SHA256", "RSA-SHA1", or "RSA-SHA2"
oauth.SignatureMethod = "HMAC-SHA256"

success = oauth.Generate()
If (success <> True) Then
    Debug.Print oauth.LastErrorText
    Exit Sub
End If

' Examine the various outputs:

Debug.Print oauth.QueryString
Debug.Print oauth.BaseString
Debug.Print oauth.HmacKey
Debug.Print oauth.Signature
Debug.Print oauth.EncodedSignature
Debug.Print oauth.AuthorizationHeader
Debug.Print oauth.GeneratedUrl