From fe2f6c33d628c9db515b437b4244aec870524fcb Mon Sep 17 00:00:00 2001
From: Vincent Hanquez <vincent@snarc.org>
Date: Fri, 10 Apr 2015 07:39:56 +0100
Subject: [PATCH] add packed representation of some of the list.

---
 Crypto/Cipher/DES/Primitive.hs | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/Crypto/Cipher/DES/Primitive.hs b/Crypto/Cipher/DES/Primitive.hs
index 690a156..0abb35a 100644
--- a/Crypto/Cipher/DES/Primitive.hs
+++ b/Crypto/Cipher/DES/Primitive.hs
@@ -48,12 +48,27 @@ initial_permutation mb = map ((!!) mb) i
             56, 48, 40, 32, 24, 16,  8, 0, 58, 50, 42, 34, 26, 18, 10, 2,
             60, 52, 44, 36, 28, 20, 12, 4, 62, 54, 46, 38, 30, 22, 14, 6]
 
+{-
+"\x39\x31\x29\x21\x19\x11\x09\x01\x3b\x33\x2b\x23\x1b\x13\
+\\x0b\x03\x3d\x35\x2d\x25\x1d\x15\x0d\x05\x3f\x37\x2f\x27\
+\\x1f\x17\x0f\x07\x38\x30\x28\x20\x18\x10\x08\x00\x3a\x32\
+\\x2a\x22\x1a\x12\x0a\x02\x3c\x34\x2c\x24\x1c\x14\x0c\x04\
+\\x3e\x36\x2e\x26\x1e\x16\x0e\x06"
+-}
+
 key_transformation :: Bits64 -> Bits56
 key_transformation kb = map ((!!) kb) i
  where i = [56, 48, 40, 32, 24, 16,  8,  0, 57, 49, 41, 33, 25, 17,
              9,  1, 58, 50, 42, 34, 26, 18, 10,  2, 59, 51, 43, 35,
             62, 54, 46, 38, 30, 22, 14,  6, 61, 53, 45, 37, 29, 21,
             13,  5, 60, 52, 44, 36, 28, 20, 12,  4, 27, 19, 11,  3]
+{-
+"\x38\x30\x28\x20\x18\x10\x08\x00\x39\x31\x29\x21\x19\x11\
+\\x09\x01\x3a\x32\x2a\x22\x1a\x12\x0a\x02\x3b\x33\x2b\x23\
+\\x3e\x36\x2e\x26\x1e\x16\x0e\x06\x3d\x35\x2d\x25\x1d\x15\
+\\x0d\x05\x3c\x34\x2c\x24\x1c\x14\x0c\x04\x1b\x13\x0b\x03"
+-}
+
 
 des_enc :: Block -> Key -> Block
 des_enc = do_des [1,2,4,6,8,10,12,14,15,17,19,21,23,25,27,28]