QPQ-AG/hakuzaru
11
0
Fork 0
Code Issues 3 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Replace case with a simpler assertion

Browse Source
This commit is contained in:
Craig Everett
2026-05-30 15:33:43 +09:00
parent 11a9b36681
commit bb7b4c3629
1 changed files with 4 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/hz_key_master.erl
+4 -8
View File
@@ -342,14 +342,10 @@ extract(Hash, Salt, IKM) ->
expand(Hash, PRK, Info, OutLen) -> expand(Hash, PRK, Info, OutLen) ->
HashLen = hash_size(Hash), HashLen = hash_size(Hash),
BlockCount = (OutLen + HashLen - 1) div HashLen, BlockCount = (OutLen + HashLen - 1) div HashLen,
case BlockCount > 255 of true = BlockCount =< 255,
true -> FullBlocks = expand_loop(Hash, PRK, Info, BlockCount, 1, <<>>, <<>>),
error(hkdf_length_too_long); <<Output:OutLen/binary, _/binary>> = FullBlocks,
false -> Output.
FullBlocks = expand_loop(Hash, PRK, Info, BlockCount, 1, <<>>, <<>>),
<<Output:OutLen/binary, _/binary>> = FullBlocks,
Output
end.
expand_loop(Hash, PRK, Info, N, Counter, PrevT, Acc) when Counter =< N -> expand_loop(Hash, PRK, Info, N, Counter, PrevT, Acc) when Counter =< N ->
Payload = <<PrevT/binary, Info/binary, Counter:8>>, Payload = <<PrevT/binary, Info/binary, Counter:8>>,