(Classic ASP) Classic ASP 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.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' Provide information about the CSC service and our user ID and client credentials.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set jsonCsc = Server.CreateObject("Chilkat.JsonObject")

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

success = jsonCsc.UpdateString("userId","YOUR_USER_ID")
success = jsonCsc.UpdateString("clientId","YOUR_CLIENT_ID")
success = 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.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Cert")
set cert = Server.CreateObject("Chilkat.Cert")
success = cert.SetCloudSigner(jsonCsc)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( cert.LastErrorText) & "</pre>"
    Response.End
End If

jsonCsc.EmitCompact = 0

Response.Write "<pre>" & Server.HTMLEncode( jsonCsc.Emit()) & "</pre>"

' We can do the following to get the credential IDs
i = 0
numIds = jsonCsc.SizeOfArray("credentials_list.credentialIDs")
Do While i < numIds
    jsonCsc.I = i
    cred_id = jsonCsc.StringOf("credentials_list.credentialIDs[i]")
    Response.Write "<pre>" & Server.HTMLEncode( "Credential ID: " & cred_id) & "</pre>"
    i = i + 1
Loop

%>
</body>
</html>