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

wip: secmod/keys initialization

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

5
src/signkey.ml
View file

@ -4,10 +4,10 @@ open Crypto
not sur how to handle master_sig initialization *)
type t = {
pub: EddsaPublicKey.t;
priv: EddsaPrivateKey.t;
stamp_start: Ptime.t;
stamp_expire: Ptime.t;
stamp_end: Ptime.t;
sign: string -> EddsaSignature.t;
(* signature of this key by offline master key *)
master_sig: EddsaSignature.t option;
}
@ -25,6 +25,5 @@ let generate () =
in
let stamp_end = stamp_expire in
let priv, pub = Mirage_crypto_ec.Ed25519.generate () in
let sign s = EddsaSignature.sign ~key:priv s in
let master_sig = None in
{ pub; stamp_start; stamp_expire; stamp_end; master_sig; sign }
{ pub; priv; stamp_start; stamp_expire; stamp_end; master_sig }