Funny enough - How I recovered my lost Keepass password (Windows version)

readme.md

How to

I needed some long-forgotten pass phrase only knowing it's stored within my Keepass database (~\Documents\MyKeepasses.kdbx below). I remembered vaguely it was anything around "auntie erna" but with variations on the letters more or less anywhere, see ll. 4 in leeter.hs (The source for leeter.hs) below. Luckily there's KeeCracker somewhere:

echo "Auntie$erna" | runhaskell ~\leeter.hs | ~\bin\bundles\KeeCracker\KeeCracker.exe -w - '~\Documents\MyKeepasses.kdbx'

Take home message in the 2nd place: pass phrases can never be safe enough

leeter.hs

import Data.Char
import Data.List

-- here the potential variations/mutations on letters are stored/encoded
leets = ["oO0*;%&","aA4@;%&","lL1!;%&", "eE3;%&", "tT7;%&", "hHkK;%&", "iI1!;%&", "sS&5;%"]

leetchar c [] = nub [c, toUpper c, toLower c]
leetchar c (l:ls) = if c `elem` l then l else leetchar c ls

leet [] = return []
leet (x:xs) = do { p <- leetchar x leets ; n <- leet xs ; return $ p : n }

main :: IO ()
main = do { cs <- getContents ; mapM_ putStrLn (concatMap leet (lines cs)) }