Visual FoxPro
Sign XML (XAdES) using AWS CloudHSM

Demonstrates how to sign XML using AWS CloudHSM. The signing of the hash happens on a hardware token in AWS CloudHSM. 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.
Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro
Visual FoxPro
LOCAL lnSuccess
LOCAL loPkcs11
LOCAL lcPin
LOCAL lnUserType
LOCAL loCert
LOCAL loXml
LOCAL loGen
LOCAL lnBUsePrivateKey
LOCAL loSbXml

lnSuccess = 0

* 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('Chilkat.Pkcs11')

* Provide the path to the AWS CloudHSM PKCS11 driver.
* This example runs on Windows, so we'll provide the CloudHSM DLL.
* If your code runs on Linux, the CloudHSM driver might be at /opt/cloudhsm/lib/libcloudhsm_pkcs11.so
loPkcs11.SharedLibPath = "C:\Program Files\Amazon\CloudHSM\lib\cloudhsm_pkcs11.dll"

* Your PIN should be a string containing your crypto user's login and password, with a colon char delimiting.
* See https://docs.aws.amazon.com/cloudhsm/latest/userguide/pkcs11-pin.html
lcPin = "user:password"
lnUserType = 1

lnSuccess = loPkcs11.QuickSession(lnUserType,lcPin)
IF (lnSuccess = 0) THEN
    ? loPkcs11.LastErrorText
    RELEASE loPkcs11
    CANCEL
ENDIF

loCert = CreateObject('Chilkat.Cert')
lnSuccess = loCert.LoadFromFile("qa_data/certs/myCert.cer")
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loPkcs11
    RELEASE loCert
    CANCEL
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.
lnSuccess = loCert.LinkPkcs11(loPkcs11)
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loPkcs11
    RELEASE loCert
    CANCEL
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('Chilkat.Xml')
loXml.Tag = "SOAP-ENV:Envelope"
loXml.AddAttribute("xmlns:SOAP-ENV","http://schemas.xmlsoap.org/soap/envelope/")
loXml.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")
loXml.UpdateAttrAt("SOAP-ENV:Header|wsse:Security",1,"SOAP-ENV:mustUnderstand","1")
loXml.UpdateAttrAt("SOAP-ENV:Body",1,"xmlns:SOAP-SEC","http://schemas.xmlsoap.org/soap/security/2000-12")
loXml.UpdateAttrAt("SOAP-ENV:Body",1,"SOAP-SEC:id","Body")
loXml.UpdateAttrAt("SOAP-ENV:Body|z:FooBar",1,"xmlns:z","http://example.com")

loGen = CreateObject('Chilkat.XmlDSigGen')

* 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"

lnBUsePrivateKey = 1
lnSuccess = loGen.SetX509Cert(loCert,lnBUsePrivateKey)
IF (lnSuccess <> 1) THEN
    ? loGen.LastErrorText
    lnSuccess = loPkcs11.CloseSession()
    RELEASE loPkcs11
    RELEASE loCert
    RELEASE loXml
    RELEASE loGen
    CANCEL
ENDIF

* Everything's specified.  Now create and insert the Signature
loSbXml = CreateObject('Chilkat.StringBuilder')
loXml.EmitCompact = 1
loXml.GetXmlSb(loSbXml)

lnSuccess = loGen.CreateXmlDSigSb(loSbXml)
IF (lnSuccess <> 1) THEN
    ? loGen.LastErrorText
    lnSuccess = loPkcs11.CloseSession()
    RELEASE loPkcs11
    RELEASE loCert
    RELEASE loXml
    RELEASE loGen
    RELEASE loSbXml
    CANCEL
ENDIF

* Examine the XML with the digital signature inserted
? loSbXml.GetAsString()

* --------------------------------------------------------------------------

* Revert to an unauthenticated session by calling Logout.
lnSuccess = loPkcs11.Logout()
IF (lnSuccess = 0) THEN
    ? loPkcs11.LastErrorText
    lnSuccess = loPkcs11.CloseSession()
    RELEASE loPkcs11
    RELEASE loCert
    RELEASE loXml
    RELEASE loGen
    RELEASE loSbXml
    CANCEL
ENDIF

* When finished, close the session.
* It is important to close the session (memory leaks will occur if the session is not properly closed).
lnSuccess = loPkcs11.CloseSession()
IF (lnSuccess = 0) THEN
    ? loPkcs11.LastErrorText
    RELEASE loPkcs11
    RELEASE loCert
    RELEASE loXml
    RELEASE loGen
    RELEASE loSbXml
    CANCEL
ENDIF

? "Success."

* --------------------------------------------------------------------------------
* Also see Chilkat's Online WSDL Code Generator
* to generate code and SOAP Request and Response XML for each operation in a WSDL.
* --------------------------------------------------------------------------------

RELEASE loPkcs11
RELEASE loCert
RELEASE loXml
RELEASE loGen
RELEASE loSbXml