AutoIt
AutoIt
SOAP WS-Security UsernameToken
See more XML Examples
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 AutoIt Downloads
; This example requires the Chilkat API to have been previously unlocked.
; See Global Unlock Sample 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.
$oXml = ObjCreate("Chilkat.Xml")
$oXml.Tag = "env:Envelope"
$oXml.AddAttribute("xmlns:env","http://www.w3.org/2003/05/soap-envelope")
$oXml.UpdateAttrAt("env:Header|n:alertcontrol",True,"xmlns:n","http://example.org/alertcontrol")
$oXml.UpdateChildContent "env:Header|n:alertcontrol|n:priority","1"
$oXml.UpdateChildContent "env:Header|n:alertcontrol|n:expires","2001-06-22T14:00:00-05:00"
$oXml.UpdateAttrAt("env:Body|m:alert",True,"xmlns:m","http://example.org/alert")
$oXml.UpdateChildContent "env:Body|m:alert|m:msg","Pick up Mary at school at 2pm"
ConsoleWrite($oXml.GetXml() & @CRLF)
ConsoleWrite("----" & @CRLF)
; 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>
$oWsse = ObjCreate("Chilkat.Xml")
$oWsse.Tag = "wsse:Security"
$oWsse.UpdateAttrAt("wsse:UsernameToken",True,"xmlns:wsu","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd")
$oWsse.UpdateAttrAt("wsse:UsernameToken",True,"wsu:Id","WSU_ID")
$oWsse.UpdateChildContent "wsse:UsernameToken|wsse:Username","USERNAME"
$oWsse.UpdateAttrAt("wsse:UsernameToken|wsse:Password",True,"Type","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordDigest")
$oWsse.UpdateChildContent "wsse:UsernameToken|wsse:Password","PASSWORD_DIGEST"
$oWsse.UpdateChildContent "wsse:UsernameToken|wsse:Nonce","NONCE"
$oWsse.UpdateChildContent "wsse:UsernameToken|wsu:Created","CREATED"
ConsoleWrite($oWsse.GetXml() & @CRLF)
ConsoleWrite("----" & @CRLF)
; Insert the wsse:Security XML into the existing SOAP header:
Local $oXHeader = $oXml.GetChildWithTag("env:Header")
$oXHeader.AddChildTree($oWsse)
; Now show the SOAP XML with the wsse:Security header added:
ConsoleWrite($oXml.GetXml() & @CRLF)
ConsoleWrite("----" & @CRLF)
; 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...
; -----------------------------------------------------
Local $sWsu_id = "Example-1"
$oWsse.UpdateAttrAt("wsse:UsernameToken",True,"wsu:Id",$sWsu_id)
Local $sPassword = "password"
Local $sUsername = "user"
$oWsse.UpdateChildContent "wsse:UsernameToken|wsse:Username",$sUsername
; The nonce should be 16 random bytes.
$oPrng = ObjCreate("Chilkat.Prng")
$oBd = ObjCreate("Chilkat.BinData")
; Generate 16 random bytes into bd.
; Note: The GenRandomBd method is added in Chilkat v9.5.0.66
$oPrng.GenRandomBd(16,$oBd)
Local $sNonce = $oBd.GetEncoded("base64")
$oWsse.UpdateChildContent "wsse:UsernameToken|wsse:Nonce",$sNonce
; Get the current date/time in a string with this format: 2010-06-08T07:26:50Z
$oDt = ObjCreate("Chilkat.CkDateTime")
$oDt.SetFromCurrentSystemTime()
Local $bLocal = False
Local $sCreated = $oDt.GetAsTimestamp($bLocal)
$oWsse.UpdateChildContent "wsse:UsernameToken|wsu:Created",$sCreated
; The password digest is calculated like this:
; Password_Digest = Base64 ( SHA-1 ( nonce + created + password ) )
$oBd.AppendString($sCreated,"utf-8")
$oBd.AppendString($sPassword,"utf-8")
$oCrypt = ObjCreate("Chilkat.Crypt2")
$oCrypt.HashAlgorithm = "SHA-1"
$oCrypt.EncodingMode = "base64"
; Note: The HashBdENC method is added in Chilkat v9.5.0.66
Local $sPasswordDigest = $oCrypt.HashBdENC($oBd)
$oWsse.UpdateChildContent "wsse:UsernameToken|wsse:Password",$sPasswordDigest
; Examine the final SOAP XML with WS-Security header added.
ConsoleWrite($oXml.GetXml() & @CRLF)