Move salt-related constants and functions together.

cardano-foundation · May 8, 2024 · a0d7c88 · a0d7c88
1 parent 427d830
commit a0d7c88
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/lib/crypto-primitives/src/Cryptography/Cipher/AES256CBC.hs b/lib/crypto-primitives/src/Cryptography/Cipher/AES256CBC.hs
@@ -129,12 +129,6 @@ encrypt mode keyBytes ivBytes saltM msg
             WithoutPadding -> id
             WithPadding -> PKCS7.pad
 
-saltLengthBytes :: Int
-saltLengthBytes = 8
-
-saltPrefix :: ByteString
-saltPrefix = "Salted__"
-
 -- | Decrypt using AES256 using CBC mode.
 decrypt
     :: CipherMode
@@ -169,6 +163,12 @@ decrypt mode key iv msg = do
         WithoutPadding -> Right p
         WithPadding -> maybeToEither EmptyPayload (PKCS7.unpad p)
 
+saltLengthBytes :: Int
+saltLengthBytes = 8
+
+saltPrefix :: ByteString
+saltPrefix = "Salted__"
+
 getSaltFromEncrypted :: ByteString -> Maybe ByteString
 getSaltFromEncrypted msg
     | BS.length msg < 32 = Nothing