Delphi中的密码摘要SOAP

Question

有人在Delphi XE2中对此进行了编码吗？

Password_Digest = Base64 ( SHA-1 ( nonce + created + password ) )

计算使用SOAP服务的密码摘要。

感谢的。