Autor Tema: Cifrado cesar - haskell  (Leído 4283 veces)

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

Desconectado sanko

  • Recién llegado
  • *
  • Mensajes: 30
  • Karma: +2/-1
  • ¿Puedes?
    • Ver Perfil
    • StrikeGeek
Cifrado cesar - haskell
« : diciembre 30, 2013, 02:47:05 pm »
Gracias a overxfl0w que me estuvo ayudando con la recursividad de haskell pude acabar el cifrado:

Código: [Seleccionar]
import Data.Char

xEnc x y = ['a'..'z'] !! (((x + y) `mod` 26 ))
xDec x y = ['a'..'z'] !! (((x - y) `mod` 26 ))

encFinal :: String -> Int -> String
encFinal [] y = ""
encFinal (x:xs) y = (xEnc ((ord x)-97) y):(encFinal xs y)

decFinal :: String -> Int -> String
decFinal [] y = ""
decFinal (x:xs) y = (xDec ((ord x)-97) y):(decFinal xs y)

Saludos.
PD : Over, maquina

IN-Seguridad Informática & Programación
StrikeGeek.org | Underc0de.org
Si has encontrado útil este articulo recuerda que puedes ayudarnos con tu donación voluntaria la cual ayudará al staff y a la mantención del foro.


. . . . . . . .