如何在Haskell中进行加密和解密操作

在Haskell中进行加密和解密操作通常使用一些现成的加密算法库，比如cryptonite。以下是一个简单的示例，演示如何使用cryptonite库进行AES加密和解密操作：

import Crypto.Cipher.AES
import Crypto.Random

-- 加密函数
encryptAES :: Key -> IV -> ByteString -> ByteString
encryptAES key iv plainText = do
    let cipher = initAES key
    encryptCBC cipher iv plainText

-- 解密函数
decryptAES :: Key -> IV -> ByteString -> ByteString
decryptAES key iv cipherText = do
    let cipher = initAES key
    decryptCBC cipher iv cipherText

-- 示例代码
main :: IO ()
main = do
    let key = throwCryptoError $ cipherKeySizeThrower 16
    gen <- newGenIO
    let (iv, _) = throwLeft $ genBytes 16 gen

    let plainText = "Hello, World!"
    let cipherText = encryptAES key iv plainText
    let decryptedText = decryptAES key iv cipherText

    putStrLn $ "Plain text: " ++ plainText
    putStrLn $ "Encrypted text: " ++ show cipherText
    putStrLn $ "Decrypted text: " ++ decryptedText

在这个示例中，我们使用AES算法对文本进行加密和解密操作。首先定义了encryptAES和decryptAES函数分别用于加密和解密操作。然后在main函数中生成随机的密钥和初始向量，对一个简单的文本进行加密和解密操作，并打印结果。

请注意，这只是一个简单的示例，实际应用中可能需要更复杂的加密方案和更安全的密钥管理。建议在实际项目中使用更为复杂的加密算法和密钥管理方案。