Decrypt a XML node encrypted with a symmetric key protected with a private RSA key

IMPORT xml

MAIN
  DEFINE doc xml.DomDocument
  DEFINE node xml.DomNode
  DEFINE enc xml.Encryption
  DEFINE symkey xml.CryptoKey
  DEFINE kek xml.CryptoKey
  DEFINE list xml.DomNodeList
  LET doc = xml.DomDocument.Create()
  # Notice that whitespaces are significants in crytography,
  # therefore it is recommended to remove unnecessary ones
  CALL doc.setFeature("whitespace-in-element-content",FALSE)
  TRY
    # Load encrypted XML file 
    CALL doc.load("EncryptedXMLFile.xml")
    # Retrieve encrypted node (if any) from the document
    LET list = doc.getElementsByTagNameNS("EncryptedData",
      "http://www.w3.org/2001/04/xmlenc#")
    IF list.getCount()==1 THEN
      LET node = list.getItem(1)
    ELSE
      DISPLAY "No encrypted node found"
      EXIT PROGRAM
    END IF
    # Load the private RSA key
    LET kek = xml.CryptoKey.create(
      "http://www.w3.org/2001/04/xmlenc#rsa-1_5")
    CALL kek.loadPEM("RSA1024Key.pem")
    # Decrypt the entire document
    LET enc = xml.Encryption.Create()
    CALL enc.setKeyEncryptionKey(kek) # Set the key-encryption key to 
                               # decrypted the protected symmetric key
    CALL enc.decryptElement(node) # Decrypt
    # Retrieve the embedded symmetric key for futher usage and display 
    # info about it
    LET symkey = enc.getEmbeddedKey()
    DISPLAY "Key size (in bytes) : ",symkey.getSize() # displays 1024
    DISPLAY "Key type : ",symkey.getType() # displays SYMMETRIC
    DISPLAY "Key usage : ",symkey.getUsage() # displays ENCRYPTION
    # Encrypted document back to disk
    CALL doc.setFeature("format-pretty-print",TRUE)
    CALL doc.save("DecryptedXMLFile.xml")
  CATCH
    DISPLAY "Unable to decrypt XML file :",STATUS
  END TRY
END MAIN