Código: Seleccionar todo

module Vigenere where
	import Data.Char
	
	xEnc :: String -> Int -> String
	xEnc xs ys = [chr ((fst(x) + snd(x)) `mod` 256)| x <- zip [ord x | x <- xs] [ord y | y <- ys]]
	
	xDec :: String -> Int -> String
	xDec xs ys = [chr ((fst(x) - snd(x)) `mod` 256)| x <- zip [ord x | x <- xs] [ord y | y <- ys]]