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

+ secmod; + .master_sig

Browse source
This commit is contained in:
swrup 2025-10-19 01:10:52 +02:00
parent bc6ea09a59
commit 3966d300bd
6 changed files with 66 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

41
src/devices.ml
View file

@ -1,15 +1,32 @@
(* TODO
better types to not mixup keys maybe
.. *)
(* TODO KV store *)
let signkey = Signkey.make ~name:"signkey"
let online_key = Signkey.make ~name:"online_key"
let denom_key = Signkey.make ~name:"denom_key"
module Secmod_signkey = struct
type t = {
secmod_key: Signkey.t;
keys: Signkey.t list;
}
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 v =
let finally _key = () in
Vif.Device.v ~name:"secmod_signkey" ~finally [] @@ fun () ->
let secmod_key = Signkey.generate () in
let keys = [ Signkey.generate () ] in
{ secmod_key; keys }
end
let l = Vif.Devices.[ signkey; online_key; denom_key; denominations ]
module Secmod_denom = struct
type t = {
secmod_key: Signkey.t;
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 keys = List.map Denomination.make Config.coins in
{ secmod_key; keys }
end
let secmod_signkey = Secmod_signkey.v
let secmod_denom = Secmod_denom.v