1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
module Crypto.Cipher.Utils (
validateKeySize,
) where
import Crypto.Cipher.Types
import Crypto.Error
import Data.ByteArray as BA
validateKeySize
:: (ByteArrayAccess key, Cipher cipher) => cipher -> key -> CryptoFailable key
validateKeySize c k =
if validKeyLength
then CryptoPassed k
else CryptoFailed CryptoError_KeySizeInvalid
where
keyLength = BA.length k
validKeyLength = case cipherKeySize c of
KeySizeRange low high -> keyLength >= low && keyLength <= high
KeySizeEnum lengths -> keyLength `elem` lengths
KeySizeFixed s -> keyLength == s
|
