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-17 17:34:40 +02:00
parent 812b81a966
commit cc81892a06
1 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/management.ml
View file

@ -2,15 +2,11 @@ open Types
(* TODO (* TODO
- take secmod devices as param - take secmod devices as param
- time stuff
- hash stuff - hash stuff
what is the hash algorithm what is the hash algorithm
is it hash'ed then base32'ed in xxxP? is it hash'ed then base32'ed in xxxP?
... *) ... *)
let mk_denomination_key rsa_pub =
DenominationKey.Rsa RsaDenominationKey.{ age_mask= 0; rsa_pub }
let mk_future_denom denom_secmod_sign_f let mk_future_denom denom_secmod_sign_f
({ ({
section_name; section_name;
@ -27,7 +23,9 @@ let mk_future_denom denom_secmod_sign_f
sign= _; sign= _;
} : } :
Secmod_denom.rsa_denom) = Secmod_denom.rsa_denom) =
let denom_pub = mk_denomination_key pub in let denom_pub =
DenominationKey.Rsa RsaDenominationKey.{ age_mask= 0; rsa_pub= pub }
in
let denom_secmod_sig = let denom_secmod_sig =
let open Binary_formats in let open Binary_formats in
let h_denom_pub = let h_denom_pub =