Replace scrypt with cryptonite for integration tests only

I'm not too keen on changing the scrypt package in the main code, for
the time being. But we can replace this package in the integration
tests, without too much risk.

lib/core-integration/cardano-wallet-core-integration.cabal

@@ -68,7 +68,6 @@ library
     , resourcet
     , retry
     , say
-    , scrypt
     , template-haskell
     , text
     , text-class

lib/core-integration/src/Test/Integration/Framework/DSL.hs

@@ -172,7 +172,7 @@ module Test.Integration.Framework.DSL
     , delegating
     , getSlotParams
     , arbitraryStake
-    
+
     -- * CLI
     , commandName
     , command
@@ -326,6 +326,8 @@ import Control.Retry
     ( capDelay, constantDelay, retrying )
 import Crypto.Hash
     ( Blake2b_160, Digest, digestFromByteString )
+import Crypto.Random.Entropy
+    ( getEntropy )
 import Data.Aeson
     ( FromJSON, ToJSON, Value, (.=) )
 import Data.Aeson.QQ
@@ -439,7 +441,7 @@ import qualified Cardano.Wallet.Primitive.Types.TokenQuantity as TokenQuantity
 import qualified Codec.Binary.Bech32 as Bech32
 import qualified Codec.CBOR.Encoding as CBOR
 import qualified Codec.CBOR.Write as CBOR
-import qualified Crypto.Scrypt as Scrypt
+import qualified Crypto.KDF.Scrypt as Scrypt
 import qualified Data.Aeson as Aeson
 import qualified Data.ByteArray as BA
 import qualified Data.ByteString as BS
@@ -1248,17 +1250,19 @@ emptyRandomWalletWithPasswd ctx rawPwd = do
             $ hex
             $ Byron.getKey
             $ Byron.generateKeyFromSeed seed pwd
-    pwdH <- liftIO $ T.decodeUtf8 . hex <$> encryptPasswordWithScrypt pwd
+    pwdH <- liftIO $ T.decodeUtf8 . hex @ByteString <$> scrypt pwd
     emptyByronWalletFromXPrvWith ctx "random" ("Random Wallet", key, pwdH)
   where
-    encryptPasswordWithScrypt =
-        fmap Scrypt.getEncryptedPass
-        . Scrypt.encryptPassIO Scrypt.defaultParams
-        . Scrypt.Pass
+    scrypt = encryptPasswordWithScrypt
         . CBOR.toStrictByteString
         . CBOR.encodeBytes
         . BA.convert
 
+encryptPasswordWithScrypt :: (BA.ByteArrayAccess a, BA.ByteArray b) => a -> IO b
+encryptPasswordWithScrypt pwd = Scrypt.generate params pwd <$> genSalt
+  where
+    params = Scrypt.Parameters 14 8 1 64
+    genSalt = getEntropy @ByteString 32
 
 postWallet'
     :: (MonadIO m, MonadUnliftIO m)