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
(PowerBuilder) Create CAdES (p7m) Signature using ARSS (Aruba Remote Signing Service)See more Signing in the Cloud ExamplesDemonstrates creating a CAdES (p7m) signature using the Aruba Remote Signing Service. Note: This example requires Chilkat v9.5.0.96 or later.
integer li_rc oleobject loo_Cert integer li_Success oleobject loo_JsonArss oleobject loo_Crypt oleobject loo_SignedAttrs string ls_InputXmlPath string ls_OutputP7mPath // This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. // 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). loo_Cert = create oleobject li_rc = loo_Cert.ConnectToNewObject("Chilkat_9_5_0.Cert") if li_rc < 0 then destroy loo_Cert MessageBox("Error","Connecting to COM object failed") return end if li_Success = loo_Cert.LoadFromFile("qa_data/certs/myCert.cer") if li_Success = 0 then Write-Debug loo_Cert.LastErrorText destroy loo_Cert return 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. loo_JsonArss = create oleobject li_rc = loo_JsonArss.ConnectToNewObject("Chilkat_9_5_0.JsonObject") // Set the "service" equal to "ARSS" to tell Chilkat to use ARSS for signing. loo_JsonArss.UpdateString("service","ARSS") // Specify the certificate ID, such as "AS0" // This certificate should match the certificate loaded in the above code. loo_JsonArss.UpdateString("certID","YOUR_ARSS_CERT_ID") loo_JsonArss.UpdateString("otpPwd","YOUR_OTP_PWD") loo_JsonArss.UpdateString("typeOtpAuth","demoprod") loo_JsonArss.UpdateString("user","YOUR_ARSS_USERNAME") loo_JsonArss.UpdateString("userPWD","YOUR_ARSS_PASSWORD") li_Success = loo_Cert.SetCloudSigner(loo_JsonArss) loo_Crypt = create oleobject li_rc = loo_Crypt.ConnectToNewObject("Chilkat_9_5_0.Crypt2") li_Success = loo_Crypt.SetSigningCert(loo_Cert) if li_Success = 0 then Write-Debug loo_Crypt.LastErrorText destroy loo_Cert destroy loo_JsonArss destroy loo_Crypt return end if // The CadesEnabled property applies to all methods that create PKCS7 signatures. // To create a CAdES-BES signature, set this property equal to true. loo_Crypt.CadesEnabled = 1 loo_Crypt.HashAlgorithm = "sha256" loo_SignedAttrs = create oleobject li_rc = loo_SignedAttrs.ConnectToNewObject("Chilkat_9_5_0.JsonObject") loo_SignedAttrs.UpdateInt("contentType",1) loo_SignedAttrs.UpdateInt("signingTime",1) loo_SignedAttrs.UpdateInt("messageDigest",1) loo_SignedAttrs.UpdateInt("signingCertificateV2",1) loo_Crypt.SigningAttributes = loo_SignedAttrs.Emit() // You can sign any type of file.. ls_InputXmlPath = "qa_data/e-Invoice.xml" ls_OutputP7mPath = "qa_output/signed.p7m" // Create the CAdES-BES attached signature, which contains the original data. // Chilkat will build the .p7m locally, but will (internally) use ARSS // to do the RSA signing remotely. li_Success = loo_Crypt.CreateP7M(ls_InputXmlPath,ls_OutputP7mPath) if li_Success = 0 then Write-Debug loo_Crypt.LastErrorText destroy loo_Cert destroy loo_JsonArss destroy loo_Crypt destroy loo_SignedAttrs return end if Write-Debug "Success." destroy loo_Cert destroy loo_JsonArss destroy loo_Crypt destroy loo_SignedAttrs |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.