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
(Lianja) 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.
// 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. loPkcs11 = createobject("CkPkcs11") // 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 loPkcs11.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? lcPin = "user:password" lnUserType = 1 llSuccess = loPkcs11.QuickSession(lnUserType,lcPin) if (llSuccess = .F.) then ? loPkcs11.LastErrorText release loPkcs11 return endif loCert = createobject("CkCert") llSuccess = loCert.LoadFromFile("qa_data/certs/myCert.cer") if (llSuccess = .F.) then ? loCert.LastErrorText release loPkcs11 release loCert return endif // 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. llSuccess = loCert.LinkPkcs11(loPkcs11) if (llSuccess = .F.) then ? loCert.LastErrorText release loPkcs11 release loCert return endif // -------------------------------------------------------------------------- // 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> loXml = createobject("CkXml") loXml.Tag = "SOAP-ENV:Envelope" loXml.AddAttribute("xmlns:SOAP-ENV","http://schemas.xmlsoap.org/soap/envelope/") loXml.UpdateAttrAt("SOAP-ENV:Header|wsse:Security",.T.,"xmlns:wsse","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd") loXml.UpdateAttrAt("SOAP-ENV:Header|wsse:Security",.T.,"SOAP-ENV:mustUnderstand","1") loXml.UpdateAttrAt("SOAP-ENV:Body",.T.,"xmlns:SOAP-SEC","http://schemas.xmlsoap.org/soap/security/2000-12") loXml.UpdateAttrAt("SOAP-ENV:Body",.T.,"SOAP-SEC:id","Body") loXml.UpdateAttrAt("SOAP-ENV:Body|z:FooBar",.T.,"xmlns:z","http://example.com") loGen = createobject("CkXmlDSigGen") // Indicate where the Signature will be inserted. loGen.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" loGen.AddSameDocRef("Body","sha1","EXCL_C14N","","") // (You can read about the SignedInfoPrefixList in the online reference documentation. It's optional..) loGen.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. loGen.KeyInfoType = "X509Data" loGen.X509Type = "Certificate" llBUsePrivateKey = .T. llSuccess = loGen.SetX509Cert(loCert,llBUsePrivateKey) if (llSuccess <> .T.) then ? loGen.LastErrorText llSuccess = loPkcs11.CloseSession() release loPkcs11 release loCert release loXml release loGen return endif // Everything's specified. Now create and insert the Signature loSbXml = createobject("CkStringBuilder") loXml.EmitCompact = .T. loXml.GetXmlSb(loSbXml) llSuccess = loGen.CreateXmlDSigSb(loSbXml) if (llSuccess <> .T.) then ? loGen.LastErrorText llSuccess = loPkcs11.CloseSession() release loPkcs11 release loCert release loXml release loGen release loSbXml return endif // Examine the XML with the digital signature inserted ? loSbXml.GetAsString() // -------------------------------------------------------------------------- // Revert to an unauthenticated session by calling Logout. llSuccess = loPkcs11.Logout() if (llSuccess = .F.) then ? loPkcs11.LastErrorText llSuccess = loPkcs11.CloseSession() release loPkcs11 release loCert release loXml release loGen release loSbXml return endif // When finished, close the session. // It is important to close the session (memory leaks will occur if the session is not properly closed). llSuccess = loPkcs11.CloseSession() if (llSuccess = .F.) then ? loPkcs11.LastErrorText release loPkcs11 release loCert release loXml release loGen release loSbXml return endif ? "Success." release loPkcs11 release loCert release loXml release loGen release loSbXml |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.