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

+wip db-sm different key state issue

Browse source
This commit is contained in:
swrup 2026-02-23 12:29:49 +01:00 • committed by Swrup
parent b647223fc2
commit 85b1249cde
6 changed files with 59 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/secmod_rsa.ml
View file

@ -259,13 +259,6 @@ module Make () = struct
()
let sm_pub = t.sm_pub
let keys () =
Hashtbl.to_seq_values t.ht
|> List.of_seq
|> List.map (fun { section_name; priv= _; pub; t1; t2= _ } ->
(section_name, pub, t1))
let sign_secmod s = EddsaSignature.sign ~key:t.sm_key_priv s
let sign pub s =
@ -278,4 +271,10 @@ module Make () = struct
let* () = delete pub in
add k.section_name k.t1 k.t2;
Ok ()
let conv =
fun { section_name; priv= _; pub; t1; t2= _ } -> (pub, (section_name, t1))
let keys () = Hashtbl.to_seq_values t.ht |> List.of_seq |> List.map conv
let find_key pub = Hashtbl.find_opt t.ht pub |> Option.map conv
end