From 34619cecdbd04135b3b11c52616d0add4c7945dc Mon Sep 17 00:00:00 2001 From: swrup Date: Fri, 28 Nov 2025 17:43:27 +0100 Subject: [PATCH] --- tools/offline_signature.ml | 29 ++++++++++++++++++++++++++--- 1 file changed, 26 insertions(+), 3 deletions(-) diff --git a/tools/offline_signature.ml b/tools/offline_signature.ml index 4d88aff9..219d96da 100644 --- a/tools/offline_signature.ml +++ b/tools/offline_signature.ml @@ -1,4 +1,27 @@ -let _denom_signature ~key ~key_pub +let _signkey_signature ~master_key ~master_key_pub:_ + Api.FutureSignKey. + { + key; + stamp_start; + stamp_expire; + stamp_end; + (* TODO check sigs *) + signkey_secmod_sig= _; + } = + let master_sig = + let open Bin_signature.ExchangeSigningKeyValidityPS in + { + start= stamp_start; + expire= stamp_expire; + end_= stamp_end; + signkey_pub= key; + } + |> Bin.to_string bin + |> Crypto.EddsaSignature.sign ~key:master_key + in + Api.SignKeySignature.{ key; master_sig } + +let _denom_signature ~master_key ~master_key_pub Api.FutureDenom. { section_name= _; @@ -29,7 +52,7 @@ let _denom_signature ~key ~key_pub let open Bin_type in let open Bin_signature.DenominationKeyValidityPS in { - master= key_pub; + master= master_key_pub; start= stamp_start; expire_withdraw= stamp_expire_withdraw; expire_spend= stamp_expire_deposit; @@ -41,7 +64,7 @@ let _denom_signature ~key ~key_pub denom_hash= DenominationHash.hash pub_octets; } |> Bin.to_string bin - |> Crypto.EddsaSignature.sign ~key + |> Crypto.EddsaSignature.sign ~key:master_key in Api.DenomSignature.{ h_denom_pub; master_sig }