Skip to content

Instantly share code, notes, and snippets.

@KWMalik
KWMalik / Main.hs
Created July 30, 2012 20:04 — forked from supki/Main.hs
Cryptography coursera class exercise #4.
{-# LANGUAGE UnicodeSyntax #-}
module Main where
import Control.Applicative ((<$>))
import Control.Monad (foldM, join)
import qualified Data.Bits as Bits
import Data.List (genericReplicate, inits)
import Data.Monoid ((<>))
import Data.Word (Word8)
import Text.Printf (printf)
@KWMalik
KWMalik / Main.hs
Created July 30, 2012 20:04 — forked from supki/Main.hs
Cryptography coursera class exercise #3.
{-# LANGUAGE UnicodeSyntax #-}
import Control.Applicative ((<$>))
import Data.Monoid (mempty, (<>))
import Text.Printf (printf)
import Crypto.Hash.SHA256 (hash)
import Data.ByteString (ByteString)
import qualified Data.ByteString as B
@KWMalik
KWMalik / Main.hs
Created July 30, 2012 20:04 — forked from supki/Main.hs
Cryptography coursera class exercise #2.
{-# LANGUAGE UnicodeSyntax #-}
import Control.Applicative ((<$>))
import Control.Monad ((<=<))
import Crypto.Cipher.AES (Key, IV(..), decryptCBC, decryptCTR, initKey)
import Data.ByteString (ByteString)
import qualified Data.ByteString as B
@KWMalik
KWMalik / Main.hs
Created July 30, 2012 20:03 — forked from supki/Main.hs
Cryptography coursera class exercise #1.
{-# LANGUAGE UnicodeSyntax #-}
module Main where
import Control.Applicative ((<$>))
import Control.Monad (forM_, when)
import Control.Monad.State (execState, modify)
import Data.Bits (Bits, xor)
import Data.Char (chr, isAlpha)
import Data.List (maximumBy, group, sort, zip4)
import Data.List.Split (splitEvery)
@KWMalik
KWMalik / toc.html
Created July 30, 2012 20:02 — forked from avk/toc.html
SaaS book revised TOC
<div data-role="page" id="toc">
<div data-role="content">
<h2 class="likechapterhead">Contents</h2>
<!-- FOREWORD CHAPTER (i.e. everything between #toc and #chapter_1) -->
<div class="chapter_contents">
<h2>
<a class="chapter_title" href="#chapter_0">
Foreword
</a>