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) EuroCert Cloud Sign XMLSee more Signing in the Cloud ExamplesDemonstrates how to sign XML using the EuroCert cloud provider. The signing of the hash happens on a hardware token on the EuroCert server. Everything else involving the updating the XML to add the signature happens locally within Chilkat. Note: This example requires Chilkat v9.5.0.96 or later.
integer li_rc oleobject loo_Pkcs11 string ls_Pin integer li_UserType integer li_Success oleobject loo_Cert oleobject loo_Xml oleobject loo_Gen integer li_BUsePrivateKey oleobject loo_SbXml // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. // Note: Chilkat's PKCS11 implementation runs on Windows, Linux, Mac OS X, and other supported operating systems. loo_Pkcs11 = create oleobject li_rc = loo_Pkcs11.ConnectToNewObject("Chilkat_9_5_0.Pkcs11") if li_rc < 0 then destroy loo_Pkcs11 MessageBox("Error","Connecting to COM object failed") return end if // Provide the path to the EuroCert Cloud PKCS11 driver. // If your application runs as a 64-bit process, use the path to the 64-bit ECSPKCS11.dll loo_Pkcs11.SharedLibPath = "C:\Users\Public\ECSIGNER\PKCS11\32\ECSPKCS11.dll" // At this time, we don't know what should be used for the PIN. // Perhaps it is documented online by EuroCert? ls_Pin = "user:password" li_UserType = 1 li_Success = loo_Pkcs11.QuickSession(li_UserType,ls_Pin) if li_Success = 0 then Write-Debug loo_Pkcs11.LastErrorText destroy loo_Pkcs11 return end if loo_Cert = create oleobject li_rc = loo_Cert.ConnectToNewObject("Chilkat_9_5_0.Cert") li_Success = loo_Cert.LoadFromFile("qa_data/certs/myCert.cer") if li_Success = 0 then Write-Debug loo_Cert.LastErrorText destroy loo_Pkcs11 destroy loo_Cert return end if // Tell the certificate to link with the PKCS11 session. // The cert's private key should be installed on the CloudHSM. // If there are multiple private keys on the CloudHSM, then Chilkat will automatically // locate and use the private key corresponding to the certificate. li_Success = loo_Cert.LinkPkcs11(loo_Pkcs11) if li_Success = 0 then Write-Debug loo_Cert.LastErrorText destroy loo_Pkcs11 destroy loo_Cert return end if // -------------------------------------------------------------------------- // At this point, we have the cert to be used for signing. // Our XML signing code is the same as for a cert obtained from any other source.. // First generate the following XML to be signed: // Use this online tool to generate code from sample XML: // Generate Code to Create XML // <?xml version="1.0" encoding="UTF-8" standalone="no" ?> // <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"> // <SOAP-ENV:Header> // <wsse:Security xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd" SOAP-ENV:mustUnderstand="1"></wsse:Security> // </SOAP-ENV:Header> // <SOAP-ENV:Body xmlns:SOAP-SEC="http://schemas.xmlsoap.org/soap/security/2000-12" SOAP-SEC:id="Body"> // <z:FooBar xmlns:z="http://example.com" /> // </SOAP-ENV:Body> // </SOAP-ENV:Envelope> loo_Xml = create oleobject li_rc = loo_Xml.ConnectToNewObject("Chilkat_9_5_0.Xml") loo_Xml.Tag = "SOAP-ENV:Envelope" loo_Xml.AddAttribute("xmlns:SOAP-ENV","http://schemas.xmlsoap.org/soap/envelope/") loo_Xml.UpdateAttrAt("SOAP-ENV:Header|wsse:Security",1,"xmlns:wsse","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd") loo_Xml.UpdateAttrAt("SOAP-ENV:Header|wsse:Security",1,"SOAP-ENV:mustUnderstand","1") loo_Xml.UpdateAttrAt("SOAP-ENV:Body",1,"xmlns:SOAP-SEC","http://schemas.xmlsoap.org/soap/security/2000-12") loo_Xml.UpdateAttrAt("SOAP-ENV:Body",1,"SOAP-SEC:id","Body") loo_Xml.UpdateAttrAt("SOAP-ENV:Body|z:FooBar",1,"xmlns:z","http://example.com") loo_Gen = create oleobject li_rc = loo_Gen.ConnectToNewObject("Chilkat_9_5_0.XmlDSigGen") // Indicate where the Signature will be inserted. loo_Gen.SigLocation = "SOAP-ENV:Envelope|SOAP-ENV:Header|wsse:Security" // Add a reference to the fragment of the XML to be signed. // Note: "Body" refers to the XML element having an "id" equal to "Body", where "id" is case insensitive // and where any namespace might qualify the attribute. In this case, the SOAP-ENV:Body fragment is signed // NOT because the tag = "Body", but because it has SOAP-SEC:id="Body" loo_Gen.AddSameDocRef("Body","sha1","EXCL_C14N","","") // (You can read about the SignedInfoPrefixList in the online reference documentation. It's optional..) loo_Gen.SignedInfoPrefixList = "wsse SOAP-ENV" // Provide the private key for signing via the certificate, and indicate that // we want the base64 of the certificate embedded in the KeyInfo. loo_Gen.KeyInfoType = "X509Data" loo_Gen.X509Type = "Certificate" li_BUsePrivateKey = 1 li_Success = loo_Gen.SetX509Cert(loo_Cert,li_BUsePrivateKey) if li_Success <> 1 then Write-Debug loo_Gen.LastErrorText li_Success = loo_Pkcs11.CloseSession() destroy loo_Pkcs11 destroy loo_Cert destroy loo_Xml destroy loo_Gen return end if // Everything's specified. Now create and insert the Signature loo_SbXml = create oleobject li_rc = loo_SbXml.ConnectToNewObject("Chilkat_9_5_0.StringBuilder") loo_Xml.EmitCompact = 1 loo_Xml.GetXmlSb(loo_SbXml) li_Success = loo_Gen.CreateXmlDSigSb(loo_SbXml) if li_Success <> 1 then Write-Debug loo_Gen.LastErrorText li_Success = loo_Pkcs11.CloseSession() destroy loo_Pkcs11 destroy loo_Cert destroy loo_Xml destroy loo_Gen destroy loo_SbXml return end if // Examine the XML with the digital signature inserted Write-Debug loo_SbXml.GetAsString() // -------------------------------------------------------------------------- // Revert to an unauthenticated session by calling Logout. li_Success = loo_Pkcs11.Logout() if li_Success = 0 then Write-Debug loo_Pkcs11.LastErrorText li_Success = loo_Pkcs11.CloseSession() destroy loo_Pkcs11 destroy loo_Cert destroy loo_Xml destroy loo_Gen destroy loo_SbXml return end if // When finished, close the session. // It is important to close the session (memory leaks will occur if the session is not properly closed). li_Success = loo_Pkcs11.CloseSession() if li_Success = 0 then Write-Debug loo_Pkcs11.LastErrorText destroy loo_Pkcs11 destroy loo_Cert destroy loo_Xml destroy loo_Gen destroy loo_SbXml return end if Write-Debug "Success." destroy loo_Pkcs11 destroy loo_Cert destroy loo_Xml destroy loo_Gen destroy loo_SbXml |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.