minimal simpleAES example

simpleaes.hs

module Main (main) where
import Codec.Crypto.SimpleAES
import Data.ByteString.Lazy as L
import Data.ByteString.Lazy.Char8 as L8
import Data.ByteString.Char8 as B8

main = do
  let lstr = L.concat [L8.pack "hi there"]
      pw = B8.pack "abc123abc1234567" 
  lencode2 <- encryptMsg CBC pw lstr
  print lencode2
  let ldecode2 = decryptMsg CBC pw lencode2
  print ldecode2
  print lstr
  return ()