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

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoOauth
    Handle hoChilkatGlob
    Boolean iSuccess
    String sTemp1

    Get Create (RefClass(cComChilkatOAuth1)) To hoOauth
    If (Not(IsComObjectCreated(hoOauth))) Begin
        Send CreateComObject of hoOauth
    End

    // All Chilkat classes can be unlocked at once at the beginning of a program
    // by calling UnlockBundle.  It requires a Bundle unlock code.
    Get Create (RefClass(cComChilkatGlobal)) To hoChilkatGlob
    If (Not(IsComObjectCreated(hoChilkatGlob))) Begin
        Send CreateComObject of hoChilkatGlob
    End
    Get ComUnlockBundle Of hoChilkatGlob "Anything for 30-day trial." To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoChilkatGlob To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Set input parameters:
    Set ComOauthVersion Of hoOauth To "1.0"
    Set ComOauthMethod Of hoOauth To "GET"
    Set ComOauthUrl Of hoOauth To "http://echo.lab.madgex.com/echo.ashx"
    Set ComConsumerKey Of hoOauth To "key"
    Set ComConsumerSecret Of hoOauth To "secret"
    Set ComToken Of hoOauth To "accesskey"
    Set ComTokenSecret Of hoOauth To "accesssecret"
    Set ComNonce Of hoOauth To "01020304050607080102030405060708"
    Set ComTimestamp Of hoOauth To "1441659763"
    // Can be "HMAC-SHA1", "HMAC-SHA256", "RSA-SHA1", or "RSA-SHA2"
    Set ComSignatureMethod Of hoOauth To "HMAC-SHA256"

    Get ComGenerate Of hoOauth To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoOauth To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Examine the various outputs:

    Get ComQueryString Of hoOauth To sTemp1
    Showln sTemp1
    Get ComBaseString Of hoOauth To sTemp1
    Showln sTemp1
    Get ComHmacKey Of hoOauth To sTemp1
    Showln sTemp1
    Get ComSignature Of hoOauth To sTemp1
    Showln sTemp1
    Get ComEncodedSignature Of hoOauth To sTemp1
    Showln sTemp1
    Get ComAuthorizationHeader Of hoOauth To sTemp1
    Showln sTemp1
    Get ComGeneratedUrl Of hoOauth To sTemp1
    Showln sTemp1


End_Procedure