Xbase++ Requires Chilkat v11.5.0+

XAdES XML Signature using ARSS (Aruba Remote Signing Service)

See more Signing in the Cloud Examples

Demonstrates how to sign XML using ARSS (Aruba Remote Signing Service). Xbase++

LOCAL nSuccess
LOCAL oSbXml
LOCAL nBCrlf
LOCAL oCert
LOCAL oJsonArss
LOCAL oGen
LOCAL nBUsePrivateKey

nSuccess := 0

//  This example requires the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

//  --------------------------------------------------------------------------------
//  Also see Chilkat's Online WSDL Code Generator
//  to generate code and SOAP Request and Response XML for each operation in a WSDL.
//  --------------------------------------------------------------------------------

//  Create the XML to be signed.
oSbXml := CreateObject("Chilkat.StringBuilder")

nBCrlf := 1
oSbXml:AppendLine('<?xml version="1.0" encoding="UTF-8" standalone="no" ?>', nBCrlf)
oSbXml:AppendLine('<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/">', nBCrlf)
oSbXml:AppendLine("    <SOAP-ENV:Header>", nBCrlf)
oSbXml:AppendLine('        <wsse:Security xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd" SOAP-ENV:mustUnderstand="1"></wsse:Security>', nBCrlf)
oSbXml:AppendLine("    </SOAP-ENV:Header>", nBCrlf)
oSbXml:AppendLine('    <SOAP-ENV:Body xmlns:SOAP-SEC="http://schemas.xmlsoap.org/soap/security/2000-12" SOAP-SEC:id="Body">', nBCrlf)
oSbXml:AppendLine('        <z:FooBar xmlns:z="http://example.com" />', nBCrlf)
oSbXml:AppendLine("    </SOAP-ENV:Body>", nBCrlf)
oSbXml:AppendLine("</SOAP-ENV:Envelope>", nBCrlf)

//  Specify the signing certificate and the ARSS credentials

//  Load the certificate used for signing.  The certificate's private key is stored on 
//  the Aruba.it server and the signing will happen remotely using the
//  ARSS (Aruba Remote Signing Service).
//  However, we still need the certificate locally (without private key).
oCert := CreateObject("Chilkat.Cert")
nSuccess := oCert:LoadFromFile("qa_data/certs/myCert.cer")
IF (nSuccess == 0)
    ? oCert:LastErrorText
    oSbXml:destroy()
    oCert:destroy()
    RETURN
ENDIF

//  To sign using the Aruba Remote Signing Service, 
//  add the following lines of code to specify your authentication credentials,
//  and the ID of the certificate w/ private key on the server to be used.
oJsonArss := CreateObject("Chilkat.JsonObject")

//  Set the "service" equal to "ARSS" to tell Chilkat to use ARSS for signing.
oJsonArss:UpdateString("service", "ARSS")
//  Specify the certificate ID, such as "AS0"
//  This certificate should match the certificate loaded in the above code.
oJsonArss:UpdateString("certID", "YOUR_ARSS_CERT_ID")
oJsonArss:UpdateString("otpPwd", "YOUR_OTP_PWD")

//  Specifies the OTP authentication environment.
//  
//  Common values are:
//    "demoprod" - Demo/Test environment
//    "prod"     - Production environment
//  
//  This value is sent to the ARSS service and determines how the OTP
//  authentication is validated.  The correct value depends on the type
//  of Aruba account and environment that has been provisioned.
//  
//  If signing fails with an authentication-related error, verify that
//  the typeOtpAuth value matches the environment associated with the
//  ARSS account credentials being used.
oJsonArss:UpdateString("typeOtpAuth", "demoprod")

oJsonArss:UpdateString("user", "YOUR_ARSS_USERNAME")
oJsonArss:UpdateString("userPWD", "YOUR_ARSS_PASSWORD")

//  The "endpoint" can be specified starting in Chilkat v11.5.0
oJsonArss:UpdateString("endpoint", "https://app1.firma-remota.it/ArubaSignerService/webresources/signerservice")

nSuccess := oCert:SetCloudSigner(oJsonArss)

//  Prepare for signing...
oGen := CreateObject("Chilkat.XmlDSigGen")

//  Indicate where the Signature will be inserted.
oGen:SigLocation := "SOAP-ENV:Envelope|SOAP-ENV:Header|wsse:Security"

//  Add a reference to the fragment of the XML to be signed.

//  Note: "Body" refers to the XML element having an "id" equal to "Body", where "id" is case insensitive
//  and where any namespace might qualify the attribute.  In this case, the SOAP-ENV:Body fragment is signed
//  NOT because the tag = "Body", but because it has SOAP-SEC:id="Body"
oGen:AddSameDocRef("Body", "sha1", "EXCL_C14N", "", "")

//  (You can read about the SignedInfoPrefixList in the online reference documentation.  It's optional..)
oGen:SignedInfoPrefixList := "wsse SOAP-ENV"

oGen:KeyInfoType := "X509Data"
oGen:X509Type := "IssuerSerial"

nBUsePrivateKey := 1
nSuccess := oGen:SetX509Cert(oCert, nBUsePrivateKey)
IF (nSuccess == 0)
    ? oGen:LastErrorText
    oSbXml:destroy()
    oCert:destroy()
    oJsonArss:destroy()
    oGen:destroy()
    RETURN
ENDIF

//  Everything's specified.  Now create and insert the Signature
//  (The actual signing of the hash will happen on the Aruba server.)
nSuccess := oGen:CreateXmlDSigSb(oSbXml)
IF (nSuccess == 0)
    ? oGen:LastErrorText
    oSbXml:destroy()
    oCert:destroy()
    oJsonArss:destroy()
    oGen:destroy()
    RETURN
ENDIF

//  Examine the XML with the digital signature inserted
? oSbXml:GetAsString()

oSbXml:destroy()
oCert:destroy()
oJsonArss:destroy()
oGen:destroy()