(DataFlex) Sign PDF using ARSS (Aruba Remote Signing Service)

See more Signing in the Cloud Examples

Demonstrates how to sign a PDF using the Aruba Remote Signing Service (ARSS).

Note: This example requires Chilkat v9.5.0.96 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoPdf
    Boolean iSuccess
    Variant vJson
    Handle hoJson
    Variant vCert
    Handle hoCert
    Variant vJsonArss
    Handle hoJsonArss
    String sTemp1

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

    Get Create (RefClass(cComChilkatPdf)) To hoPdf
    If (Not(IsComObjectCreated(hoPdf))) Begin
        Send CreateComObject of hoPdf
    End

    // Load a PDF to be signed.
    Get ComLoadFile Of hoPdf "qa_data/pdf/hello.pdf" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoPdf To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Options for signing are specified in JSON.
    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End

    // Indicate that we want an LTV-enabled signature
    Get ComUpdateBool Of hoJson "ltvOcsp" True To iSuccess

    // Define the appearance of the signature.
    Get ComUpdateInt Of hoJson "page" 1 To iSuccess
    Get ComUpdateString Of hoJson "appearance.y" "top" To iSuccess
    Get ComUpdateString Of hoJson "appearance.x" "left" To iSuccess
    Get ComUpdateString Of hoJson "appearance.fontScale" "10.0" To iSuccess
    Get ComUpdateString Of hoJson "appearance.text[0]" "Digitally signed by: cert_cn" To iSuccess
    Get ComUpdateString Of hoJson "appearance.text[1]" "current_dt" To iSuccess
    Get ComUpdateString Of hoJson "appearance.text[2]" "This is an LTV-enabled signature." To iSuccess

    // 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).
    Get Create (RefClass(cComChilkatCert)) To hoCert
    If (Not(IsComObjectCreated(hoCert))) Begin
        Send CreateComObject of hoCert
    End
    Get ComLoadFromFile Of hoCert "qa_data/certs/myCert.cer" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoCert To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // 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.
    Get Create (RefClass(cComChilkatJsonObject)) To hoJsonArss
    If (Not(IsComObjectCreated(hoJsonArss))) Begin
        Send CreateComObject of hoJsonArss
    End

    // Set the "service" equal to "ARSS" to tell Chilkat to use ARSS for signing.
    Get ComUpdateString Of hoJsonArss "service" "ARSS" To iSuccess
    // Specify the certificate ID, such as "AS0"
    // This certificate should match the certificate loaded in the above code.
    Get ComUpdateString Of hoJsonArss "certID" "YOUR_ARSS_CERT_ID" To iSuccess
    Get ComUpdateString Of hoJsonArss "otpPwd" "YOUR_OTP_PWD" To iSuccess
    Get ComUpdateString Of hoJsonArss "typeOtpAuth" "demoprod" To iSuccess
    Get ComUpdateString Of hoJsonArss "user" "YOUR_ARSS_USERNAME" To iSuccess
    Get ComUpdateString Of hoJsonArss "userPWD" "YOUR_ARSS_PASSWORD" To iSuccess
    Get pvComObject of hoJsonArss to vJsonArss
    Get ComSetCloudSigner Of hoCert vJsonArss To iSuccess

    // Tell the pdf object to use the certificate for signing.
    Get pvComObject of hoCert to vCert
    Get ComSetSigningCert Of hoPdf vCert To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoPdf To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Chilkat will build the signed PDF locally, but will (internally) use ARSS
    // to do the RSA sign hash operation.
    Get pvComObject of hoJson to vJson
    Get ComSignPdf Of hoPdf vJson "qa_output/hello_ltv_signed.pdf" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoPdf To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "The PDF has been successfully cryptographically signed with long-term validation."


End_Procedure