This commit is contained in:
swrup 2025-12-07 05:37:19 +01:00
parent 7162564cad
commit 4fc9a96fde
9 changed files with 15 additions and 15 deletions

View file

@ -21,7 +21,7 @@ let denom_signature ~master_key
let octets = DenominationKey.to_octets denom_pub in
let h_denom_pub = HashCode.hash octets in
let master_sig =
let open Api_sig.DenominationKeyValidityPS in
let open Bin_sig.DenominationKeyValidityPS in
let master = EddsaPrivateKey.(pub_of_priv master_key) in
let denom_hash = DenominationHash.hash octets in
sign ~key:master_key
@ -44,7 +44,7 @@ let signkey_signature ~master_key
FutureSignKey.
{ key; stamp_start; stamp_expire; stamp_end; signkey_secmod_sig= _ } =
let master_sig =
let open Api_sig.ExchangeSigningKeyValidityPS in
let open Bin_sig.ExchangeSigningKeyValidityPS in
sign ~key:master_key
{
start= stamp_start;
@ -78,7 +78,7 @@ let verify_future_signkey ~sm_signkey_pub
let duration =
Timestamp.diff stamp_start stamp_expire |> Timestamp.of_span_exn
in
let open Api_sig.SigningKeyAnnouncementPS in
let open Bin_sig.SigningKeyAnnouncementPS in
verify ~key:sm_signkey_pub signkey_secmod_sig
{ exchange_pub; anchor_time; duration }
@ -106,7 +106,7 @@ let verify_future_denom ~sm_denom_pub
let duration_withdraw =
Timestamp.diff stamp_start stamp_expire_withdraw |> Timestamp.of_span_exn
in
let open Api_sig.DenominationKeyAnnouncementPS in
let open Bin_sig.DenominationKeyAnnouncementPS in
verify ~key:sm_denom_pub denom_secmod_sig
{ h_denom_pub; h_section_name; anchor_time; duration_withdraw }