Sample code for 30+ languages & platforms
Xbase++ Requires Chilkat v11.0.0+

eHealth.gov.be RequestSecurityToken

Request a security token for use with the eHealth.gov.be SOAP web services.

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++
Xbase++ 
LOCAL nSuccess
LOCAL oCert
LOCAL oXmlToSign
LOCAL oBdCert
LOCAL oDt
LOCAL oGen
LOCAL oXmlCustomKeyInfo
LOCAL oSbXml
LOCAL oHttp
LOCAL cUrl
LOCAL oResp
LOCAL nResponseStatus
LOCAL oBdSecToken

nSuccess := 0

//  This requires 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 := CreateObject("Chilkat.Cert")
nSuccess := oCert:LoadPfxFile("SSIN=12345678.acc.p12", "p12_password")
IF (nSuccess == 0)
    ? oCert:LastErrorText
    oCert:destroy()
    RETURN
ENDIF

//  Create the following XML to be signed..

//  <?xml version="1.0" encoding="UTF-8"?>
//  <soapenv:Envelope xmlns:ns="http://docs.oasis-open.org/ws-sx/ws-trust/200512" xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">
//  	<soapenv:Header>
//  		<wsse:Security xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd" 
//  		xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd">
//  			<wsse:BinarySecurityToken EncodingType="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary" 
//  			    ValueType="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509v3" 
//  			    wsu:Id="X509-4A13D668E59AAC4F3816750824965588">{organization certificate}</wsse:BinarySecurityToken>			
//  			<wsu:Timestamp wsu:Id="TS-4A13D668E59AAC4F3816750824965567">
//  				<wsu:Created>2023-02-01T12:42:11.156Z</wsu:Created>
//  				<wsu:Expires>2023-02-01T12:58:51.156Z</wsu:Expires>
//  			</wsu:Timestamp>
//  		</wsse:Security>
//  	</soapenv:Header>
//  	<soapenv:Body wsu:Id="id-4A13D668E59AAC4F38167508249655911" xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd">
//  		<wst:RequestSecurityToken Context="RC-302613de-a809-46b5-931a-0a55bfca5937" 
//  		    xmlns:auth="http://docs.oasis-open.org/wsfed/authorization/200706"
//  		    xmlns:ds="http://www.w3.org/2000/09/xmldsig#"
//  		    xmlns:wsa="http://schemas.xmlsoap.org/ws/2004/08/addressing"
//  		    xmlns:wsp="http://schemas.xmlsoap.org/ws/2004/09/policy"
//  		    xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd"
//  		    xmlns:wst="http://docs.oasis-open.org/ws-sx/ws-trust/200512">
//  			<wst:TokenType>http://docs.oasis-open.org/wss/oasis-wss-saml-token-profile-1.1#SAMLV1.1</wst:TokenType>
//  			<wst:RequestType>http://docs.oasis-open.org/ws-sx/ws-trust/200512/Issue</wst:RequestType>
//  			<wst:Claims Dialect="http://docs.oasis-open.org/wsfed/authorization/200706/authclaims">
//  				<auth:ClaimType Uri="urn:be:fgov:kbo-bce:organization:cbe-number">
//  					<auth:Value>{cbenumber}</auth:Value>
//  				</auth:ClaimType>
//  				<auth:ClaimType Uri="urn:be:fgov:ehealth:1.0:certificateholder:enterprise:cbe-number">
//  					<auth:Value>{cbenumber}</auth:Value>
//  				</auth:ClaimType>
//  			</wst:Claims>
//  			<wst:Lifetime>
//  				<wsu:Created>2023-02-01T08:30:10+02:00</wsu:Created>
//  				<wsu:Expires>2023-02-01T09:30:10+02:00</wsu:Expires>
//  			</wst:Lifetime>
//  			<wst:KeyType>http://docs.oasis-open.org/ws-sx/wstrust/200512/PublicKey</wst:KeyType>
//  		</wst:RequestSecurityToken>
//  	</soapenv:Body>
//  </soapenv:Envelope>

oXmlToSign := CreateObject("Chilkat.Xml")
oXmlToSign:Tag := "soapenv:Envelope"
oXmlToSign:AddAttribute("xmlns:ns", "http://docs.oasis-open.org/ws-sx/ws-trust/200512")
oXmlToSign:AddAttribute("xmlns:soapenv", "http://schemas.xmlsoap.org/soap/envelope/")
oXmlToSign:UpdateAttrAt("soapenv:Header|wsse:Security", 1, "xmlns:wsse", "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd")
oXmlToSign:UpdateAttrAt("soapenv:Header|wsse:Security", 1, "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", 1, "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", 1, "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", 1, "wsu:Id", "X509-4A13D668E59AAC4F3816750824965588")

oBdCert := CreateObject("Chilkat.BinData")
oCert:ExportCertDerBd(oBdCert)
oXmlToSign:UpdateChildContent("soapenv:Header|wsse:Security|wsse:BinarySecurityToken", oBdCert:GetEncoded("base64"))

oXmlToSign:UpdateAttrAt("soapenv:Header|wsse:Security|wsu:Timestamp", 1, "wsu:Id", "TS-4A13D668E59AAC4F3816750824965567")

oDt := CreateObject("Chilkat.CkDateTime")
oDt:SetFromCurrentSystemTime()
oXmlToSign:UpdateChildContent("soapenv:Header|wsse:Security|wsu:Timestamp|wsu:Created", oDt:GetAsTimestamp(0))
oDt:AddSeconds(300)
oXmlToSign:UpdateChildContent("soapenv:Header|wsse:Security|wsu:Timestamp|wsu:Expires", oDt:GetAsTimestamp(0))
oDt:AddSeconds(-300)

oXmlToSign:UpdateAttrAt("soapenv:Body", 1, "wsu:Id", "id-4A13D668E59AAC4F38167508249655911")
oXmlToSign:UpdateAttrAt("soapenv:Body", 1, "xmlns:wsu", "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd")
oXmlToSign:UpdateAttrAt("soapenv:Body|wst:RequestSecurityToken", 1, "Context", "RC-302613de-a809-46b5-931a-0a55bfca5937")
oXmlToSign:UpdateAttrAt("soapenv:Body|wst:RequestSecurityToken", 1, "xmlns:auth", "http://docs.oasis-open.org/wsfed/authorization/200706")
oXmlToSign:UpdateAttrAt("soapenv:Body|wst:RequestSecurityToken", 1, "xmlns:ds", "http://www.w3.org/2000/09/xmldsig#")
oXmlToSign:UpdateAttrAt("soapenv:Body|wst:RequestSecurityToken", 1, "xmlns:wsa", "http://schemas.xmlsoap.org/ws/2004/08/addressing")
oXmlToSign:UpdateAttrAt("soapenv:Body|wst:RequestSecurityToken", 1, "xmlns:wsp", "http://schemas.xmlsoap.org/ws/2004/09/policy")
oXmlToSign:UpdateAttrAt("soapenv:Body|wst:RequestSecurityToken", 1, "xmlns:wsse", "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd")
oXmlToSign:UpdateAttrAt("soapenv:Body|wst:RequestSecurityToken", 1, "xmlns:wst", "http://docs.oasis-open.org/ws-sx/ws-trust/200512")
oXmlToSign:UpdateChildContent("soapenv:Body|wst:RequestSecurityToken|wst:TokenType", "http://docs.oasis-open.org/wss/oasis-wss-saml-token-profile-1.1#SAMLV1.1")
oXmlToSign:UpdateChildContent("soapenv:Body|wst:RequestSecurityToken|wst:RequestType", "http://docs.oasis-open.org/ws-sx/ws-trust/200512/Issue")

nSuccess := oXmlToSign:UpdateAttrAt("soapenv:Body|wst:RequestSecurityToken|wst:Claims", 1, "Dialect", "http://docs.oasis-open.org/wsfed/authorization/200706/authclaims")
nSuccess := oXmlToSign:UpdateAttrAt("soapenv:Body|wst:RequestSecurityToken|wst:Claims|auth:ClaimType[1]", 1, "Uri", "urn:be:fgov:ehealth:1.0:certificateholder:person:ssin")

oXmlToSign:UpdateChildContent("soapenv:Body|wst:RequestSecurityToken|wst:KeyType", "http://docs.oasis-open.org/ws-sx/wstrust/200512/PublicKey")

oGen := CreateObject("Chilkat.XmlDSigGen")

oGen:SigLocation := "soapenv:Envelope|soapenv:Header|wsse:Security|wsse:BinarySecurityToken"
oGen:SigLocationMod := 1
oGen:SigId := "SIG-4A13D668E59AAC4F38167508249656212"
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-4A13D668E59AAC4F3816750824965589"

//  -------- Reference 1 --------
oGen:AddSameDocRef("TS-4A13D668E59AAC4F3816750824965567", "sha256", "EXCL_C14N", "wsse soapenv urn urn1", "")

//  -------- Reference 2 --------
oGen:AddSameDocRef("id-4A13D668E59AAC4F38167508249655911", "sha256", "EXCL_C14N", "urn urn1", "")

//  -------- Reference 3 --------
oGen:AddSameDocRef("X509-4A13D668E59AAC4F3816750824965588", "sha256", "EXCL_C14N", "_EMPTY_", "")

oGen:SetX509Cert(oCert, 1)

oGen:KeyInfoType := "Custom"

//  Create the custom KeyInfo XML..
oXmlCustomKeyInfo := CreateObject("Chilkat.Xml")
oXmlCustomKeyInfo:Tag := "wsse:SecurityTokenReference"
oXmlCustomKeyInfo:AddAttribute("wsu:Id", "STR-4A13D668E59AAC4F38167508249655810")
oXmlCustomKeyInfo:UpdateAttrAt("wsse:Reference", 1, "URI", "#X509-4A13D668E59AAC4F3816750824965588")
oXmlCustomKeyInfo:UpdateAttrAt("wsse:Reference", 1, "ValueType", "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509v3")

oXmlCustomKeyInfo:EmitXmlDecl := 0
oGen:CustomKeyInfoXml := oXmlCustomKeyInfo:GetXml()

//  Load XML to be signed...
oSbXml := CreateObject("Chilkat.StringBuilder")
oXmlToSign:GetXmlSb(oSbXml)

oGen:Behaviors := "IndentedSignature"

//  Sign the XML...
nSuccess := oGen:CreateXmlDSigSb(oSbXml)
IF (nSuccess == 0)
    ? oGen:LastErrorText
    oCert:destroy()
    oXmlToSign:destroy()
    oBdCert:destroy()
    oDt:destroy()
    oGen:destroy()
    oXmlCustomKeyInfo:destroy()
    oSbXml:destroy()
    RETURN
ENDIF

//  The sbXml is sent as the HTTP request body below..
? oSbXml:GetAsString()

//  -----------------------------------------------------------------------------------------------------------
//  Send the SOAP requet to ask the server to issue a security token, which can then be used to access other SOAP services..
oHttp := CreateObject("Chilkat.Http")

nSuccess := oHttp:SetSslClientCert(oCert)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oCert:destroy()
    oXmlToSign:destroy()
    oBdCert:destroy()
    oDt:destroy()
    oGen:destroy()
    oXmlCustomKeyInfo:destroy()
    oSbXml:destroy()
    oHttp:destroy()
    RETURN
ENDIF

oHttp:SetRequestHeader("Content-Type", "text/xml")

cUrl := "https://services-acpt.ehealth.fgov.be/IAM/SecurityTokenService/v1/RequestSecurityToken"
oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpSb("POST", cUrl, oSbXml, "utf-8", "application/xml", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oCert:destroy()
    oXmlToSign:destroy()
    oBdCert:destroy()
    oDt:destroy()
    oGen:destroy()
    oXmlCustomKeyInfo:destroy()
    oSbXml:destroy()
    oHttp:destroy()
    oResp:destroy()
    RETURN
ENDIF

nResponseStatus := oResp:StatusCode
? "Response Status Code = " + Str(nResponseStatus)

//  You'll want to check to see if the response status code = 200.
//  If not, then the response body contains error information instead of a security token.
//  This example will assume we received 200 status code.

? oResp:BodyStr

//  The response body contains XML like this:

//  <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/">
//      <SOAP-ENV:Header/>
//      <SOAP-ENV:Body>
//          <wst:RequestSecurityTokenResponse xmlns:wst="http://docs.oasis-open.org/ws-sx/ws-trust/200512" Context="RC-302613de-a809-46b5-931a-0a55bfca5937">
//              <wst:RequestedSecurityToken>
//                  <Assertion xmlns="urn:oasis:names:tc:SAML:1.0:assertion" AssertionID="_3e8ea5c951b2167c274974750ace9b5d" 
//  ...
//                  </Assertion>
//              </wst:RequestedSecurityToken>
//          </wst:RequestSecurityTokenResponse>
//      </SOAP-ENV:Body>
//  </SOAP-ENV:Envelope>

//  The portion of the response from  <Assertion ..> ... </Assertion>  is the SAML security token to be included
//  in a subsesquent SOAP request.  It is extremely important to not modify the contents of the security token in any way, including not changing
//  whitespace or any formatting.  Therefore, we get the response body exactly as-is, to be used in a SOAP request.

//  Copy the response body to a Chilkat BinData object.
oBdSecToken := CreateObject("Chilkat.BinData")
oResp:GetBodyBd(oBdSecToken)

//  Let's save the bdSecToken to a file, and pick it up in the next example where it is used
//  in a SOAP request, such as in this example:  AddressBook Search for Professionals

oBdSecToken:WriteFile("qa_data/tokens/ehealth-fgov-be-sectoken.xml")

? "OK"

oCert:destroy()
oXmlToSign:destroy()
oBdCert:destroy()
oDt:destroy()
oGen:destroy()
oXmlCustomKeyInfo:destroy()
oSbXml:destroy()
oHttp:destroy()
oResp:destroy()
oBdSecToken:destroy()