Cifrado Vigenere - Haskell

  • 0 Respuestas
  • 3032 Vistas

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

Desconectado Sanko

  • *
  • Underc0der
  • Mensajes: 541
  • Actividad:
    0%
  • Country: 00
  • Reputación 0
  • ¿Puedes?
    • Ver Perfil
    • Underc0de

Cifrado Vigenere - Haskell

  • 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]]

« Última modificación: Mayo 01, 2014, 09:16:54 am por Expermicid »
Sigueme en Twitter : @Sankosk
Estos nuevos staff no tienen puta idea XD

 

[Código-Haskell] Recorrer Lista declarada por usuario - JaAViEr

Iniciado por JaAViEr

Respuestas: 0
Vistas: 4729
Último mensaje Julio 17, 2011, 10:57:46 am
por JaAViEr
[Código-Haskell] Números Pares & Impares - JaAViEr

Iniciado por JaAViEr

Respuestas: 1
Vistas: 3339
Último mensaje Julio 17, 2011, 03:34:36 am
por LucaSthefano
[Datos] Funciones para Haskell internas - JaAViEr

Iniciado por JaAViEr

Respuestas: 0
Vistas: 2471
Último mensaje Julio 17, 2011, 06:37:29 am
por JaAViEr
[Código-Haskell] Cuenta caracteres de un archivo - JaAViEr

Iniciado por JaAViEr

Respuestas: 0
Vistas: 2326
Último mensaje Julio 17, 2011, 03:33:33 am
por JaAViEr
[Código-Haskell] Limpia Archivo - JaAViEr

Iniciado por JaAViEr

Respuestas: 0
Vistas: 2280
Último mensaje Julio 17, 2011, 03:40:07 am
por JaAViEr