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

Browse source
This commit is contained in:
swrup 2026-02-13 19:55:36 +01:00
parent 2208218110
commit 3555893541
1 changed files with 0 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/crypto.ml
View file

@ -259,15 +259,10 @@ end
module RsaSignature : sig module RsaSignature : sig
type t type t
val sign : key:Mirage_crypto_pk.Rsa.priv -> string -> t
val jsont : t Jsont.t val jsont : t Jsont.t
end = struct end = struct
type t = string type t = string
(* TODO rsa sign *)
let sign ~key s =
Mirage_crypto_pk.Rsa.decrypt ~crt_hardening:true ~mask:`Yes ~key s
let jsont = let jsont =
let of_b32 s = B32.decode s in let of_b32 s = B32.decode s in
let to_b32 t = B32.encode t in let to_b32 t = B32.encode t in