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

+ secmod_eddsa

Browse source
This commit is contained in:
swrup 2026-02-20 08:24:22 +01:00
parent 355efa8b0f
commit 213952cbea
5 changed files with 210 additions and 70 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/keys.ml
View file

@ -40,11 +40,14 @@ module Make (Conn : Pg.CONN) = struct
}
let conn = (module Conn : Pg.CONN)
let sm_key_fname = Fpath.(Config.secmod_dir / "sm_key")
let sk_fname i = Fpath.(Config.secmod_dir / Fmt.str "sk_%d" i)
let sm_key_fname = Fpath.(v Config.Exchange_secmod_eddsa.sm_priv_key)
let sk_fname i =
Fpath.(v Config.Exchange_secmod_eddsa.key_dir / Fmt.str "sk_%d" i)
let dn_fname section_name =
Fpath.(Config.secmod_dir / Fmt.str "dn_%s" section_name)
Fpath.(
v Config.Exchange_secmod_eddsa.key_dir / Fmt.str "dn_%s" section_name)
let sign_with_sm_key t s = EddsaSignature.sign ~key:t.sm_key s
@ -238,7 +241,7 @@ module Make (Conn : Pg.CONN) = struct
Ok t
let init () =
let dir = Config.secmod_dir in
let dir = Fpath.v Config.Exchange_secmod_eddsa.key_dir in
let* b = Bos.OS.Dir.create ~mode:0o700 dir |> unwrap_err_msg in
if b then Logs.info (fun m -> m "Keys: created directory `%a`" Fpath.pp dir);
let* l =