vvalueencrypt :: (MonadThrow m, MonadRandom m)=> Point Curve-> ConduitM ByteString ByteString m ()Peek#