swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2025-10-19 01:37:21 +02:00
parent d938b17d2b
commit fcae062b37
4 changed files with 34 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

31
src/devices.ml
View file

@ -1,25 +1,30 @@
module Secmod_signkey = struct
type t = {
secmod_public_key: Signkey.t;
secmod_key: Signkey.t;
signkeys: Signkey.t list;
}
let v =
let finally _key = () in
Vif.Device.v ~name:"secmod_signkey" ~finally [] @@ fun () ->
let secmod_key = Signkey.generate () in
let signkeys = [ Signkey.generate () ] in
{ secmod_key; signkeys }
end
module Secmod_denom = struct
type t = {
secmod_signkey: Signkey.t;
secmod_key: Signkey.t;
denom_keys: Denomination.t list;
}
let v =
let finally _key = () in
Vif.Device.v ~name:"secmod_denom" ~finally [] @@ fun () ->
let secmod_key = Signkey.generate () in
let denom_keys = List.map Denomination.make Config.coins in
{ secmod_key; denom_keys }
end
let signkey = Signkey.make ~name:"signkey"
let online_key = Signkey.make ~name:"online_key"
let denom_key = Signkey.make ~name:"denom_key"
let denominations =
let finally _key = () in
Vif.Device.v ~name:"denominations" ~finally [] @@ fun () ->
let rsa_l = List.map Denomination.make Config.coins in
rsa_l
let l = Vif.Devices.[ signkey; online_key; denom_key; denominations ]
let secmod_signkey = Secmod_signkey.v
let secmod_denom = Secmod_denom.v