use Eqaf
This commit is contained in:
parent
d870eab54e
commit
c26f3111c3
3 changed files with 15 additions and 29 deletions
|
|
@ -259,9 +259,7 @@ module Make () = struct
|
|||
|
||||
let sign h_pub msg =
|
||||
let+ k = find h_pub in
|
||||
(* TODO fdh-rsa *)
|
||||
let bks = "deadbeaf" in
|
||||
let data = Fdh_rsa.sign ~priv:k.priv ~pub:k.pub ~bks ~msg 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