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.You are not allowed to view links. Register or Login
  3.        
  4.         xEnc :: You are not allowed to view links. Register or Login -> You are not allowed to view links. Register or Login -> You are not allowed to view links. Register or Login
  5.         xEnc xs ys = [chr ((You are not allowed to view links. Register or Login(x) + You are not allowed to view links. Register or Login(x)) `You are not allowed to view links. Register or Login` 256)| x <- You are not allowed to view links. Register or Login [ord x | x <- xs] [ord y | y <- ys]]
  6.        
  7.         xDec :: You are not allowed to view links. Register or Login -> You are not allowed to view links. Register or Login -> You are not allowed to view links. Register or Login
  8.         xDec xs ys = [chr ((You are not allowed to view links. Register or Login(x) - You are not allowed to view links. Register or Login(x)) `You are not allowed to view links. Register or Login` 256)| x <- You are not allowed to view links. Register or Login [ord x | x <- xs] [ord y | y <- ys]]