Cifrado Vigenere - Haskell

Iniciado por Sanko, Febrero 26, 2014, 02:28:29 PM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Febrero 26, 2014, 02:28:29 PM Ultima modificación: Mayo 01, 2014, 09:16:54 AM por Expermicid
Código: haskell
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]]


Sigueme en Twitter : @Sankosk
Estos nuevos staff no tienen puta idea XD