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

abstr type for signature

Browse source
This commit is contained in:
swrup 2025-10-17 16:50:21 +02:00
parent a9a2409a12
commit 9929a4a324
5 changed files with 74 additions and 57 deletions
Download patch file Download diff file Expand all files Collapse all files

21
src/secmod_keys.ml
View file

@ -1,15 +1,11 @@
open Types
type t = {
pub: Mirage_crypto_ec.Ed25519.pub;
sign:
(* TODO sig type
should be
string -> EddsaSignature.t
+ b32 *)
string ->
string;
stamp_start: Ptime.t;
stamp_expire: Ptime.t;
stamp_end: Ptime.t;
pub: EddsaPublicKey.t;
sign: string -> EddsaSignature.t;
}
let make ~name =
@ -30,13 +26,8 @@ let make ~name =
in
let stamp_end = stamp_expire in
let priv, pub = Mirage_crypto_ec.Ed25519.generate () in
{
pub;
sign= Mirage_crypto_ec.Ed25519.sign ~key:priv;
stamp_start;
stamp_expire;
stamp_end;
}
let sign s = EddsaSignature.sign ~key:priv s in
{ stamp_start; stamp_expire; stamp_end; pub; sign }
let signkey_device = make ~name:"signkey"