crypto.hs

#!/usr/bin/env stack
-- stack --resolver lts-9.0 script
{-# LANGUAGE OverloadedStrings #-}

import           Crypto.KDF.PBKDF2
import           Data.ByteString.Base16 (encode)
import qualified Data.ByteString.Char8  as C

main :: IO ()
main = C.putStrLn (encode hash)
  where
    hash = fastPBKDF2_SHA256 parameters password salt
    parameters = Parameters 100000 32
    password = "password" :: C.ByteString
    salt = "salt" :: C.ByteString