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
(Delphi ActiveX) 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.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_v9_5_0_TLB; ... procedure TForm1.Button1Click(Sender: TObject); var pkcs11: TChilkatPkcs11; pin: WideString; userType: Integer; success: Integer; cert: TChilkatCert; xml: TChilkatXml; gen: TChilkatXmlDSigGen; bUsePrivateKey: Integer; sbXml: TChilkatStringBuilder; begin // 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. pkcs11 := TChilkatPkcs11.Create(Self); // 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 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? pin := 'user:password'; userType := 1; success := pkcs11.QuickSession(userType,pin); if (success = 0) then begin Memo1.Lines.Add(pkcs11.LastErrorText); Exit; end; cert := TChilkatCert.Create(Self); success := cert.LoadFromFile('qa_data/certs/myCert.cer'); if (success = 0) then begin Memo1.Lines.Add(cert.LastErrorText); Exit; end; // 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. success := cert.LinkPkcs11(pkcs11.ControlInterface); if (success = 0) then begin Memo1.Lines.Add(cert.LastErrorText); Exit; end; // -------------------------------------------------------------------------- // 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> xml := TChilkatXml.Create(Self); xml.Tag := 'SOAP-ENV:Envelope'; xml.AddAttribute('xmlns:SOAP-ENV','http://schemas.xmlsoap.org/soap/envelope/'); 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'); xml.UpdateAttrAt('SOAP-ENV:Header|wsse:Security',1,'SOAP-ENV:mustUnderstand','1'); xml.UpdateAttrAt('SOAP-ENV:Body',1,'xmlns:SOAP-SEC','http://schemas.xmlsoap.org/soap/security/2000-12'); xml.UpdateAttrAt('SOAP-ENV:Body',1,'SOAP-SEC:id','Body'); xml.UpdateAttrAt('SOAP-ENV:Body|z:FooBar',1,'xmlns:z','http://example.com'); gen := TChilkatXmlDSigGen.Create(Self); // Indicate where the Signature will be inserted. 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" gen.AddSameDocRef('Body','sha1','EXCL_C14N','',''); // (You can read about the SignedInfoPrefixList in the online reference documentation. It's optional..) 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. gen.KeyInfoType := 'X509Data'; gen.X509Type := 'Certificate'; bUsePrivateKey := 1; success := gen.SetX509Cert(cert.ControlInterface,bUsePrivateKey); if (success <> 1) then begin Memo1.Lines.Add(gen.LastErrorText); success := pkcs11.CloseSession(); Exit; end; // Everything's specified. Now create and insert the Signature sbXml := TChilkatStringBuilder.Create(Self); xml.EmitCompact := 1; xml.GetXmlSb(sbXml.ControlInterface); success := gen.CreateXmlDSigSb(sbXml.ControlInterface); if (success <> 1) then begin Memo1.Lines.Add(gen.LastErrorText); success := pkcs11.CloseSession(); Exit; end; // Examine the XML with the digital signature inserted Memo1.Lines.Add(sbXml.GetAsString()); // -------------------------------------------------------------------------- // Revert to an unauthenticated session by calling Logout. success := pkcs11.Logout(); if (success = 0) then begin Memo1.Lines.Add(pkcs11.LastErrorText); success := pkcs11.CloseSession(); Exit; end; // When finished, close the session. // It is important to close the session (memory leaks will occur if the session is not properly closed). success := pkcs11.CloseSession(); if (success = 0) then begin Memo1.Lines.Add(pkcs11.LastErrorText); Exit; end; Memo1.Lines.Add('Success.'); end; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.