B4X

Generate OAuth 1.0 Signature

Demonstrates how to generate an OAuth 1.0 signature. B4X

Dim success As Boolean = False

'  This example assumes the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

success = False

Dim oauth As ChilkatOAuth1
oauth.Initialize

'  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
    Log(oauth.LastErrorText)
    Return
End If


'  Examine the various outputs:

Log(oauth.QueryString)
Log(oauth.BaseString)
Log(oauth.HmacKey)
Log(oauth.Signature)
Log(oauth.EncodedSignature)
Log(oauth.AuthorizationHeader)
Log(oauth.GeneratedUrl)