program-id. main as "ConsoleApplication5.Main".
environment division.
configuration section.
repository.
class ClassCspParameters as "System.Security.Cryptography.CspParameters"
class ClassXmlDocument as "System.Xml.XmlDocument"
class ClassXmlNode as "System.Xml.XmlNode"
class ClassRSACryptoServiceProvider as "System.Security.Cryptography.RSACryptoServiceProvider"
class ClassSignedXml as "System.Security.Cryptography.Xml.SignedXml"
class ClassXmlReference as "System.Security.Cryptography.Xml.Reference"
class ClassXmlDsigEnvSignatureTrans
as "System.Security.Cryptography.Xml.XmlDsigEnvelopedSignatureTransform"
class ClassXmlElement as "System.Xml.XmlElement"
class SystemString as "System.String"
property StringEmpty as "Empty"
property KeyContainer as "KeyContainerName"
property PreserveWhitespace as "PreserveWhitespace"
property SigningKey as "SigningKey"
property Uri as "Uri"
property DocumentElement as "DocumentElement".
data division.
working-storage section.
01 cspParams usage object reference ClassCspParameters.
01 xmlDoc usage object reference ClassXmlDocument.
01 xmlDocChild usage object reference ClassXmlNode.
01 xmlNode usage object reference ClassXmlNode.
01 rsaKey usage object reference ClassRSACryptoServiceProvider.
01 signedXml usage object reference ClassSignedXml.
01 xmlReference usage object reference ClassXmlReference.
01 emptyString usage object reference SystemString.
01 env usage object reference ClassXmlDsigEnvSignatureTrans.
01 xmlDigitalSignature usage object reference ClassXmlElement.
01 xmlElement usage object reference ClassXmlElement.
procedure division.
*> Cobol does not support empty strings, so this a trick
set emptyString to StringEmpty of SystemString
*> C# CspParameters cspParams = new CspParameters();
invoke ClassCspParameters "NEW" returning cspParams
*> C# cspParams.KeyContainerName = "XML_DSIG_RSA_KEY";
set KeyContainer OF cspParams to "XML_DSIG_RSA_KEY"
*> C# RSACryptoServiceProvider rsaKey = new RSACryptoServiceProvider(cspParams);
invoke ClassRSACryptoServiceProvider "NEW" using cspParams returning rsaKey
*> C# XmlDocument xmlDoc = new XmlDocument();
invoke ClassXmlDocument "NEW" returning xmlDoc
*> C# xmlDoc.PreserveWhitespace = true;
set PreserveWhitespace of xmlDoc to b"1"
*> C# xmlDoc.Load("test.xml");
invoke xmlDoc "Load" using "c:\test.xml"
*> C# SignedXml signedXml = new SignedXml(Doc);
invoke ClassSignedXml "NEW" using xmlDoc returning signedXml
*> C# signedXml.SigningKey = Key; - it should be rsaKey instead of just "Key"
set SigningKey of signedXml to rsaKey
*> C# Reference reference = new Reference();
invoke ClassXmlReference "NEW" returning xmlReference
*> reference.Uri = ""; // !! means all document
set uri of xmlReference to emptyString
*> C$ XmlDsigEnvelopedSignatureTransform env = new XmlDsigEnvelopedSignatureTransform();
invoke ClassXmlDsigEnvSignatureTrans "NEW" returning env
*> C# reference.AddTransform(env);
invoke xmlReference "AddTransform" using env
*> C# signedXml.AddReference(reference);
invoke signedXml "AddReference" using xmlReference
*> signedXml.ComputeSignature()
invoke signedXml "ComputeSignature"
*> C# XmlElement xmlDigitalSignature = signedXml.GetXml();
invoke signedXml "GetXml" returning xmlDigitalSignature
*> C# Doc.DocumentElement.AppendChild(Doc.ImportNode(xmlDigitalSignature, true));
invoke xmlDoc "ImportNode" using xmlDigitalSignature, b"1" returning xmlDocChild
set xmlElement to DocumentElement of xmlDoc
invoke xmlElement "AppendChild" using xmlDocChild
*> C# xmlDoc.Save("SignedTest.xml");
invoke xmlDoc "Save" using "c:\SignedTest.xml"
stop run.
