Recovering Neuro-Access accounts from script

Before reading this post I would recommend having a look at the following post: obinfo URI scheme

---

When someone has lost access to their Neuro-Access account, you can provide the app with the required information for a recovery trough obinfo URIs. The following code will show you how to go about creating an obinfo URI for account recovery. Note that is is not the same as a Transfer between devices as this will invalidate any identities connected to the account

---

Get the account information

It is required to know the account name of the user

UserName:= "FooBar";
Account:=Waher.Service.IoTBroker.XmppServerModule.GetAccount(UserName);

Expiry date

Set for how long the account information will be available

Expires:= Today.AddDays(7)

Create the account info

GW:=Waher.IoTGateway.Gateway;
Data:=<Account xmlns="http://waher.se/schema/Onboarding/v1.xsd"
				userName=Account.UserName
				password=Account.Password
				domain=GW.Domain />;
Data:=Utf8Encode(str(Data));
Key:=RandomBytes(16);
IV:=RandomBytes(16);
Data:=Aes256Encrypt(Data,Key,IV);
Req:=<Info xmlns="http://waher.se/schema/Onboarding/v1.xsd" 
			base64=Base64Encode(Data)
			once=true 
			expires=Expires.ToUniversalTime() />;
OnboardingDomainName:=Waher.Service.IoTBroker.Legal.LegalComponent.GetOnboardingNeuronDomainName();
Info:=GW.XmppClient.IqSet("onboarding."+OnboardingDomainName,str(Req),10000);

Create the URI

Code:=select /default:Code/@code from Xml(Info.InnerXml);
URL:="obinfo:"+OnboardingDomainName+":"+Code+":"+Base64Encode(Key)+":"+Base64Encode(IV);

#neuro-access