-- Generate contact information for Stephen Diehl
-- http://www.stephendiehl.com

import Data.Char (ord, chr)
import Data.Ix (inRange)
 
cipher :: Int -> String -> String
cipher k = map f
  where
    f c
      | inRange ('a','z') c = tr 'a' k c
      | inRange ('A','Z') c = tr 'A' k c
      | otherwise = c
 
uncipher :: Int -> String -> String
uncipher k = cipher (-k)
 
tr :: Char -> Int -> Char -> Char
tr base offset char = chr $ ord base + (ord char - ord base + offset) `mod` 26

main :: IO ()
main = putStrLn $ uncipher 1 "tufqifo.n.ejfim@hnbjm.dpn"

# Generate contact information for Stephen Diehl
# http://www.stephendiehl.com
# x86-64 only

main:
    subq	$8, %rsp
    movl	$email, %esi
    movl	$fmt, %edi
    call	printf
    addq	$8, %rsp
    ret

fmt:
    .string	"%s"
    .globl	main
    .type	main, @function

metadata:
    .data
    .align 16

email:
    .byte	115
    .byte	116
    .byte	101
    .byte	112
    .byte	104
    .byte	101
    .byte	110
    .byte	46
    .byte	109
    .byte	46
    .byte	100
    .byte	105
    .byte	101
    .byte	104
    .byte	108
    .byte	64
    .byte	103
    .byte	109
    .byte	97
    .byte	105
    .byte	108
    .byte	46
    .byte	99
    .byte	111
    .byte	109
    .byte	10

# Generate contact information for Stephen Diehl
# http://www.stephendiehl.com

import os
import sys
import numpy
import string

if sys.version > '3':
    strl = str
else:
    strl = string

EMAIL = """
\xcd\xce\xbf\xca\xc2\xbf\xc8.\xc7.\xbe\xc3\xbf\xc2\xc6@\xc1\xc7\xbb\xc3\xc6.\xbd\xc9\xc7
"""

y = string.ascii_letters
n = len(y)
M = numpy.identity(n, dtype=numpy.int32)
M[:n, n-1] = 1

a = numpy.array(list(map(ord, y)), dtype=numpy.int32)
x = ''.join(map(chr, numpy.dot(M, a)))
uncipher = strl.maketrans(x,y)

print( strl.translate(EMAIL, uncipher) )