Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(PureBasic) Sign PDF using ARSS (Aruba Remote Signing Service)See more Signing in the Cloud ExamplesDemonstrates how to sign a PDF using the Aruba Remote Signing Service (ARSS). Note: This example requires Chilkat v9.5.0.96 or greater.
IncludeFile "CkCert.pb" IncludeFile "CkJsonObject.pb" IncludeFile "CkPdf.pb" Procedure ChilkatExample() ; This example requires the Chilkat API to have been previously unlocked. ; See Global Unlock Sample for sample code. pdf.i = CkPdf::ckCreate() If pdf.i = 0 Debug "Failed to create object." ProcedureReturn EndIf ; Load a PDF to be signed. success.i = CkPdf::ckLoadFile(pdf,"qa_data/pdf/hello.pdf") If success = 0 Debug CkPdf::ckLastErrorText(pdf) CkPdf::ckDispose(pdf) ProcedureReturn EndIf ; Options for signing are specified in JSON. json.i = CkJsonObject::ckCreate() If json.i = 0 Debug "Failed to create object." ProcedureReturn EndIf ; Indicate that we want an LTV-enabled signature CkJsonObject::ckUpdateBool(json,"ltvOcsp",1) ; Define the appearance of the signature. CkJsonObject::ckUpdateInt(json,"page",1) CkJsonObject::ckUpdateString(json,"appearance.y","top") CkJsonObject::ckUpdateString(json,"appearance.x","left") CkJsonObject::ckUpdateString(json,"appearance.fontScale","10.0") CkJsonObject::ckUpdateString(json,"appearance.text[0]","Digitally signed by: cert_cn") CkJsonObject::ckUpdateString(json,"appearance.text[1]","current_dt") CkJsonObject::ckUpdateString(json,"appearance.text[2]","This is an LTV-enabled signature.") ; 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). cert.i = CkCert::ckCreate() If cert.i = 0 Debug "Failed to create object." ProcedureReturn EndIf success = CkCert::ckLoadFromFile(cert,"qa_data/certs/myCert.cer") If success = 0 Debug CkCert::ckLastErrorText(cert) CkPdf::ckDispose(pdf) CkJsonObject::ckDispose(json) CkCert::ckDispose(cert) ProcedureReturn 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. jsonArss.i = CkJsonObject::ckCreate() If jsonArss.i = 0 Debug "Failed to create object." ProcedureReturn EndIf ; Set the "service" equal to "ARSS" to tell Chilkat to use ARSS for signing. CkJsonObject::ckUpdateString(jsonArss,"service","ARSS") ; Specify the certificate ID, such as "AS0" ; This certificate should match the certificate loaded in the above code. CkJsonObject::ckUpdateString(jsonArss,"certID","YOUR_ARSS_CERT_ID") CkJsonObject::ckUpdateString(jsonArss,"otpPwd","YOUR_OTP_PWD") CkJsonObject::ckUpdateString(jsonArss,"typeOtpAuth","demoprod") CkJsonObject::ckUpdateString(jsonArss,"user","YOUR_ARSS_USERNAME") CkJsonObject::ckUpdateString(jsonArss,"userPWD","YOUR_ARSS_PASSWORD") success = CkCert::ckSetCloudSigner(cert,jsonArss) ; Tell the pdf object to use the certificate for signing. success = CkPdf::ckSetSigningCert(pdf,cert) If success = 0 Debug CkPdf::ckLastErrorText(pdf) CkPdf::ckDispose(pdf) CkJsonObject::ckDispose(json) CkCert::ckDispose(cert) CkJsonObject::ckDispose(jsonArss) ProcedureReturn EndIf ; Chilkat will build the signed PDF locally, but will (internally) use ARSS ; to do the RSA sign hash operation. success = CkPdf::ckSignPdf(pdf,json,"qa_output/hello_ltv_signed.pdf") If success = 0 Debug CkPdf::ckLastErrorText(pdf) CkPdf::ckDispose(pdf) CkJsonObject::ckDispose(json) CkCert::ckDispose(cert) CkJsonObject::ckDispose(jsonArss) ProcedureReturn EndIf Debug "The PDF has been successfully cryptographically signed with long-term validation." CkPdf::ckDispose(pdf) CkJsonObject::ckDispose(json) CkCert::ckDispose(cert) CkJsonObject::ckDispose(jsonArss) ProcedureReturn EndProcedure |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.