Copy HTTPPassword to Personal NAB Account

I created a widget which accesses a web interface of a notesdatabase (on the same server).

So the user Credentials are the same like in the Person Document.

For the Widget i created an Account Document in the Personal Addressbook. This works fine.

In order to rollout the Widget, i tried to make a script to create an account document automatically. Works all barry, but i got difficulties to copy the userpassword (HTTPPassword of the Person document). Well this is obvious since the field is encrypted…

Did anybody made already somethine like this?

I tried the following:

	Set item = docPerson.GetFirstItem("InternetAddress")

	Call item.CopyItemToDocument(docAccount, "AccountLoginName")

	

	Call docAccount.ComputeWithForm(True,False)

	

	Set item = docPerson.GetFirstItem("HTTPPassword")

	Call item.CopyItemToDocument(docAccount, "AccountPassword")

	

	Call docAccount.Save(True,False,True)

So i try to compute the form after i setted all the fields. After i copy the password item. After that i save the doc…

But i got a wrong Password in the Account Document…

any Help would be appreciated.