tx · WFPPSi9GZnynEtL1jhBHEfBQViumMx84X1dSBEaEqok

3MqxWu4FfLvXuYzGviVXWgxXg5rup5YUoh7:  -0.01400000 Waves

2021.02.01 13:30 [1378984] smart account 3MqxWu4FfLvXuYzGviVXWgxXg5rup5YUoh7 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "WFPPSi9GZnynEtL1jhBHEfBQViumMx84X1dSBEaEqok",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1612175462355,
    "version": 2,
    "chainId": 84,
    "sender": "3MqxWu4FfLvXuYzGviVXWgxXg5rup5YUoh7",
    "senderPublicKey": "BBSCAg6ddWBh1PxXvYgxHm1CRUDLZAbSdmoifUxTuGPC",
    "proofs": [
        "32cQFf4xXNM63eciJeTn6fL3p5gTVhMkmtWWQzUbdgW7LPPqvqwiXPZa1zMFSFSByTuTbh3E2Njv8FotAu3trrP9"
    ],
    "script": "base64:AAIEAAAAAAAAAB0IAhIDCgEIEgMKAQgSAwoBCBIECgIIARIECgIICAAAACEAAAAABE5PTkUCAAAABG5vbmUAAAAABkJBTk5FRAIAAAAGYmFubmVkAAAAAAZBQ1RJVkUCAAAABmFjdGl2ZQAAAAAFQ0xPU0UCAAAABWNsb3NlAAAAAARPUEVOAgAAAARvcGVuAAAAAAhhc3NldEtleQIAAAAFYXNzZXQAAAAAC2tleVByaWNlS2V5AgAAAAlrZXlfcHJpY2UAAAAACG93bmVyS2V5AgAAAAVvd25lcgAAAAAHYWN0aW9ucwkABEwAAAACBQAAAARPUEVOCQAETAAAAAIFAAAABUNMT1NFBQAAAANuaWwAAAAAFGRldmljZUluaXRpYWxDb3VudGVyAAAAAAAAAAAAAAAAAAlrZXlEZXZpY2UAAAAAAAAAAAAAAAAADWtleVZhbGlkVW50aWwAAAAAAAAAAAEBAAAADmdldE51bWJlckJ5S2V5AAAAAQAAAANrZXkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEAAAAAAAAAAAABAAAAC2dldFN0ckJ5S2V5AAAAAQAAAANrZXkEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABE5PTkUBAAAAEWdldEV4dE51bWJlckJ5S2V5AAAAAQAAAANrZXkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEAAAAAAAAAAAABAAAADmdldEV4dFN0ckJ5S2V5AAAAAgAAAARhZGRyAAAAA2tleQQAAAAHJG1hdGNoMAkABB0AAAACBQAAAARhZGRyBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQEAAAAKZ2V0QXNzZXRJZAAAAAAJAAJZAAAAAQkBAAAAC2dldFN0ckJ5S2V5AAAAAQUAAAAIYXNzZXRLZXkBAAAADXVzZXJTdGF0dXNLZXkAAAABAAAABGFkZHIJAAEsAAAAAgIAAAAFdXNlcl8FAAAABGFkZHIBAAAAD3VzZXJTdGF0dXNWYWx1ZQAAAAEAAAAEYWRkcgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAANdXNlclN0YXR1c0tleQAAAAEFAAAABGFkZHIDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQEAAAAPZGV2aWNlQWN0aW9uS2V5AAAAAQAAAARhZGRyCQABLAAAAAICAAAAB2RldmljZV8FAAAABGFkZHIBAAAAFmRldmljZUFjdGlvbkNvdW50ZXJLZXkAAAABAAAABGFkZHIJAAEsAAAAAgIAAAAPZGV2aWNlX2NvdW50ZXJfBQAAAARhZGRyAQAAABFkZXZpY2VBY3Rpb25WYWx1ZQAAAAEAAAAEYWRkcgkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAAD2RldmljZUFjdGlvbktleQAAAAEFAAAABGFkZHIBAAAAGGRldmljZUFjdGlvbkNvdW50ZXJWYWx1ZQAAAAEAAAAEYWRkcgkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFmRldmljZUFjdGlvbkNvdW50ZXJLZXkAAAABBQAAAARhZGRyAQAAAAZuZnRLZXkAAAABAAAAA25mdAkAASwAAAACAgAAAARrZXlfBQAAAANuZnQBAAAACG5mdFZhbHVlAAAAAQAAAANuZnQJAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAAAZuZnRLZXkAAAABBQAAAANuZnQBAAAAF2RldmljZU5vdFdoaXRlbGlzdGVkS2V5AAAAAgAAAAZkZXZpY2UAAAADa2V5BAAAAAVuZnRJZAkBAAAABm5mdEtleQAAAAEFAAAAA2tleQQAAAALdmFsSW5EZXZpY2UJAQAAAA5nZXRFeHRTdHJCeUtleQAAAAIFAAAABmRldmljZQUAAAAFbmZ0SWQDCQEAAAACIT0AAAACBQAAAAt2YWxJbkRldmljZQUAAAAETk9ORQcGAQAAAA1kZXZpY2VGcm9tS2V5AAAAAQAAAANrZXkEAAAABmRldmljZQkAAZEAAAACCQAEtQAAAAIIBQAAAANrZXkAAAALZGVzY3JpcHRpb24CAAAAAV8FAAAACWtleURldmljZQQAAAAHJG1hdGNoMAkABCYAAAABBQAAAAZkZXZpY2UDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAB0FkZHJlc3MEAAAAAXQFAAAAByRtYXRjaDAFAAAAAXQJAAACAAAAAQIAAAAQTm90IGEgZGV2aWNlIGtleQEAAAAMZ2V0QXNzZXRJbmZvAAAAAQAAAAVhc3NldAQAAAAHJG1hdGNoMAkAA+wAAAABBQAAAAVhc3NldAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAFQXNzZXQEAAAAAXQFAAAAByRtYXRjaDAFAAAAAXQJAAACAAAAAQIAAAAJTm90IGEga2V5AQAAABNrZXlUaW1lc3RhbXBJbnZhbGlkAAAAAQAAAANrZXkEAAAACXRpbWVzdGFtcAkBAAAADXBhcnNlSW50VmFsdWUAAAABCQABkQAAAAIJAAS1AAAAAggFAAAAA2tleQAAAAtkZXNjcmlwdGlvbgIAAAABXwUAAAANa2V5VmFsaWRVbnRpbAkAAGYAAAACCAUAAAAJbGFzdEJsb2NrAAAACXRpbWVzdGFtcAUAAAAJdGltZXN0YW1wAQAAABJrZXlQcmljZUZyb21EZXZpY2UAAAABAAAABmRldmljZQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAZkZXZpY2UFAAAAC2tleVByaWNlS2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAXQFAAAAByRtYXRjaDAFAAAAAXQJAAACAAAAAQIAAAAdUHJpY2Ugbm90IHNwZWNpZmllZCBpbiBkZXZpY2UBAAAAD293bmVyRnJvbURldmljZQAAAAEAAAAGZGV2aWNlBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABmRldmljZQUAAAAIb3duZXJLZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABdAUAAAAHJG1hdGNoMAUAAAABdAkAAAIAAAABAgAAAB1Pd25lciBub3Qgc3BlY2lmaWVkIGluIGRldmljZQEAAAAMcHJpY2VJc1dyb25nAAAAAwAAAAFpAAAAB2Fzc2V0SWQAAAAFcHJpY2UDCQAAZgAAAAIAAAAAAAAAAAEJAAGQAAAAAQgFAAAAAWkAAAAIcGF5bWVudHMJAAACAAAAAQIAAAAUd3JvbmcgcGF5bWVudHMgY291bnQDCQEAAAACIT0AAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkBQAAAAdhc3NldElkCQAAAgAAAAECAAAAH3dyb25nIGFzc2V0LCBzdXBwb3J0ZWQgb25seSB4eXoDCQEAAAACIT0AAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQFAAAABXByaWNlCQAAAgAAAAEJAAEsAAAAAgIAAAAed3JvbmcgcGF5bWVudCB2YWx1ZSwgZXhwZWN0ZWQgCQABpAAAAAEFAAAABXByaWNlBwEAAAAWbm90QWxsb3dlZERldmljZUFjdGlvbgAAAAEAAAAGYWN0aW9uBAAAAAckbWF0Y2gwCQAETwAAAAIFAAAAB2FjdGlvbnMFAAAABmFjdGlvbgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBwYAAAAFAAAAAWkBAAAACWFkZERldmljZQAAAAEAAAAKZGV2aWNlQWRkcgMJAQAAAAIhPQAAAAIIBQAAAAFpAAAABmNhbGxlcgUAAAAEdGhpcwkAAAIAAAABAgAAAA1Ob3QgcGVybWl0dGVkAwkBAAAAAiE9AAAAAgkBAAAAEWRldmljZUFjdGlvblZhbHVlAAAAAQUAAAAKZGV2aWNlQWRkcgUAAAAETk9ORQkAAAIAAAABAgAAABREZXZpY2UgYWxyZWFkeSBhZGRlZAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQEAAAAPZGV2aWNlQWN0aW9uS2V5AAAAAQUAAAAKZGV2aWNlQWRkcgUAAAAFQ0xPU0UJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAQAAABZkZXZpY2VBY3Rpb25Db3VudGVyS2V5AAAAAQUAAAAKZGV2aWNlQWRkcgUAAAAUZGV2aWNlSW5pdGlhbENvdW50ZXIFAAAAA25pbAAAAAFpAQAAAAdhZGRVc2VyAAAAAQAAAApkZXZpY2VBZGRyAwkBAAAAAiE9AAAAAggFAAAAAWkAAAAGY2FsbGVyBQAAAAR0aGlzCQAAAgAAAAECAAAADU5vdCBwZXJtaXR0ZWQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkBAAAADXVzZXJTdGF0dXNLZXkAAAABBQAAAApkZXZpY2VBZGRyBQAAAAZBQ1RJVkUFAAAAA25pbAAAAAFpAQAAAApyZW1vdmVVc2VyAAAAAQAAAApkZXZpY2VBZGRyAwkBAAAAAiE9AAAAAggFAAAAAWkAAAAGY2FsbGVyBQAAAAR0aGlzCQAAAgAAAAECAAAADU5vdCBwZXJtaXR0ZWQJAARMAAAAAgkBAAAAC0RlbGV0ZUVudHJ5AAAAAQkBAAAADXVzZXJTdGF0dXNLZXkAAAABBQAAAApkZXZpY2VBZGRyBQAAAANuaWwAAAABaQEAAAAKcmVxdWVzdEtleQAAAAIAAAAKZGV2aWNlQWRkcgAAAAhkdXJhdGlvbgQAAAAIaXNzdWVkQXQIBQAAAAlsYXN0QmxvY2sAAAAJdGltZXN0YW1wBAAAAAp2YWxpZFVudGlsCQAAZAAAAAIFAAAACGlzc3VlZEF0BQAAAAhkdXJhdGlvbgQAAAALZGV2aWNlT3duZXIJAQAAAA9vd25lckZyb21EZXZpY2UAAAABCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABBQAAAApkZXZpY2VBZGRyBAAAAAhrZXlQcmljZQkBAAAAEmtleVByaWNlRnJvbURldmljZQAAAAEJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAEFAAAACmRldmljZUFkZHIEAAAAB2Fzc2V0SWQJAQAAAApnZXRBc3NldElkAAAAAAMJAQAAAAIhPQAAAAIJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwUAAAALZGV2aWNlT3duZXIJAAACAAAAAQIAAAANTm90IHBlcm1pdHRlZAMJAAAAAAAAAgkBAAAAD2RldmljZUFjdGlvbktleQAAAAEFAAAACmRldmljZUFkZHIFAAAABE5PTkUJAAACAAAAAQIAAAAOTm8gc3VjaCBkZXZpY2UDCQEAAAAMcHJpY2VJc1dyb25nAAAAAwUAAAABaQUAAAAHYXNzZXRJZAUAAAAIa2V5UHJpY2UJAAACAAAAAQIAAAALd3JvbmcgcHJpY2UEAAAABWlzc3VlCQAEQgAAAAUCAAAADERldmljZUtleUdlbgkAASwAAAACCQABLAAAAAIFAAAACmRldmljZUFkZHICAAAAAV8JAAGkAAAAAQUAAAAKdmFsaWRVbnRpbAAAAAAAAAAAAQAAAAAAAAAAAAcEAAAACm5ld0Fzc2V0SWQJAAQ4AAAAAQUAAAAFaXNzdWUJAARMAAAAAgUAAAAFaXNzdWUJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyAAAAAAAAAAABBQAAAApuZXdBc3NldElkBQAAAANuaWwAAAABaQEAAAAMZGV2aWNlQWN0aW9uAAAAAgAAAAVrZXlJRAAAAAZhY3Rpb24EAAAACGhhc05vS2V5CQAAZgAAAAIAAAAAAAAAAAEJAAPwAAAAAggFAAAAAWkAAAAGY2FsbGVyCQACWQAAAAEFAAAABWtleUlEBAAAAAdrZXlJbmZvCQEAAAAMZ2V0QXNzZXRJbmZvAAAAAQkAAlkAAAABBQAAAAVrZXlJRAQAAAAGZGV2aWNlCQEAAAANZGV2aWNlRnJvbUtleQAAAAEFAAAAB2tleUluZm8EAAAACWRldmljZVN0cgkAAlgAAAABCAUAAAAGZGV2aWNlAAAABWJ5dGVzAwUAAAAIaGFzTm9LZXkJAAACAAAAAQIAAAANS2V5IG5vdCBvd25lZAMJAAAAAAAAAgkBAAAAD2RldmljZUFjdGlvbktleQAAAAEFAAAACWRldmljZVN0cgUAAAAETk9ORQkAAAIAAAABAgAAAA5ObyBzdWNoIGRldmljZQMJAQAAABdkZXZpY2VOb3RXaGl0ZWxpc3RlZEtleQAAAAIFAAAABmRldmljZQUAAAAFa2V5SUQJAAACAAAAAQIAAAATS2V5IG5vdCB3aGl0ZWxpc3RlZAMJAQAAABZub3RBbGxvd2VkRGV2aWNlQWN0aW9uAAAAAQUAAAAGYWN0aW9uCQAAAgAAAAECAAAAFUFjdGlvbiBpcyBub3QgYWxsb3dlZAMJAQAAABNrZXlUaW1lc3RhbXBJbnZhbGlkAAAAAQUAAAAHa2V5SW5mbwkAAAIAAAABAgAAAAtLZXkgZXhwaXJlZAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQEAAAAPZGV2aWNlQWN0aW9uS2V5AAAAAQUAAAAJZGV2aWNlU3RyBQAAAAZhY3Rpb24JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAQAAABZkZXZpY2VBY3Rpb25Db3VudGVyS2V5AAAAAQUAAAAJZGV2aWNlU3RyCQAAZAAAAAIJAQAAABhkZXZpY2VBY3Rpb25Db3VudGVyVmFsdWUAAAABBQAAAAlkZXZpY2VTdHIAAAAAAAAAAAEFAAAAA25pbAAAAAEAAAACdHgBAAAABnZlcmlmeQAAAAAJAAH0AAAAAwgFAAAAAnR4AAAACWJvZHlCeXRlcwkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAAACAUAAAACdHgAAAAPc2VuZGVyUHVibGljS2V5stq+fQ==",
    "height": 1378984,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: F62XWdbizUTrEM6g8fukKb1z31SoMg6Pcv1dbJjxGXHj
Next: none

Diff: 

OldNewDifferences
11 {-# STDLIB_VERSION 4 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4-func deviceKey (device) = ("device_" + device)
4+let NONE = "none"
5+
6+let BANNED = "banned"
7+
8+let ACTIVE = "active"
9+
10+let CLOSE = "close"
11+
12+let OPEN = "open"
13+
14+let assetKey = "asset"
15+
16+let keyPriceKey = "key_price"
17+
18+let ownerKey = "owner"
19+
20+let actions = [OPEN, CLOSE]
21+
22+let deviceInitialCounter = 0
23+
24+let keyDevice = 0
25+
26+let keyValidUntil = 1
27+
28+func getNumberByKey (key) = match getInteger(this, key) {
29+    case a: Int => 
30+        a
31+    case _ => 
32+        0
33+}
34+
35+
36+func getStrByKey (key) = match getString(this, key) {
37+    case a: String => 
38+        a
39+    case _ => 
40+        NONE
41+}
42+
43+
44+func getExtNumberByKey (key) = match getInteger(this, key) {
45+    case a: Int => 
46+        a
47+    case _ => 
48+        0
49+}
50+
51+
52+func getExtStrByKey (addr,key) = match getString(addr, key) {
53+    case a: String => 
54+        a
55+    case _ => 
56+        NONE
57+}
58+
59+
60+func getAssetId () = fromBase58String(getStrByKey(assetKey))
61+
62+
63+func userStatusKey (addr) = ("user_" + addr)
64+
65+
66+func userStatusValue (addr) = match getString(this, userStatusKey(addr)) {
67+    case a: String => 
68+        a
69+    case _ => 
70+        NONE
71+}
72+
73+
74+func deviceActionKey (addr) = ("device_" + addr)
75+
76+
77+func deviceActionCounterKey (addr) = ("device_counter_" + addr)
78+
79+
80+func deviceActionValue (addr) = getStrByKey(deviceActionKey(addr))
81+
82+
83+func deviceActionCounterValue (addr) = getNumberByKey(deviceActionCounterKey(addr))
84+
85+
86+func nftKey (nft) = ("key_" + nft)
87+
88+
89+func nftValue (nft) = getStrByKey(nftKey(nft))
90+
91+
92+func deviceNotWhitelistedKey (device,key) = {
93+    let nftId = nftKey(key)
94+    let valInDevice = getExtStrByKey(device, nftId)
95+    if ((valInDevice != NONE))
96+        then false
97+        else true
98+    }
99+
100+
101+func deviceFromKey (key) = {
102+    let device = split(key.description, "_")[keyDevice]
103+    match addressFromString(device) {
104+        case t: Address => 
105+            t
106+        case _ => 
107+            throw("Not a device key")
108+    }
109+    }
110+
111+
112+func getAssetInfo (asset) = match assetInfo(asset) {
113+    case t: Asset => 
114+        t
115+    case _ => 
116+        throw("Not a key")
117+}
118+
119+
120+func keyTimestampInvalid (key) = {
121+    let timestamp = parseIntValue(split(key.description, "_")[keyValidUntil])
122+    (lastBlock.timestamp > timestamp)
123+    }
124+
125+
126+func keyPriceFromDevice (device) = match getInteger(device, keyPriceKey) {
127+    case t: Int => 
128+        t
129+    case _ => 
130+        throw("Price not specified in device")
131+}
132+
133+
134+func ownerFromDevice (device) = match getString(device, ownerKey) {
135+    case t: String => 
136+        t
137+    case _ => 
138+        throw("Owner not specified in device")
139+}
140+
141+
142+func priceIsWrong (i,assetId,price) = if ((1 > size(i.payments)))
143+    then throw("wrong payments count")
144+    else if ((i.payments[0].assetId != assetId))
145+        then throw("wrong asset, supported only xyz")
146+        else if ((i.payments[0].amount != price))
147+            then throw(("wrong payment value, expected " + toString(price)))
148+            else false
149+
150+
151+func notAllowedDeviceAction (action) = match indexOf(actions, action) {
152+    case a: Int => 
153+        false
154+    case _ => 
155+        true
156+}
5157 
6158 
7159 @Callable(i)
8-func interact (a,b) = nil
160+func addDevice (deviceAddr) = if ((i.caller != this))
161+    then throw("Not permitted")
162+    else if ((deviceActionValue(deviceAddr) != NONE))
163+        then throw("Device already added")
164+        else [StringEntry(deviceActionKey(deviceAddr), CLOSE), IntegerEntry(deviceActionCounterKey(deviceAddr), deviceInitialCounter)]
9165 
10166 
11167 
12168 @Callable(i)
13-func addDevice (device) = [BooleanEntry(deviceKey(device), true)]
169+func addUser (deviceAddr) = if ((i.caller != this))
170+    then throw("Not permitted")
171+    else [StringEntry(userStatusKey(deviceAddr), ACTIVE)]
172+
173+
174+
175+@Callable(i)
176+func removeUser (deviceAddr) = if ((i.caller != this))
177+    then throw("Not permitted")
178+    else [DeleteEntry(userStatusKey(deviceAddr))]
179+
180+
181+
182+@Callable(i)
183+func requestKey (deviceAddr,duration) = {
184+    let issuedAt = lastBlock.timestamp
185+    let validUntil = (issuedAt + duration)
186+    let deviceOwner = ownerFromDevice(addressFromStringValue(deviceAddr))
187+    let keyPrice = keyPriceFromDevice(addressFromStringValue(deviceAddr))
188+    let assetId = getAssetId()
189+    if ((toBase58String(i.caller.bytes) != deviceOwner))
190+        then throw("Not permitted")
191+        else if ((deviceActionKey(deviceAddr) == NONE))
192+            then throw("No such device")
193+            else if (priceIsWrong(i, assetId, keyPrice))
194+                then throw("wrong price")
195+                else {
196+                    let issue = Issue("DeviceKeyGen", ((deviceAddr + "_") + toString(validUntil)), 1, 0, false)
197+                    let newAssetId = calculateAssetId(issue)
198+[issue, ScriptTransfer(i.caller, 1, newAssetId)]
199+                    }
200+    }
201+
202+
203+
204+@Callable(i)
205+func deviceAction (keyID,action) = {
206+    let hasNoKey = (1 > assetBalance(i.caller, fromBase58String(keyID)))
207+    let keyInfo = getAssetInfo(fromBase58String(keyID))
208+    let device = deviceFromKey(keyInfo)
209+    let deviceStr = toBase58String(device.bytes)
210+    if (hasNoKey)
211+        then throw("Key not owned")
212+        else if ((deviceActionKey(deviceStr) == NONE))
213+            then throw("No such device")
214+            else if (deviceNotWhitelistedKey(device, keyID))
215+                then throw("Key not whitelisted")
216+                else if (notAllowedDeviceAction(action))
217+                    then throw("Action is not allowed")
218+                    else if (keyTimestampInvalid(keyInfo))
219+                        then throw("Key expired")
220+                        else [StringEntry(deviceActionKey(deviceStr), action), IntegerEntry(deviceActionCounterKey(deviceStr), (deviceActionCounterValue(deviceStr) + 1))]
221+    }
14222 
15223 
16224 @Verifier(tx)

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 4 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4-func deviceKey (device) = ("device_" + device)
4+let NONE = "none"
5+
6+let BANNED = "banned"
7+
8+let ACTIVE = "active"
9+
10+let CLOSE = "close"
11+
12+let OPEN = "open"
13+
14+let assetKey = "asset"
15+
16+let keyPriceKey = "key_price"
17+
18+let ownerKey = "owner"
19+
20+let actions = [OPEN, CLOSE]
21+
22+let deviceInitialCounter = 0
23+
24+let keyDevice = 0
25+
26+let keyValidUntil = 1
27+
28+func getNumberByKey (key) = match getInteger(this, key) {
29+    case a: Int => 
30+        a
31+    case _ => 
32+        0
33+}
34+
35+
36+func getStrByKey (key) = match getString(this, key) {
37+    case a: String => 
38+        a
39+    case _ => 
40+        NONE
41+}
42+
43+
44+func getExtNumberByKey (key) = match getInteger(this, key) {
45+    case a: Int => 
46+        a
47+    case _ => 
48+        0
49+}
50+
51+
52+func getExtStrByKey (addr,key) = match getString(addr, key) {
53+    case a: String => 
54+        a
55+    case _ => 
56+        NONE
57+}
58+
59+
60+func getAssetId () = fromBase58String(getStrByKey(assetKey))
61+
62+
63+func userStatusKey (addr) = ("user_" + addr)
64+
65+
66+func userStatusValue (addr) = match getString(this, userStatusKey(addr)) {
67+    case a: String => 
68+        a
69+    case _ => 
70+        NONE
71+}
72+
73+
74+func deviceActionKey (addr) = ("device_" + addr)
75+
76+
77+func deviceActionCounterKey (addr) = ("device_counter_" + addr)
78+
79+
80+func deviceActionValue (addr) = getStrByKey(deviceActionKey(addr))
81+
82+
83+func deviceActionCounterValue (addr) = getNumberByKey(deviceActionCounterKey(addr))
84+
85+
86+func nftKey (nft) = ("key_" + nft)
87+
88+
89+func nftValue (nft) = getStrByKey(nftKey(nft))
90+
91+
92+func deviceNotWhitelistedKey (device,key) = {
93+    let nftId = nftKey(key)
94+    let valInDevice = getExtStrByKey(device, nftId)
95+    if ((valInDevice != NONE))
96+        then false
97+        else true
98+    }
99+
100+
101+func deviceFromKey (key) = {
102+    let device = split(key.description, "_")[keyDevice]
103+    match addressFromString(device) {
104+        case t: Address => 
105+            t
106+        case _ => 
107+            throw("Not a device key")
108+    }
109+    }
110+
111+
112+func getAssetInfo (asset) = match assetInfo(asset) {
113+    case t: Asset => 
114+        t
115+    case _ => 
116+        throw("Not a key")
117+}
118+
119+
120+func keyTimestampInvalid (key) = {
121+    let timestamp = parseIntValue(split(key.description, "_")[keyValidUntil])
122+    (lastBlock.timestamp > timestamp)
123+    }
124+
125+
126+func keyPriceFromDevice (device) = match getInteger(device, keyPriceKey) {
127+    case t: Int => 
128+        t
129+    case _ => 
130+        throw("Price not specified in device")
131+}
132+
133+
134+func ownerFromDevice (device) = match getString(device, ownerKey) {
135+    case t: String => 
136+        t
137+    case _ => 
138+        throw("Owner not specified in device")
139+}
140+
141+
142+func priceIsWrong (i,assetId,price) = if ((1 > size(i.payments)))
143+    then throw("wrong payments count")
144+    else if ((i.payments[0].assetId != assetId))
145+        then throw("wrong asset, supported only xyz")
146+        else if ((i.payments[0].amount != price))
147+            then throw(("wrong payment value, expected " + toString(price)))
148+            else false
149+
150+
151+func notAllowedDeviceAction (action) = match indexOf(actions, action) {
152+    case a: Int => 
153+        false
154+    case _ => 
155+        true
156+}
5157 
6158 
7159 @Callable(i)
8-func interact (a,b) = nil
160+func addDevice (deviceAddr) = if ((i.caller != this))
161+    then throw("Not permitted")
162+    else if ((deviceActionValue(deviceAddr) != NONE))
163+        then throw("Device already added")
164+        else [StringEntry(deviceActionKey(deviceAddr), CLOSE), IntegerEntry(deviceActionCounterKey(deviceAddr), deviceInitialCounter)]
9165 
10166 
11167 
12168 @Callable(i)
13-func addDevice (device) = [BooleanEntry(deviceKey(device), true)]
169+func addUser (deviceAddr) = if ((i.caller != this))
170+    then throw("Not permitted")
171+    else [StringEntry(userStatusKey(deviceAddr), ACTIVE)]
172+
173+
174+
175+@Callable(i)
176+func removeUser (deviceAddr) = if ((i.caller != this))
177+    then throw("Not permitted")
178+    else [DeleteEntry(userStatusKey(deviceAddr))]
179+
180+
181+
182+@Callable(i)
183+func requestKey (deviceAddr,duration) = {
184+    let issuedAt = lastBlock.timestamp
185+    let validUntil = (issuedAt + duration)
186+    let deviceOwner = ownerFromDevice(addressFromStringValue(deviceAddr))
187+    let keyPrice = keyPriceFromDevice(addressFromStringValue(deviceAddr))
188+    let assetId = getAssetId()
189+    if ((toBase58String(i.caller.bytes) != deviceOwner))
190+        then throw("Not permitted")
191+        else if ((deviceActionKey(deviceAddr) == NONE))
192+            then throw("No such device")
193+            else if (priceIsWrong(i, assetId, keyPrice))
194+                then throw("wrong price")
195+                else {
196+                    let issue = Issue("DeviceKeyGen", ((deviceAddr + "_") + toString(validUntil)), 1, 0, false)
197+                    let newAssetId = calculateAssetId(issue)
198+[issue, ScriptTransfer(i.caller, 1, newAssetId)]
199+                    }
200+    }
201+
202+
203+
204+@Callable(i)
205+func deviceAction (keyID,action) = {
206+    let hasNoKey = (1 > assetBalance(i.caller, fromBase58String(keyID)))
207+    let keyInfo = getAssetInfo(fromBase58String(keyID))
208+    let device = deviceFromKey(keyInfo)
209+    let deviceStr = toBase58String(device.bytes)
210+    if (hasNoKey)
211+        then throw("Key not owned")
212+        else if ((deviceActionKey(deviceStr) == NONE))
213+            then throw("No such device")
214+            else if (deviceNotWhitelistedKey(device, keyID))
215+                then throw("Key not whitelisted")
216+                else if (notAllowedDeviceAction(action))
217+                    then throw("Action is not allowed")
218+                    else if (keyTimestampInvalid(keyInfo))
219+                        then throw("Key expired")
220+                        else [StringEntry(deviceActionKey(deviceStr), action), IntegerEntry(deviceActionCounterKey(deviceStr), (deviceActionCounterValue(deviceStr) + 1))]
221+    }
14222 
15223 
16224 @Verifier(tx)
17225 func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
18226 
github/deemru/w8io/169f3d6 
43.65 ms ◑