Classic ASP
Classic ASP
eHealth.gov.be RequestSecurityToken
Request a security token for use with the eHealth.gov.be SOAP web services.Chilkat Classic ASP Downloads
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 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..
set cert = Server.CreateObject("Chilkat.Cert")
success = cert.LoadPfxFile("SSIN=12345678.acc.p12","p12_password")
If (success = 0) Then
Response.Write "<pre>" & Server.HTMLEncode( cert.LastErrorText) & "</pre>"
Response.End
End If
' 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>
set xmlToSign = Server.CreateObject("Chilkat.Xml")
xmlToSign.Tag = "soapenv:Envelope"
success = xmlToSign.AddAttribute("xmlns:ns","http://docs.oasis-open.org/ws-sx/ws-trust/200512")
success = xmlToSign.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
success = xmlToSign.UpdateAttrAt("soapenv:Header|wsse:Security",1,"xmlns:wsse","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd")
success = xmlToSign.UpdateAttrAt("soapenv:Header|wsse:Security",1,"xmlns:wsu","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd")
success = xmlToSign.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")
success = xmlToSign.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")
success = xmlToSign.UpdateAttrAt("soapenv:Header|wsse:Security|wsse:BinarySecurityToken",1,"wsu:Id","X509-4A13D668E59AAC4F3816750824965588")
set bdCert = Server.CreateObject("Chilkat.BinData")
success = cert.ExportCertDerBd(bdCert)
xmlToSign.UpdateChildContent "soapenv:Header|wsse:Security|wsse:BinarySecurityToken",bdCert.GetEncoded("base64")
success = xmlToSign.UpdateAttrAt("soapenv:Header|wsse:Security|wsu:Timestamp",1,"wsu:Id","TS-4A13D668E59AAC4F3816750824965567")
set dt = Server.CreateObject("Chilkat.CkDateTime")
success = dt.SetFromCurrentSystemTime()
xmlToSign.UpdateChildContent "soapenv:Header|wsse:Security|wsu:Timestamp|wsu:Created",dt.GetAsTimestamp(0)
success = dt.AddSeconds(300)
xmlToSign.UpdateChildContent "soapenv:Header|wsse:Security|wsu:Timestamp|wsu:Expires",dt.GetAsTimestamp(0)
success = dt.AddSeconds(-300)
success = xmlToSign.UpdateAttrAt("soapenv:Body",1,"wsu:Id","id-4A13D668E59AAC4F38167508249655911")
success = xmlToSign.UpdateAttrAt("soapenv:Body",1,"xmlns:wsu","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd")
success = xmlToSign.UpdateAttrAt("soapenv:Body|wst:RequestSecurityToken",1,"Context","RC-302613de-a809-46b5-931a-0a55bfca5937")
success = xmlToSign.UpdateAttrAt("soapenv:Body|wst:RequestSecurityToken",1,"xmlns:auth","http://docs.oasis-open.org/wsfed/authorization/200706")
success = xmlToSign.UpdateAttrAt("soapenv:Body|wst:RequestSecurityToken",1,"xmlns:ds","http://www.w3.org/2000/09/xmldsig#")
success = xmlToSign.UpdateAttrAt("soapenv:Body|wst:RequestSecurityToken",1,"xmlns:wsa","http://schemas.xmlsoap.org/ws/2004/08/addressing")
success = xmlToSign.UpdateAttrAt("soapenv:Body|wst:RequestSecurityToken",1,"xmlns:wsp","http://schemas.xmlsoap.org/ws/2004/09/policy")
success = xmlToSign.UpdateAttrAt("soapenv:Body|wst:RequestSecurityToken",1,"xmlns:wsse","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd")
success = xmlToSign.UpdateAttrAt("soapenv:Body|wst:RequestSecurityToken",1,"xmlns:wst","http://docs.oasis-open.org/ws-sx/ws-trust/200512")
xmlToSign.UpdateChildContent "soapenv:Body|wst:RequestSecurityToken|wst:TokenType","http://docs.oasis-open.org/wss/oasis-wss-saml-token-profile-1.1#SAMLV1.1"
xmlToSign.UpdateChildContent "soapenv:Body|wst:RequestSecurityToken|wst:RequestType","http://docs.oasis-open.org/ws-sx/ws-trust/200512/Issue"
success = xmlToSign.UpdateAttrAt("soapenv:Body|wst:RequestSecurityToken|wst:Claims",1,"Dialect","http://docs.oasis-open.org/wsfed/authorization/200706/authclaims")
success = xmlToSign.UpdateAttrAt("soapenv:Body|wst:RequestSecurityToken|wst:Claims|auth:ClaimType[1]",1,"Uri","urn:be:fgov:ehealth:1.0:certificateholder:person:ssin")
xmlToSign.UpdateChildContent "soapenv:Body|wst:RequestSecurityToken|wst:KeyType","http://docs.oasis-open.org/ws-sx/wstrust/200512/PublicKey"
set gen = Server.CreateObject("Chilkat.XmlDSigGen")
gen.SigLocation = "soapenv:Envelope|soapenv:Header|wsse:Security|wsse:BinarySecurityToken"
gen.SigLocationMod = 1
gen.SigId = "SIG-4A13D668E59AAC4F38167508249656212"
gen.SigNamespacePrefix = "ds"
gen.SigNamespaceUri = "http://www.w3.org/2000/09/xmldsig#"
gen.SignedInfoPrefixList = "soapenv urn urn1"
gen.IncNamespacePrefix = "ec"
gen.IncNamespaceUri = "http://www.w3.org/2001/10/xml-exc-c14n#"
gen.SignedInfoCanonAlg = "EXCL_C14N"
gen.SignedInfoDigestMethod = "sha256"
' Set the KeyInfoId before adding references..
gen.KeyInfoId = "KI-4A13D668E59AAC4F3816750824965589"
' -------- Reference 1 --------
success = gen.AddSameDocRef("TS-4A13D668E59AAC4F3816750824965567","sha256","EXCL_C14N","wsse soapenv urn urn1","")
' -------- Reference 2 --------
success = gen.AddSameDocRef("id-4A13D668E59AAC4F38167508249655911","sha256","EXCL_C14N","urn urn1","")
' -------- Reference 3 --------
success = gen.AddSameDocRef("X509-4A13D668E59AAC4F3816750824965588","sha256","EXCL_C14N","_EMPTY_","")
success = gen.SetX509Cert(cert,1)
gen.KeyInfoType = "Custom"
' Create the custom KeyInfo XML..
set xmlCustomKeyInfo = Server.CreateObject("Chilkat.Xml")
xmlCustomKeyInfo.Tag = "wsse:SecurityTokenReference"
success = xmlCustomKeyInfo.AddAttribute("wsu:Id","STR-4A13D668E59AAC4F38167508249655810")
success = xmlCustomKeyInfo.UpdateAttrAt("wsse:Reference",1,"URI","#X509-4A13D668E59AAC4F3816750824965588")
success = xmlCustomKeyInfo.UpdateAttrAt("wsse:Reference",1,"ValueType","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509v3")
xmlCustomKeyInfo.EmitXmlDecl = 0
gen.CustomKeyInfoXml = xmlCustomKeyInfo.GetXml()
' Load XML to be signed...
set sbXml = Server.CreateObject("Chilkat.StringBuilder")
success = xmlToSign.GetXmlSb(sbXml)
gen.Behaviors = "IndentedSignature"
' Sign the XML...
success = gen.CreateXmlDSigSb(sbXml)
If (success = 0) Then
Response.Write "<pre>" & Server.HTMLEncode( gen.LastErrorText) & "</pre>"
Response.End
End If
' The sbXml is sent as the HTTP request body below..
Response.Write "<pre>" & Server.HTMLEncode( sbXml.GetAsString()) & "</pre>"
' -----------------------------------------------------------------------------------------------------------
' Send the SOAP requet to ask the server to issue a security token, which can then be used to access other SOAP services..
set http = Server.CreateObject("Chilkat.Http")
success = http.SetSslClientCert(cert)
If (success = 0) Then
Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
Response.End
End If
http.SetRequestHeader "Content-Type","text/xml"
url = "https://services-acpt.ehealth.fgov.be/IAM/SecurityTokenService/v1/RequestSecurityToken"
set resp = Server.CreateObject("Chilkat.HttpResponse")
success = http.HttpSb("POST",url,sbXml,"utf-8","application/xml",resp)
If (success = 0) Then
Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
Response.End
End If
responseStatus = resp.StatusCode
Response.Write "<pre>" & Server.HTMLEncode( "Response Status Code = " & responseStatus) & "</pre>"
' 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.
Response.Write "<pre>" & Server.HTMLEncode( resp.BodyStr) & "</pre>"
' 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.
set bdSecToken = Server.CreateObject("Chilkat.BinData")
success = resp.GetBodyBd(bdSecToken)
' 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
success = bdSecToken.WriteFile("qa_data/tokens/ehealth-fgov-be-sectoken.xml")
Response.Write "<pre>" & Server.HTMLEncode( "OK") & "</pre>"
%>
</body>
</html>