![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(AutoIt) Belgium eHealth Platform - checkAccessControlSee more Belgian eHealth Platform ExamplesDemonstrates the checkAccessControl operation of PlatformIntegrationConsumerTest, which requires an X.509 certificate and signature. This tests the validity of your certificate and signature.Note: This example requires Chilkat v11.0.0 or greater. For more information, see https://www.ehealth.fgov.be/ehealthplatform/nl/beveiliging-van-webservices#1
Local $bSuccess = False ; This example assumes the Chilkat API to have been previously unlocked. ; See Global Unlock Sample for sample code. ; Provide a certificate + private key. ; Note: If your certificate + private key is located on a hardware token or smartcard, you can call a different function to load from smartcard.. $oCert = ObjCreate("Chilkat.Cert") $bSuccess = $oCert.LoadPfxFile("SSIN=12345678.acc.p12","p12_password") If ($bSuccess = False) Then ConsoleWrite($oCert.LastErrorText & @CRLF) Exit EndIf ; Create the XML to be signed... $oXmlToSign = ObjCreate("Chilkat.Xml") $oXmlToSign.Tag = "soapenv:Envelope" $oXmlToSign.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/") $oXmlToSign.AddAttribute("xmlns:urn","urn:be:fgov:ehealth:platformintegrationconsumertest:v1") $oXmlToSign.AddAttribute("xmlns:urn1","urn:be:fgov:ehealth:platformintegrationconsumertest:types:v1") $oXmlToSign.UpdateAttrAt("soapenv:Header|wsse:Security",True,"xmlns:wsse","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd") $oXmlToSign.UpdateAttrAt("soapenv:Header|wsse:Security",True,"xmlns:wsu","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd") $oXmlToSign.UpdateAttrAt("soapenv:Header|wsse:Security|wsse:BinarySecurityToken",True,"EncodingType","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary") $oXmlToSign.UpdateAttrAt("soapenv:Header|wsse:Security|wsse:BinarySecurityToken",True,"ValueType","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509v3") $oXmlToSign.UpdateAttrAt("soapenv:Header|wsse:Security|wsse:BinarySecurityToken",True,"wsu:Id","X509-FC77E2C72083DA8E0F16711753508182856") ; --------------------------------------------------------------------------------------------------------------- ; A note about the Id's, such as X509-FC77E2C72083DA8E0F16711753508182856, TS-FC77E2C72083DA8E0F16711753508042855, etc. ; These Id's simply need to be unique within the XML document. You don't need to generate new Id's every time. ; You can use the same Id's in each XML document that is submitted. The purpose of each Id is to ; match the XMLDsig Reference to the element in XML being referenced. ; In other words, you could use the Id's "mickey_mouse", "donald_duck", and "goofy", and it would work perfectly OK, ; as long as no other XML elements also use the Id's "mickey_mouse", "donald_duck", or "goofy" ; --------------------------------------------------------------------------------------------------------------- $oBdCert = ObjCreate("Chilkat.BinData") $oCert.ExportCertDerBd($oBdCert) $oXmlToSign.UpdateChildContent "soapenv:Header|wsse:Security|wsse:BinarySecurityToken",$oBdCert.GetEncoded("base64") $oXmlToSign.UpdateAttrAt("soapenv:Header|wsse:Security|wsu:Timestamp",True,"wsu:Id","TS-FC77E2C72083DA8E0F16711753508042855") $oDt = ObjCreate("Chilkat.CkDateTime") $oDt.SetFromCurrentSystemTime() $oXmlToSign.UpdateChildContent "soapenv:Header|wsse:Security|wsu:Timestamp|wsu:Created",$oDt.GetAsTimestamp(False) $oDt.AddSeconds(3600) $oXmlToSign.UpdateChildContent "soapenv:Header|wsse:Security|wsu:Timestamp|wsu:Expires",$oDt.GetAsTimestamp(False) $oDt.AddSeconds(-3600) $oXmlToSign.UpdateAttrAt("soapenv:Body",True,"wsu:Id","id-FC77E2C72083DA8E0F16711753508182859") $oXmlToSign.UpdateAttrAt("soapenv:Body",True,"xmlns:wsu","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd") $oXmlToSign.UpdateChildContent "soapenv:Body|urn:CheckAccessControlRequest|urn1:Message","Hello World" ; Create a timestamp with the current date/time in the following format: 2014-12-30T15:29:03.157+01:00 $oXmlToSign.UpdateChildContent "soapenv:Body|urn:CheckAccessControlRequest|urn1:Timestamp",$oDt.GetAsTimestamp(True) $oGen = ObjCreate("Chilkat.XmlDSigGen") $oGen.SigLocation = "soapenv:Envelope|soapenv:Header|wsse:Security|wsse:BinarySecurityToken" $oGen.SigLocationMod = 1 $oGen.SigId = "SIG-FC77E2C72083DA8E0F16711753508252860" $oGen.SigNamespacePrefix = "ds" $oGen.SigNamespaceUri = "http://www.w3.org/2000/09/xmldsig#" $oGen.SignedInfoPrefixList = "soapenv urn urn1" $oGen.IncNamespacePrefix = "ec" $oGen.IncNamespaceUri = "http://www.w3.org/2001/10/xml-exc-c14n#" $oGen.SignedInfoCanonAlg = "EXCL_C14N" $oGen.SignedInfoDigestMethod = "sha256" ; Set the KeyInfoId before adding references.. $oGen.KeyInfoId = "KI-FC77E2C72083DA8E0F16711753508182857" ; -------- Reference 1 -------- $oGen.AddSameDocRef("TS-FC77E2C72083DA8E0F16711753508042855","sha256","EXCL_C14N","wsse soapenv urn urn1","") ; -------- Reference 2 -------- $oGen.AddSameDocRef("id-FC77E2C72083DA8E0F16711753508182859","sha256","EXCL_C14N","urn urn1","") ; -------- Reference 3 -------- $oGen.AddSameDocRef("X509-FC77E2C72083DA8E0F16711753508182856","sha256","EXCL_C14N","_EMPTY_","") $oGen.SetX509Cert($oCert,True) $oGen.KeyInfoType = "Custom" ; Create the custom KeyInfo XML.. $oXmlCustomKeyInfo = ObjCreate("Chilkat.Xml") $oXmlCustomKeyInfo.Tag = "wsse:SecurityTokenReference" $oXmlCustomKeyInfo.AddAttribute("wsu:Id","STR-FC77E2C72083DA8E0F16711753508182858") $oXmlCustomKeyInfo.UpdateAttrAt("wsse:Reference",True,"URI","#X509-FC77E2C72083DA8E0F16711753508182856") $oXmlCustomKeyInfo.UpdateAttrAt("wsse:Reference",True,"ValueType","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509v3") $oXmlCustomKeyInfo.EmitXmlDecl = False $oGen.CustomKeyInfoXml = $oXmlCustomKeyInfo.GetXml() ; Load XML to be signed... $oSbXml = ObjCreate("Chilkat.StringBuilder") $oXmlToSign.GetXmlSb($oSbXml) $oGen.Behaviors = "IndentedSignature" ; Sign the XML... $bSuccess = $oGen.CreateXmlDSigSb($oSbXml) If ($bSuccess = False) Then ConsoleWrite($oGen.LastErrorText & @CRLF) Exit EndIf ; ----------------------------------------------- ; Send the signed XML... $oHttp = ObjCreate("Chilkat.Http") $bSuccess = $oHttp.SetSslClientCert($oCert) If ($bSuccess = False) Then ConsoleWrite($oHttp.LastErrorText & @CRLF) Exit EndIf $oHttp.SetRequestHeader "Content-Type","text/xml" ; Change to services.ehealth.fgov.be for the production environment. $oResp = ObjCreate("Chilkat.HttpResponse") $bSuccess = $oHttp.HttpSb("POST","https://services-acpt.ehealth.fgov.be/PlatformIntegrationConsumerTest/v1",$oSbXml,"utf-8","application/xml",$oResp) If ($bSuccess = False) Then ConsoleWrite($oHttp.LastErrorText & @CRLF) Exit EndIf ConsoleWrite($oResp.BodyStr & @CRLF) ConsoleWrite("response status code = " & $oResp.StatusCode & @CRLF) ; A successful response is a 200 status code, with this sample response: ; <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"> ; <soapenv:Header xmlns:v1="urn:be:fgov:ehealth:platformintegrationconsumertest:v1" xmlns:v11="urn:be:fgov:ehealth:platformintegrationconsumertest:types:v1"/> ; <soapenv:Body xmlns:ic="urn:be:fgov:ehealth:platformintegrationconsumertest:v1" xmlns:type="urn:be:fgov:ehealth:platformintegrationconsumertest:types:v1"> ; <ic:CheckAccessControlResponse> ; <type:Message>Hello World</type:Message> ; <type:Timestamp>2023-09-28T22:17:26.643+02:00</type:Timestamp> ; <type:AuthenticatedConsumer>CN="SSIN=aaaaaa", OU=eHealth-platform Belgium, OU=bbbb, OU="SSIN=aaaaaaa", O=Federal Government, C=BE</type:AuthenticatedConsumer> ; </ic:CheckAccessControlResponse> ; </soapenv:Body> ; </soapenv:Envelope> |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.