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

update tests

Browse source
This commit is contained in:
swrup 2026-03-21 00:58:15 +01:00 • committed by Swrup
parent 176c7cfa2b
commit df02bf0f48
5 changed files with 199 additions and 214 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/rsa.ml
View file

@ -197,7 +197,7 @@ let blind_msg pub ~bks msg =
let data_r_e = Z.rem (Z.mul data r_e) pub.n in
Mirage_crypto_pk.Z_extra.to_octets_be data_r_e
let unblind_sig pub ~bks bsig =
let unblind_sig pub ~bks (Sig bsig) =
let data = Mirage_crypto_pk.Z_extra.of_octets_be bsig in
let bkey = rsa_blinding_key_derive pub bks in
let r_inv =
@ -207,7 +207,8 @@ let unblind_sig pub ~bks bsig =
assert false
in
let data = Z.rem (Z.mul data r_inv) pub.n in
Mirage_crypto_pk.Z_extra.to_octets_be data
let sig_ = Mirage_crypto_pk.Z_extra.to_octets_be data in
Sig sig_
let verify ~key (Sig s) ~msg =
let msg_fdh = rsa_full_domain_hash key msg in