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-27 23:49:52 +01:00
parent 0b72705602
commit 350f9be2ae
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/crypto.ml
View file

@ -284,10 +284,10 @@ end = struct
let cipher = cipher_to_int32 RSA in
let pub = RsaPublicKey.to_octets pub in
let pub_len = String.length pub in
let b = Bytes.create (2 + 2 + pub_len) in
let b = Bytes.create (4 + 4 + pub_len) in
Bytes.set_int32_be b 0 age_mask;
Bytes.set_int32_be b 2 cipher;
Bytes.blit_string pub 0 b 4 pub_len;
Bytes.set_int32_be b 4 cipher;
Bytes.blit_string pub 0 b (4 + 4) pub_len;
SHA512.(digest_bytes b)
let of_octets s =