B4X

_LANGUAGE_ JCC Payment Systems - Get a User's Credential IDs for CSC

See more JCC Cyprus Examples

Demonstrates how to find the credential ids for a given user to be used with remote signing via the CSC (Cloud Signature Consortium) API.

Note: This example requires Chilkat v10.0.2 or greater.

B4X

Dim success As Boolean = False

'  Provide information about the CSC service and our user ID and client credentials.
Dim jsonCsc As ChilkatJsonObject
jsonCsc.Initialize

jsonCsc.UpdateString("service", "CSC")
jsonCsc.UpdateString("baseUrl", "https://ras-test.jcc.com.cy/adss/service/ras/csc/v1/")

jsonCsc.UpdateString("userId", "YOUR_USER_ID")
jsonCsc.UpdateString("clientId", "YOUR_CLIENT_ID")
jsonCsc.UpdateString("clientSecret", "YOUR_CLIENT_SECRET")

'  The call to SetCloudSigner will do the following internally:
'  1) Calls the "info" endpoint to get information about the remote service and the list of the API methods it supports.
'  2) Calls the "oauth2/token" endpoint to get the OAuth2 authorization token via client credentials (using the clientId and clientSecret).
'  3) Calls the "credentials/list" endpoint to get the list of credentials associated with the userId.
'  4) Calls the "credentials/info" endpoint to retrieve the credential and return the main identity information 
'     and the public key certificate or the certificate chain associated to it.
'     The Chilkat certificate object is loaded with the retrieved certificate.

'  The jsonCsc is updated with the information returned from each of the above calls.
Dim cert As ChilkatCert
cert.Initialize("cert")
success = cert.SetCloudSigner(jsonCsc)
If success = False Then
    Log(cert.LastErrorText)
    Return
End If


jsonCsc.EmitCompact = False

Log(jsonCsc.Emit)

'  We can do the following to get the credential IDs
Dim i As Int = 0
Dim numIds As Int = jsonCsc.SizeOfArray("credentials_list.credentialIDs")
Do While i < numIds
    jsonCsc.I = i
    Dim cred_id As String = jsonCsc.StringOf("credentials_list.credentialIDs[i]")
    Log("Credential ID: " & cred_id)
    i = i + 1
Loop