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-05 18:11:04 +01:00
parent d6c4928e0a
commit c248cd9519
1 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

22
src/bin_type.ml
View file

@ -35,13 +35,13 @@ module Taler_signatures = Include.Taler_signatures
let int32_size = 4 let int32_size = 4
let int64_size = 8 let int64_size = 8
module Bytes_32 = struct module Bytes32 = struct
type t = string type t = string
let bin = Bin.bytes 32 let bin = Bin.bytes 32
end end
module Bytes_64 = struct module Bytes64 = struct
type t = string type t = string
let bin = Bin.bytes 64 let bin = Bin.bytes 64
@ -51,13 +51,13 @@ end
(* --- Various --- *) (* --- Various --- *)
module TransferSecretP = Bytes_64 module TransferSecretP = Bytes64
module LinkSecretP = Bytes_64 module LinkSecretP = Bytes64
module EncryptedLinkSecretP = Bytes_64 module EncryptedLinkSecretP = Bytes64
module BlindingMasterSeed = Bytes_32 module BlindingMasterSeed = Bytes32
module BlindingMasterSecret = Bytes_32 module BlindingMasterSecret = Bytes32
module WireTransferIdentifierRawP = Bytes_32 module WireTransferIdentifierRawP = Bytes32
module PublicRefreshCoinNonceP = Bytes_64 module PublicRefreshCoinNonceP = Bytes64
(* TODO ? need to use/save a specific nonce for cryptographic blinding *) (* TODO ? need to use/save a specific nonce for cryptographic blinding *)
(* Secret for blinding/unblinding. (* Secret for blinding/unblinding.
@ -65,8 +65,8 @@ module PublicRefreshCoinNonceP = Bytes_64
a 256-bit nonce, converted to Crockford `Base32`. a 256-bit nonce, converted to Crockford `Base32`.
type DenominationBlindingKeyP = string; *) type DenominationBlindingKeyP = string; *)
module DenominationBlindingKeyP = Bytes_32 module DenominationBlindingKeyP = Bytes32
module RefreshCommitmentP = Bytes_64 module RefreshCommitmentP = Bytes64
(* -- TODO better: -- *) (* -- TODO better: -- *)
module UUID = struct module UUID = struct