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
(Visual Basic 6.0) 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.
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim pdf As New ChilkatPdf ' Load a PDF to be signed. Dim success As Long success = pdf.LoadFile("qa_data/pdf/hello.pdf") If (success = 0) Then Debug.Print pdf.LastErrorText Exit Sub End If ' Options for signing are specified in JSON. Dim json As New ChilkatJsonObject ' Indicate that we want an LTV-enabled signature success = json.UpdateBool("ltvOcsp",1) ' Define the appearance of the signature. success = json.UpdateInt("page",1) success = json.UpdateString("appearance.y","top") success = json.UpdateString("appearance.x","left") success = json.UpdateString("appearance.fontScale","10.0") success = json.UpdateString("appearance.text[0]","Digitally signed by: cert_cn") success = json.UpdateString("appearance.text[1]","current_dt") success = json.UpdateString("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). Dim cert As New ChilkatCert success = cert.LoadFromFile("qa_data/certs/myCert.cer") If (success = 0) Then Debug.Print cert.LastErrorText Exit Sub End If ' 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. Dim jsonArss As New ChilkatJsonObject ' Set the "service" equal to "ARSS" to tell Chilkat to use ARSS for signing. success = jsonArss.UpdateString("service","ARSS") ' Specify the certificate ID, such as "AS0" ' This certificate should match the certificate loaded in the above code. success = jsonArss.UpdateString("certID","YOUR_ARSS_CERT_ID") success = jsonArss.UpdateString("otpPwd","YOUR_OTP_PWD") success = jsonArss.UpdateString("typeOtpAuth","demoprod") success = jsonArss.UpdateString("user","YOUR_ARSS_USERNAME") success = jsonArss.UpdateString("userPWD","YOUR_ARSS_PASSWORD") success = cert.SetCloudSigner(jsonArss) ' Tell the pdf object to use the certificate for signing. success = pdf.SetSigningCert(cert) If (success = 0) Then Debug.Print pdf.LastErrorText Exit Sub End If ' Chilkat will build the signed PDF locally, but will (internally) use ARSS ' to do the RSA sign hash operation. success = pdf.SignPdf(json,"qa_output/hello_ltv_signed.pdf") If (success = 0) Then Debug.Print pdf.LastErrorText Exit Sub End If Debug.Print "The PDF has been successfully cryptographically signed with long-term validation." |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.