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 10:58:30 +01:00
parent a7ceb3be18
commit 43d08e0ad1
3 changed files with 60 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

10
test/crypto.ml
View file

@ -86,11 +86,11 @@ let () =
"GTMR4QT05Z9WF5HKVG0WK9RPXGHSMHJNW377G9GJXCA8B0FEKPF4D27RJMSJZYWSQNTBJ5EYVV7ZW18B48Z0JVJJ80RHB706Y96Q358"
in
let salt = salt |> decode in
let xts = salt |> decode in
let ikm = ikm |> decode in
let info = ctx |> decode in
let km = Crypto.Kdf.kdf ~salt ~ikm ~info ~len:out_len in
let km = km |> encode in
assert (km = out);
let ctx = ctx |> decode in
let okm = Fdh.Kdf.kdf ~xts ~ikm ~ctx ~len:out_len in
let okm = okm |> encode in
assert (okm = out);
()