(Visual FoxPro) Generate OAuth 1.0 Signature

Demonstrates how to generate an OAuth 1.0 signature.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loOauth
LOCAL loChilkatGlob
LOCAL lnSuccess

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.OAuth1')
loOauth = CreateObject('Chilkat.OAuth1')

* All Chilkat classes can be unlocked at once at the beginning of a program
* by calling UnlockBundle.  It requires a Bundle unlock code.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Global')
loChilkatGlob = CreateObject('Chilkat.Global')
lnSuccess = loChilkatGlob.UnlockBundle("Anything for 30-day trial.")
IF (lnSuccess <> 1) THEN
    ? loChilkatGlob.LastErrorText
    RELEASE loOauth
    RELEASE loChilkatGlob
    CANCEL
ENDIF

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

lnSuccess = loOauth.Generate()
IF (lnSuccess <> 1) THEN
    ? loOauth.LastErrorText
    RELEASE loOauth
    RELEASE loChilkatGlob
    CANCEL
ENDIF

* Examine the various outputs:

? loOauth.QueryString
? loOauth.BaseString
? loOauth.HmacKey
? loOauth.Signature
? loOauth.EncodedSignature
? loOauth.AuthorizationHeader
? loOauth.GeneratedUrl

RELEASE loOauth
RELEASE loChilkatGlob