meithecatte

import Data.Semigroup

data Permutation = Permutation [Int] deriving (Eq, Show)

permute :: Permutation -> [a] -> [a]
permute (Permutation p) xs = (xs !!) <$> p

instance Semigroup Permutation where
    a <> Permutation b = Permutation $ permute a b
    stimes = stimesMonoid

meithecatte

from pwn import *
from itertools import cycle
import string
import codecs
import traceback

MORSE = {
    '.-': 'A',
    '-...': 'B',
    '-.-.': 'C',

meithecatte

[oxfoo1m3][crackme] is a relatively simple crackme with elements of anti-debugging, anti-disassembly, and, as the author put it, anti-libbfd.

I created a new Vagrant virtual machine, and after a bit of fiddling with shared folders, ran the binary:

vagrant@debian9:/vagrant/oxfoo1m3$ ./oxfoo1m3
oxfoo1m3 started ;]
3nt4 p455w0rD:
ABCDABCDABCD