Underc0de - Hacking y seguridad informática

Programación General => Otros lenguajes => Mensaje iniciado por: Sanko en Febrero 26, 2014, 02:28:29 pm

Título: Cifrado Vigenere - Haskell
Publicado por: Sanko en Febrero 26, 2014, 02:28:29 pm
Código: Haskell
  1. module Vigenere where
  2.         import Data.Char
  3.        
  4.         xEnc :: String -> Int -> String
  5.         xEnc xs ys = [chr ((fst(x) + snd(x)) `mod` 256)| x <- zip [ord x | x <- xs] [ord y | y <- ys]]
  6.        
  7.         xDec :: String -> Int -> String
  8.         xDec xs ys = [chr ((fst(x) - snd(x)) `mod` 256)| x <- zip [ord x | x <- xs] [ord y | y <- ys]]