(Visual Basic 6.0) SOAP WS-Security UsernameToken

Demonstrates how to add a UsernameToken with the WSS SOAP Message Security header.

Note: This example requires Chilkat v9.5.0.66 or later.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

' This example requires the Chilkat Crypt API to have been previously unlocked.
' See Unlock Chilkat Crypt for sample code.

' An HTTP SOAP request is an HTTP request where the SOAP XML composes the body.
' This example demonstrates how to add a WS-Security header such as the following:
' 
' <wsse:UsernameToken xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd" wsu:Id="SecurityToken-6138db82-5a4c-4bf7-915f-af7a10d9ae96">
'   <wsse:Username>user</wsse:Username>
'   <wsse:Password Type="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordDigest">CBb7a2itQDgxVkqYnFtggUxtuqk=</wsse:Password>
'   <wsse:Nonce>5ABcqPZWb6ImI2E6tob8MQ==</wsse:Nonce>
'   <wsu:Created>2010-06-08T07:26:50Z</wsu:Created>
' </wsse:UsernameToken>
' 

' First build some simple SOAP XML that has some header and body.
Dim xml As New ChilkatXml
xml.Tag = "env:Envelope"
success = xml.AddAttribute("xmlns:env","http://www.w3.org/2003/05/soap-envelope")
success = xml.UpdateAttrAt("env:Header|n:alertcontrol",1,"xmlns:n","http://example.org/alertcontrol")
xml.UpdateChildContent "env:Header|n:alertcontrol|n:priority","1"
xml.UpdateChildContent "env:Header|n:alertcontrol|n:expires","2001-06-22T14:00:00-05:00"
success = xml.UpdateAttrAt("env:Body|m:alert",1,"xmlns:m","http://example.org/alert")
xml.UpdateChildContent "env:Body|m:alert|m:msg","Pick up Mary at school at 2pm"
Debug.Print xml.GetXml()
Debug.Print "----"

' The following SOAP XML is built:

' 	<env:Envelope xmlns:env="http://www.w3.org/2003/05/soap-envelope">
' 	 <env:Header>
' 	  <n:alertcontrol xmlns:n="http://example.org/alertcontrol">
' 	   <n:priority>1</n:priority>
' 	   <n:expires>2001-06-22T14:00:00-05:00</n:expires>
' 	  </n:alertcontrol>
' 	 </env:Header>
' 	 <env:Body>
' 	  <m:alert xmlns:m="http://example.org/alert">
' 	   <m:msg>Pick up Mary at school at 2pm</m:msg>
' 	  </m:alert>
' 	 </env:Body>
' 	</env:Envelope>
' 

' Now build the WSSE XML housing that we'll insert into the above SOAP XML at the end.

' 	<wsse:Security>
' 	  <wsse:UsernameToken xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd" wsu:Id="WSU_ID">
' 	    <wsse:Username>USERNAME</wsse:Username>
' 	    <wsse:Password Type="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordDigest">PASSWORD_DIGEST</wsse:Password>
' 	    <wsse:Nonce>NONCE</wsse:Nonce>
' 	    <wsu:Created>CREATED</wsu:Created>
' 	  </wsse:UsernameToken>
' 	</wsse:Security>

Dim wsse As New ChilkatXml
wsse.Tag = "wsse:Security"
success = wsse.UpdateAttrAt("wsse:UsernameToken",1,"xmlns:wsu","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd")
success = wsse.UpdateAttrAt("wsse:UsernameToken",1,"wsu:Id","WSU_ID")
wsse.UpdateChildContent "wsse:UsernameToken|wsse:Username","USERNAME"
success = wsse.UpdateAttrAt("wsse:UsernameToken|wsse:Password",1,"Type","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordDigest")
wsse.UpdateChildContent "wsse:UsernameToken|wsse:Password","PASSWORD_DIGEST"
wsse.UpdateChildContent "wsse:UsernameToken|wsse:Nonce","NONCE"
wsse.UpdateChildContent "wsse:UsernameToken|wsu:Created","CREATED"
Debug.Print wsse.GetXml()
Debug.Print "----"

' Insert the wsse:Security XML into the existing SOAP header:
Dim xHeader As ChilkatXml
Set xHeader = xml.GetChildWithTag("env:Header")
success = xHeader.AddChildTree(wsse)

' Now show the SOAP XML with the wsse:Security header added:
Debug.Print xml.GetXml()
Debug.Print "----"

' Now our XML looks like this:
' 	<env:Envelope xmlns:env="http://www.w3.org/2003/05/soap-envelope">
' 	    <env:Header>
' 	        <n:alertcontrol xmlns:n="http://example.org/alertcontrol">
' 	            <n:priority>1</n:priority>
' 	            <n:expires>2001-06-22T14:00:00-05:00</n:expires>
' 	        </n:alertcontrol>
' 	        <wsse:Security>
' 	            <wsse:UsernameToken xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd" wsu:Id="WSU_ID">
' 	                <wsse:Username>USERNAME</wsse:Username>
' 	                <wsse:Password Type="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordDigest">PASSWORD_DIGEST</wsse:Password>
' 	                <wsse:Nonce>NONCE</wsse:Nonce>
' 	                <wsu:Created>CREATED</wsu:Created>
' 	            </wsse:UsernameToken>
' 	        </wsse:Security>
' 	    </env:Header>
' 	    <env:Body>
' 	        <m:alert xmlns:m="http://example.org/alert">
' 	            <m:msg>Pick up Mary at school at 2pm</m:msg>
' 	        </m:alert>
' 	    </env:Body>
' 	</env:Envelope>
' 

' -----------------------------------------------------
' Now let's fill-in-the-blanks with actual information...
' -----------------------------------------------------

Dim wsu_id As String
wsu_id = "Example-1"
success = wsse.UpdateAttrAt("wsse:UsernameToken",1,"wsu:Id",wsu_id)

Dim password As String
password = "password"
Dim username As String
username = "user"
wsse.UpdateChildContent "wsse:UsernameToken|wsse:Username",username

' The nonce should be 16 random bytes.
Dim prng As New ChilkatPrng
Dim bd As New ChilkatBinData
' Generate 16 random bytes into bd.
' Note: The GenRandomBd method is added in Chilkat v9.5.0.66
success = prng.GenRandomBd(16,bd)

Dim nonce As String
nonce = bd.GetEncoded("base64")
wsse.UpdateChildContent "wsse:UsernameToken|wsse:Nonce",nonce

' Get the current date/time in a string with this format: 2010-06-08T07:26:50Z
Dim dt As New CkDateTime
success = dt.SetFromCurrentSystemTime()
Dim bLocal As Long
bLocal = 0
Dim created As String
created = dt.GetAsTimestamp(bLocal)
wsse.UpdateChildContent "wsse:UsernameToken|wsu:Created",created

' The password digest is calculated like this:
' Password_Digest = Base64 ( SHA-1 ( nonce + created + password ) )
success = bd.AppendString(created,"utf-8")
success = bd.AppendString(password,"utf-8")

Dim crypt As New ChilkatCrypt2
crypt.HashAlgorithm = "SHA-1"
crypt.EncodingMode = "base64"
' Note: The HashBdENC method is added in Chilkat v9.5.0.66
Dim passwordDigest As String
passwordDigest = crypt.HashBdENC(bd)
wsse.UpdateChildContent "wsse:UsernameToken|wsse:Password",passwordDigest

' Examine the final SOAP XML with WS-Security header added.
Debug.Print xml.GetXml()