fdh-rsa: use Eqaf
This commit is contained in:
parent
4ff8d9840f
commit
651c422cb1
4 changed files with 106 additions and 117 deletions
|
|
@ -257,9 +257,9 @@ module Make () = struct
|
|||
let sm_pub = t.sm_pub
|
||||
let sign_secmod s = EddsaSignature.sign ~key:t.sm_key_priv s
|
||||
|
||||
let sign h_pub s =
|
||||
let sign h_pub msg =
|
||||
let+ k = find h_pub in
|
||||
let data = RsaSignature.sign ~key:k.priv s in
|
||||
let data = Fdh_rsa.sign ~key:k.priv msg in
|
||||
data
|
||||
|
||||
let revoke h_pub =
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue