(PowerBuilder) 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

integer li_rc
oleobject loo_Oauth
oleobject loo_ChilkatGlob
integer li_Success

loo_Oauth = create oleobject
li_rc = loo_Oauth.ConnectToNewObject("Chilkat_9_5_0.OAuth1")
if li_rc < 0 then
    destroy loo_Oauth
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// All Chilkat classes can be unlocked at once at the beginning of a program
// by calling UnlockBundle.  It requires a Bundle unlock code.
loo_ChilkatGlob = create oleobject
li_rc = loo_ChilkatGlob.ConnectToNewObject("Chilkat_9_5_0.Global")

li_Success = loo_ChilkatGlob.UnlockBundle("Anything for 30-day trial.")
if li_Success <> 1 then
    Write-Debug loo_ChilkatGlob.LastErrorText
    destroy loo_Oauth
    destroy loo_ChilkatGlob
    return
end if

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

li_Success = loo_Oauth.Generate()
if li_Success <> 1 then
    Write-Debug loo_Oauth.LastErrorText
    destroy loo_Oauth
    destroy loo_ChilkatGlob
    return
end if

// Examine the various outputs:

Write-Debug loo_Oauth.QueryString
Write-Debug loo_Oauth.BaseString
Write-Debug loo_Oauth.HmacKey
Write-Debug loo_Oauth.Signature
Write-Debug loo_Oauth.EncodedSignature
Write-Debug loo_Oauth.AuthorizationHeader
Write-Debug loo_Oauth.GeneratedUrl


destroy loo_Oauth
destroy loo_ChilkatGlob