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

Browse source
This commit is contained in:
swrup 2025-11-28 07:47:51 +01:00
parent 481a0644cb
commit 8b68bb658b
11 changed files with 129 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/management.ml
View file

@ -54,7 +54,7 @@ let mk_future_denom denom_key_signf
}
let mk_future_signkey signkey_signf
({ pub; stamp_start; stamp_expire; stamp_end; sign= _; master_sig= _ } :
({ pub; priv= _; stamp_start; stamp_expire; stamp_end; master_sig= _ } :
Signkey.t) =
let signkey_secmod_sig =
let open Bin_type in
@ -83,12 +83,20 @@ let mk_future_keys_response (secmod_signkey : Secmod_signkey.t)
let future_denoms =
secmod_denom.keys
|> List.filter (fun k -> Option.is_none k.Denomination.master_sig)
|> List.map (mk_future_denom secmod_denom.sm_key.Signkey.sign)
|> List.map (fun denom ->
let signf s =
Crypto.EddsaSignature.sign ~key:secmod_denom.sm_key.Signkey.priv s
in
mk_future_denom signf denom)
in
let future_signkeys =
secmod_signkey.keys
|> List.filter (fun k -> Option.is_none k.Signkey.master_sig)
|> List.map (mk_future_signkey secmod_signkey.sm_key.sign)
|> List.map (fun signkey ->
let signf s =
Crypto.EddsaSignature.sign ~key:secmod_denom.sm_key.Signkey.priv s
in
mk_future_signkey signf signkey)
in
let master_pub = Config.Exchange.master_public_key in
let denom_secmod_public_key = secmod_denom.sm_key.pub in