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-16 12:57:02 +01:00
parent b2f5401da4
commit baee192c62
3 changed files with 57 additions and 53 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test/crypto.ml
View file

@ -89,7 +89,7 @@ let () =
let xts = salt |> decode in
let ikm = ikm |> decode in
let ctx = ctx |> decode in
let okm = Fdh.Kdf.kdf ~xts ~ikm ~ctx ~len:out_len in
let okm = Crypto.FDH_RSA.Kdf.kdf ~xts ~ikm ~ctx ~len:out_len in
let okm = okm |> encode in
assert (okm = out);
@ -114,7 +114,7 @@ let () =
rsa_public_key |> decode |> RsaPublicKey.of_octets |> Result.get_ok
in
let bks = blinding_key_secret |> decode in
let s = rsa_blind pub ~bks ~msg |> encode in
let s = FDH_RSA.rsa_blind pub ~bks ~msg |> encode in
assert (s = blinded_message);
()