genKeyPair :: BS.ByteString -> IO (BS.ByteString, BS.ByteString)
genKeyPair rkey = do
    rnd <- getEntropy (fromIntegral cipherSize)
    return $ mkKeyPairFromKey rkey rnd False
genKeyPair :: BS.ByteString -> IO (BS.ByteString, BS.ByteString)
genKeyPair rkey = do
    rnd <- getEntropy (fromIntegral cipherSize)
    return $ mkKeyPairFromKey rkey rnd False
genKeyPair rkey = do
    rnd <- getEntropy (fromIntegral cipherSize)
    return $ mkKeyPairFromKey rkey rnd False