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
(VBScript) 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.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") Set outFile = fso.CreateTextFile("output.txt", True) ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. set pdf = CreateObject("Chilkat_9_5_0.Pdf") ' Load a PDF to be signed. success = pdf.LoadFile("qa_data/pdf/hello.pdf") If (success = 0) Then outFile.WriteLine(pdf.LastErrorText) WScript.Quit End If ' Options for signing are specified in JSON. set json = CreateObject("Chilkat_9_5_0.JsonObject") ' 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). set cert = CreateObject("Chilkat_9_5_0.Cert") success = cert.LoadFromFile("qa_data/certs/myCert.cer") If (success = 0) Then outFile.WriteLine(cert.LastErrorText) WScript.Quit 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. set jsonArss = CreateObject("Chilkat_9_5_0.JsonObject") ' 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 outFile.WriteLine(pdf.LastErrorText) WScript.Quit 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 outFile.WriteLine(pdf.LastErrorText) WScript.Quit End If outFile.WriteLine("The PDF has been successfully cryptographically signed with long-term validation.") outFile.Close |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.