site:pinterest.com & intext:@gmail.com

module Morse where
	xAbc = zip (['a'..'z']++['0'..'9']++".,?-!:;()=$@_+~# '")([".- ", "-... ", "-.-. ", "-.. ", ". ","..-. ", "--. ", ".... ", ".. ", ".--- ", "-.- ", ".-.. ", "-- ", "-. ", "--- ", ".--. ", "--.- ", ".-. ", "... ", "- ", "..- ", "...- ",".-- ", "-..- ", "-.-- ", "--.. ", "----- ",".---- ", "..--- ", "...-- ", "....- ", "..... ", "-.... ", "--... ","---.. ", "----. ", ".-.-.- ", "--..-- ", "..--.. ", "-....- ", "-.-.-- ", "---... ", "-.-.-. ", "-.--. ", "-.--.- ", "-...- ", "...-..- ", ".--.-. ","..--.- ", ".-.-. ", ".-... ", "...-.- ", "/ ", ".----. "])
	findPos list elt = [index | (index, e) <- zip [0..] list, e == elt]
	
	xEnc xs = [snd (xAbc !! (x !! 0))| x <- [findPos ([fst (xAbc !! z) | z <- [0..length xAbc]]) x | x <- xs]]
	xDec xs = [fst (xAbc !! (x !! 0))| x <- [findPos ([snd (xAbc !! z) | z <- [0..length xAbc]]) x | x <- xs]]

*Morse> xEnc "hola"
[".... ","--- ",".-.. ",".- "]
*Morse> xDec [".... ","--- ",".-.. ",".- "]
"hola"

module Cesar where
	import Data.Char
	xEnc :: String -> Int -> String
	xEnc z y = [chr ((ord x + y) `mod` 256) | x <- z]

	xDec :: String -> Int -> String
	xDec z y = [chr ((ord x - y) `mod` 256) | x <- z]

module Vigenere where
	import Data.Char
	
	xEnc :: String -> Int -> String
	xEnc xs ys = [chr ((fst(x) + snd(x)) `mod` 256)| x <- zip [ord x | x <- xs] [ord y | y <- ys]]
	
	xDec :: String -> Int -> String
	xDec xs ys = [chr ((fst(x) - snd(x)) `mod` 256)| x <- zip [ord x | x <- xs] [ord y | y <- ys]]

sReplace [] _ _ = []
sReplace sText nText final = if take (length nText) sText == nText
                        then final ++ (sReplace (drop (length nText) sText) nText final)
                       else [head sText] ++ (sReplace (tail sText) nText final)

if drive_bitmask == 1:

if drive_bitmask:#True

;Script for reverse strings

segment .data
	; text to print
	output1 db 'Reversed: ', 0
	len_output1 equ $-output1
	
	
segment .bss
	;MAX LIMIT 50 bytes, 50 chars...
	msg resb 50
	lmsg resb 50
	
	;creating 2 counters
	counter resb 2
	counter2 resb 2
	
segment .text
	
	global _start
	_start:
		mov eax, 3 					;sys_read
		mov ebx, 0
		
		mov ecx, msg 				;leyendo input
		mov byte [counter], 0x30	;counter as 0
		mov byte [counter2], 0x30	;counter as 0
		mov edx, 50				
		mov esi, lmsg
		int 0x80 					;call kernel
		
		
	_loop:
		cmp byte [ecx], 0x00		;comparing [ecx] 
		je _reverse					;jumping to reverse function
		inc ecx
		inc byte [counter]
		inc byte [counter2]
		jmp _loop					;repeating
		
		
	_reverse:
		cmp byte [counter2], 0x30	;comparing counter2
		je _output					;jumping to output function
		mov al, [ecx-1]				;last letter of msg
		mov [esi], al				;operation origin
		
		dec byte [counter2]			;counter2 - 1
		dec ecx						;ecx(msg) - 1
		inc esi						;esi + 1
		jmp _reverse				;repeating
		
		
	_output:
		int 0x80					;call kernel
		mov eax, 4					;sys_write
		mov ebx, 1					;stdin
		mov ecx, output1			;printing output
		mov edx, len_output1		;length of msg
		
		int 0x80
		mov eax, 4
		mov ebx, 1
		mov byte [esi+1], 0xA
		mov ecx, lmsg
		mov edx, 50d
		int 0x80
		
		mov eax, 1					;sys_exit
		int 0x80

import string
xAbc = string.ascii_lowercase + '-'

def solitario(texto, ristra, opt):
    nText = [xAbc.find(x) + 1 for x in texto.lower()]
    nRistra = [xAbc.find(x) + 1 for x in ristra.lower()]
   
    if opt == 1:
        print "".join([xAbc[x - 1].replace('-', ' ') for x in [(nText[x] + nRistra[x]) % 26 for x in range(len(texto))]])

    elif opt == 0:
        print "".join([xAbc[x - 1].replace('-', ' ') for x in [(nText[x] - nRistra[x]) % 26 for x in range(len(texto))]])
       
#encoded output -> oexwa khqtw
#decoded output -> donot usepc