diff --git a/ChangeLog b/ChangeLog
index 399eeee98df2973711a3d39897ac020e8b7e5b2d..9fddab7f2cf810564db4f9a469dfb92fdeaccd63 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,21 @@
 2013-05-22  Niels Möller  <nisse@lysator.liu.se>
 
+	* Makefile.in (nettle_SOURCES): Added aes-invert-internal.c and
+	aes-set-key-internal.c.
+
+	* aes.h (AES128_KEY_SIZE, _AES128_ROUNDS): New constants.
+	Similarly also for aes192 and aes256.
+
+	* aes-internal.h: Declare new functions.
+
+	* aes-set-key-internal.c (_aes_set_key): New file and funxtion
+	extracted from aes_set_encrypt_key.
+	* aes-set-encrypt-key.c (aes_set_encrypt_key): Use _aes_set_key.
+
+	* aes-invert-internal.c (_aes_invert): New file and function,
+	extracted from aes_invert_key.
+	* aes-set-decrypt-key.c (aes_invert_key): Use _aes_invert.
+
 	* arm/v6/aes-encrypt-internal.asm: Adapted to new interface.
 	Unfortunately, 4% slowdown on Cortex-A9, for unknown reason.
 	* arm/v6/aes-decrypt-internal.asm: Likewise.
diff --git a/Makefile.in b/Makefile.in
index 2b4f3e5fed81f71c8a93d4b87e9cf26490ab62f2..05857f7a7da307f2e38c8a2acdbc69c864f915fe 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -63,6 +63,7 @@ all-here: $(TARGETS) $(DOCTARGETS)
 
 nettle_SOURCES = aes-decrypt-internal.c aes-decrypt.c \
 		 aes-encrypt-internal.c aes-encrypt.c aes-encrypt-table.c \
+		 aes-invert-internal.c aes-set-key-internal.c \
 		 aes-set-encrypt-key.c aes-set-decrypt-key.c aes-meta.c \
 		 arcfour.c arcfour-crypt.c arcfour-meta.c \
 		 arctwo.c arctwo-meta.c gosthash94-meta.c \
diff --git a/aes-internal.h b/aes-internal.h
index 51fa9eb2582ed991e02f49ff311500e0c44c0d75..6c1560c2fd1ac594d8afd937070772eac379ab65 100644
--- a/aes-internal.h
+++ b/aes-internal.h
@@ -29,6 +29,8 @@
 #include "aes.h"
 
 /* Name mangling */
+#define _aes_set_key _nettle_aes_set_key
+#define _aes_invert _nettle_aes_invert
 #define _aes_encrypt _nettle_aes_encrypt
 #define _aes_decrypt _nettle_aes_decrypt
 #define _aes_encrypt_table _nettle_aes_encrypt_table
@@ -50,6 +52,13 @@ struct aes_table
   uint32_t table[AES_TABLE_SIZE][0x100];
 };
 
+void
+_aes_set_key(unsigned nr, unsigned nk,
+	     uint32_t *subkeys, const uint8_t *key);
+
+void
+_aes_invert(unsigned rounds, uint32_t *dst, const uint32_t *src);
+
 void
 _aes_encrypt(unsigned rounds, const uint32_t *keys,
 	     const struct aes_table *T,
diff --git a/aes-invert-internal.c b/aes-invert-internal.c
new file mode 100644
index 0000000000000000000000000000000000000000..0ee4a38ebab7cdb4e7f9d96d4c8c2296d39b9975
--- /dev/null
+++ b/aes-invert-internal.c
@@ -0,0 +1,156 @@
+/* aes-invert-internal.c
+ *
+ * Inverse key setup for the aes/rijndael block cipher.
+ */
+
+/* nettle, low-level cryptographics library
+ *
+ * Copyright (C) 2000, 2001, 2002, Rafael R. Sevilla, Niels Möller
+ * Copyright (C) 2013 Niels Möller
+ *  
+ * The nettle library is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU Lesser General Public License as published by
+ * the Free Software Foundation; either version 2.1 of the License, or (at your
+ * option) any later version.
+ * 
+ * The nettle library is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+ * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
+ * License for more details.
+ * 
+ * You should have received a copy of the GNU Lesser General Public License
+ * along with the nettle library; see the file COPYING.LIB.  If not, write to
+ * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+ * MA 02111-1301, USA.
+ */
+
+/* Originally written by Rafael R. Sevilla <dido@pacific.net.ph> */
+
+#if HAVE_CONFIG_H
+# include "config.h"
+#endif
+
+#include "aes-internal.h"
+
+#include "macros.h"
+
+/* NOTE: We don't include rotated versions of the table. */
+static const uint32_t mtable[0x100] =
+{
+  0x00000000,0x0b0d090e,0x161a121c,0x1d171b12,
+  0x2c342438,0x27392d36,0x3a2e3624,0x31233f2a,
+  0x58684870,0x5365417e,0x4e725a6c,0x457f5362,
+  0x745c6c48,0x7f516546,0x62467e54,0x694b775a,
+  0xb0d090e0,0xbbdd99ee,0xa6ca82fc,0xadc78bf2,
+  0x9ce4b4d8,0x97e9bdd6,0x8afea6c4,0x81f3afca,
+  0xe8b8d890,0xe3b5d19e,0xfea2ca8c,0xf5afc382,
+  0xc48cfca8,0xcf81f5a6,0xd296eeb4,0xd99be7ba,
+  0x7bbb3bdb,0x70b632d5,0x6da129c7,0x66ac20c9,
+  0x578f1fe3,0x5c8216ed,0x41950dff,0x4a9804f1,
+  0x23d373ab,0x28de7aa5,0x35c961b7,0x3ec468b9,
+  0x0fe75793,0x04ea5e9d,0x19fd458f,0x12f04c81,
+  0xcb6bab3b,0xc066a235,0xdd71b927,0xd67cb029,
+  0xe75f8f03,0xec52860d,0xf1459d1f,0xfa489411,
+  0x9303e34b,0x980eea45,0x8519f157,0x8e14f859,
+  0xbf37c773,0xb43ace7d,0xa92dd56f,0xa220dc61,
+  0xf66d76ad,0xfd607fa3,0xe07764b1,0xeb7a6dbf,
+  0xda595295,0xd1545b9b,0xcc434089,0xc74e4987,
+  0xae053edd,0xa50837d3,0xb81f2cc1,0xb31225cf,
+  0x82311ae5,0x893c13eb,0x942b08f9,0x9f2601f7,
+  0x46bde64d,0x4db0ef43,0x50a7f451,0x5baafd5f,
+  0x6a89c275,0x6184cb7b,0x7c93d069,0x779ed967,
+  0x1ed5ae3d,0x15d8a733,0x08cfbc21,0x03c2b52f,
+  0x32e18a05,0x39ec830b,0x24fb9819,0x2ff69117,
+  0x8dd64d76,0x86db4478,0x9bcc5f6a,0x90c15664,
+  0xa1e2694e,0xaaef6040,0xb7f87b52,0xbcf5725c,
+  0xd5be0506,0xdeb30c08,0xc3a4171a,0xc8a91e14,
+  0xf98a213e,0xf2872830,0xef903322,0xe49d3a2c,
+  0x3d06dd96,0x360bd498,0x2b1ccf8a,0x2011c684,
+  0x1132f9ae,0x1a3ff0a0,0x0728ebb2,0x0c25e2bc,
+  0x656e95e6,0x6e639ce8,0x737487fa,0x78798ef4,
+  0x495ab1de,0x4257b8d0,0x5f40a3c2,0x544daacc,
+  0xf7daec41,0xfcd7e54f,0xe1c0fe5d,0xeacdf753,
+  0xdbeec879,0xd0e3c177,0xcdf4da65,0xc6f9d36b,
+  0xafb2a431,0xa4bfad3f,0xb9a8b62d,0xb2a5bf23,
+  0x83868009,0x888b8907,0x959c9215,0x9e919b1b,
+  0x470a7ca1,0x4c0775af,0x51106ebd,0x5a1d67b3,
+  0x6b3e5899,0x60335197,0x7d244a85,0x7629438b,
+  0x1f6234d1,0x146f3ddf,0x097826cd,0x02752fc3,
+  0x335610e9,0x385b19e7,0x254c02f5,0x2e410bfb,
+  0x8c61d79a,0x876cde94,0x9a7bc586,0x9176cc88,
+  0xa055f3a2,0xab58faac,0xb64fe1be,0xbd42e8b0,
+  0xd4099fea,0xdf0496e4,0xc2138df6,0xc91e84f8,
+  0xf83dbbd2,0xf330b2dc,0xee27a9ce,0xe52aa0c0,
+  0x3cb1477a,0x37bc4e74,0x2aab5566,0x21a65c68,
+  0x10856342,0x1b886a4c,0x069f715e,0x0d927850,
+  0x64d90f0a,0x6fd40604,0x72c31d16,0x79ce1418,
+  0x48ed2b32,0x43e0223c,0x5ef7392e,0x55fa3020,
+  0x01b79aec,0x0aba93e2,0x17ad88f0,0x1ca081fe,
+  0x2d83bed4,0x268eb7da,0x3b99acc8,0x3094a5c6,
+  0x59dfd29c,0x52d2db92,0x4fc5c080,0x44c8c98e,
+  0x75ebf6a4,0x7ee6ffaa,0x63f1e4b8,0x68fcedb6,
+  0xb1670a0c,0xba6a0302,0xa77d1810,0xac70111e,
+  0x9d532e34,0x965e273a,0x8b493c28,0x80443526,
+  0xe90f427c,0xe2024b72,0xff155060,0xf418596e,
+  0xc53b6644,0xce366f4a,0xd3217458,0xd82c7d56,
+  0x7a0ca137,0x7101a839,0x6c16b32b,0x671bba25,
+  0x5638850f,0x5d358c01,0x40229713,0x4b2f9e1d,
+  0x2264e947,0x2969e049,0x347efb5b,0x3f73f255,
+  0x0e50cd7f,0x055dc471,0x184adf63,0x1347d66d,
+  0xcadc31d7,0xc1d138d9,0xdcc623cb,0xd7cb2ac5,
+  0xe6e815ef,0xede51ce1,0xf0f207f3,0xfbff0efd,
+  0x92b479a7,0x99b970a9,0x84ae6bbb,0x8fa362b5,
+  0xbe805d9f,0xb58d5491,0xa89a4f83,0xa397468d,
+};
+
+#define MIX_COLUMN(T, key) do { \
+    uint32_t _k, _nk, _t;	\
+    _k = (key);			\
+    _nk = T[_k & 0xff];		\
+    _k >>= 8;			\
+    _t = T[_k & 0xff];		\
+    _nk ^= ROTL32(8, _t);	\
+    _k >>= 8;			\
+    _t = T[_k & 0xff];		\
+    _nk ^= ROTL32(16, _t);	\
+    _k >>= 8;			\
+    _t = T[_k & 0xff];		\
+    _nk ^= ROTL32(24, _t);	\
+    (key) = _nk;		\
+  } while(0)
+  
+
+#define SWAP(a, b) \
+do { uint32_t t_swap = (a); (a) = (b); (b) = t_swap; } while(0)
+
+void
+_aes_invert(unsigned rounds, uint32_t *dst, const uint32_t *src)
+{
+  unsigned i;
+
+  /* Reverse the order of subkeys, in groups of 4. */
+  /* FIXME: Instead of reordering the subkeys, change the access order
+     of aes_decrypt, since it's a separate function anyway? */
+  if (src == dst)
+    {
+      unsigned j, k;
+
+      for (i = 0, j = rounds * 4;
+	   i < j;
+	   i += 4, j -= 4)
+	for (k = 0; k<4; k++)
+	  SWAP(dst[i+k], dst[j+k]);
+    }
+  else
+    {
+      unsigned k;
+
+      for (i = 0; i <= rounds * 4; i += 4)
+	for (k = 0; k < 4; k++)
+	  dst[i+k] = src[rounds * 4 - i + k];
+    }
+
+  /* Transform all subkeys but the first and last. */
+  for (i = 4; i < 4 * rounds; i++)
+    MIX_COLUMN (mtable, dst[i]);
+}
diff --git a/aes-set-decrypt-key.c b/aes-set-decrypt-key.c
index f8e8ef71647afe1e520bec90d0332057d3befba4..84a644bac7d391e5aef948cab511ac92742139e3 100644
--- a/aes-set-decrypt-key.c
+++ b/aes-set-decrypt-key.c
@@ -6,6 +6,7 @@
 /* nettle, low-level cryptographics library
  *
  * Copyright (C) 2000, 2001, 2002 Rafael R. Sevilla, Niels Möller
+ * Copyright (C) 2013 Niels Möller
  *  
  * The nettle library is free software; you can redistribute it and/or modify
  * it under the terms of the GNU Lesser General Public License as published by
@@ -31,132 +32,12 @@
 
 #include "aes-internal.h"
 
-#include "macros.h"
-
-/* NOTE: We don't include rotated versions of the table. */
-static const uint32_t mtable[0x100] =
-{
-  0x00000000,0x0b0d090e,0x161a121c,0x1d171b12,
-  0x2c342438,0x27392d36,0x3a2e3624,0x31233f2a,
-  0x58684870,0x5365417e,0x4e725a6c,0x457f5362,
-  0x745c6c48,0x7f516546,0x62467e54,0x694b775a,
-  0xb0d090e0,0xbbdd99ee,0xa6ca82fc,0xadc78bf2,
-  0x9ce4b4d8,0x97e9bdd6,0x8afea6c4,0x81f3afca,
-  0xe8b8d890,0xe3b5d19e,0xfea2ca8c,0xf5afc382,
-  0xc48cfca8,0xcf81f5a6,0xd296eeb4,0xd99be7ba,
-  0x7bbb3bdb,0x70b632d5,0x6da129c7,0x66ac20c9,
-  0x578f1fe3,0x5c8216ed,0x41950dff,0x4a9804f1,
-  0x23d373ab,0x28de7aa5,0x35c961b7,0x3ec468b9,
-  0x0fe75793,0x04ea5e9d,0x19fd458f,0x12f04c81,
-  0xcb6bab3b,0xc066a235,0xdd71b927,0xd67cb029,
-  0xe75f8f03,0xec52860d,0xf1459d1f,0xfa489411,
-  0x9303e34b,0x980eea45,0x8519f157,0x8e14f859,
-  0xbf37c773,0xb43ace7d,0xa92dd56f,0xa220dc61,
-  0xf66d76ad,0xfd607fa3,0xe07764b1,0xeb7a6dbf,
-  0xda595295,0xd1545b9b,0xcc434089,0xc74e4987,
-  0xae053edd,0xa50837d3,0xb81f2cc1,0xb31225cf,
-  0x82311ae5,0x893c13eb,0x942b08f9,0x9f2601f7,
-  0x46bde64d,0x4db0ef43,0x50a7f451,0x5baafd5f,
-  0x6a89c275,0x6184cb7b,0x7c93d069,0x779ed967,
-  0x1ed5ae3d,0x15d8a733,0x08cfbc21,0x03c2b52f,
-  0x32e18a05,0x39ec830b,0x24fb9819,0x2ff69117,
-  0x8dd64d76,0x86db4478,0x9bcc5f6a,0x90c15664,
-  0xa1e2694e,0xaaef6040,0xb7f87b52,0xbcf5725c,
-  0xd5be0506,0xdeb30c08,0xc3a4171a,0xc8a91e14,
-  0xf98a213e,0xf2872830,0xef903322,0xe49d3a2c,
-  0x3d06dd96,0x360bd498,0x2b1ccf8a,0x2011c684,
-  0x1132f9ae,0x1a3ff0a0,0x0728ebb2,0x0c25e2bc,
-  0x656e95e6,0x6e639ce8,0x737487fa,0x78798ef4,
-  0x495ab1de,0x4257b8d0,0x5f40a3c2,0x544daacc,
-  0xf7daec41,0xfcd7e54f,0xe1c0fe5d,0xeacdf753,
-  0xdbeec879,0xd0e3c177,0xcdf4da65,0xc6f9d36b,
-  0xafb2a431,0xa4bfad3f,0xb9a8b62d,0xb2a5bf23,
-  0x83868009,0x888b8907,0x959c9215,0x9e919b1b,
-  0x470a7ca1,0x4c0775af,0x51106ebd,0x5a1d67b3,
-  0x6b3e5899,0x60335197,0x7d244a85,0x7629438b,
-  0x1f6234d1,0x146f3ddf,0x097826cd,0x02752fc3,
-  0x335610e9,0x385b19e7,0x254c02f5,0x2e410bfb,
-  0x8c61d79a,0x876cde94,0x9a7bc586,0x9176cc88,
-  0xa055f3a2,0xab58faac,0xb64fe1be,0xbd42e8b0,
-  0xd4099fea,0xdf0496e4,0xc2138df6,0xc91e84f8,
-  0xf83dbbd2,0xf330b2dc,0xee27a9ce,0xe52aa0c0,
-  0x3cb1477a,0x37bc4e74,0x2aab5566,0x21a65c68,
-  0x10856342,0x1b886a4c,0x069f715e,0x0d927850,
-  0x64d90f0a,0x6fd40604,0x72c31d16,0x79ce1418,
-  0x48ed2b32,0x43e0223c,0x5ef7392e,0x55fa3020,
-  0x01b79aec,0x0aba93e2,0x17ad88f0,0x1ca081fe,
-  0x2d83bed4,0x268eb7da,0x3b99acc8,0x3094a5c6,
-  0x59dfd29c,0x52d2db92,0x4fc5c080,0x44c8c98e,
-  0x75ebf6a4,0x7ee6ffaa,0x63f1e4b8,0x68fcedb6,
-  0xb1670a0c,0xba6a0302,0xa77d1810,0xac70111e,
-  0x9d532e34,0x965e273a,0x8b493c28,0x80443526,
-  0xe90f427c,0xe2024b72,0xff155060,0xf418596e,
-  0xc53b6644,0xce366f4a,0xd3217458,0xd82c7d56,
-  0x7a0ca137,0x7101a839,0x6c16b32b,0x671bba25,
-  0x5638850f,0x5d358c01,0x40229713,0x4b2f9e1d,
-  0x2264e947,0x2969e049,0x347efb5b,0x3f73f255,
-  0x0e50cd7f,0x055dc471,0x184adf63,0x1347d66d,
-  0xcadc31d7,0xc1d138d9,0xdcc623cb,0xd7cb2ac5,
-  0xe6e815ef,0xede51ce1,0xf0f207f3,0xfbff0efd,
-  0x92b479a7,0x99b970a9,0x84ae6bbb,0x8fa362b5,
-  0xbe805d9f,0xb58d5491,0xa89a4f83,0xa397468d,
-};
-
-#define MIX_COLUMN(T, key) do { \
-    uint32_t _k, _nk, _t;	\
-    _k = (key);			\
-    _nk = T[_k & 0xff];		\
-    _k >>= 8;			\
-    _t = T[_k & 0xff];		\
-    _nk ^= ROTL32(8, _t);	\
-    _k >>= 8;			\
-    _t = T[_k & 0xff];		\
-    _nk ^= ROTL32(16, _t);	\
-    _k >>= 8;			\
-    _t = T[_k & 0xff];		\
-    _nk ^= ROTL32(24, _t);	\
-    (key) = _nk;		\
-  } while(0)
-  
-
-#define SWAP(a, b) \
-do { uint32_t t_swap = (a); (a) = (b); (b) = t_swap; } while(0)
-
 void
 aes_invert_key(struct aes_ctx *dst,
 	       const struct aes_ctx *src)
 {
-  unsigned rounds;
-  unsigned i;
-
-  rounds = src->rounds;
-
-  /* Reverse the order of subkeys, in groups of 4. */
-  /* FIXME: Instead of reordering the subkeys, change the access order
-     of aes_decrypt, since it's a separate function anyway? */
-  if (src == dst)
-    {
-      unsigned j, k;
-
-      for (i = 0, j = rounds * 4;
-	   i < j;
-	   i += 4, j -= 4)
-	for (k = 0; k<4; k++)
-	  SWAP(dst->keys[i+k], dst->keys[j+k]);
-    }
-  else
-    {
-      unsigned k;
-
-      dst->rounds = rounds;
-      for (i = 0; i <= rounds * 4; i += 4)
-	for (k = 0; k < 4; k++)
-	  dst->keys[i+k] = src->keys[rounds * 4 - i + k];
-    }
-
-  /* Transform all subkeys but the first and last. */
-  for (i = 4; i < 4 * rounds; i++)
-    MIX_COLUMN (mtable, dst->keys[i]);
+  _aes_invert (src->rounds, dst->keys, src->keys);
+  dst->rounds = src->rounds;
 }
 
 void
diff --git a/aes-set-encrypt-key.c b/aes-set-encrypt-key.c
index d96a8ebcb35537f5dfa844d317c81ad39c8de7f6..a3f20a13d9d557f788ae03955554e30200c616c6 100644
--- a/aes-set-encrypt-key.c
+++ b/aes-set-encrypt-key.c
@@ -6,6 +6,7 @@
 /* nettle, low-level cryptographics library
  *
  * Copyright (C) 2000, 2001, 2002 Rafael R. Sevilla, Niels Möller
+ * Copyright (C) 2013 Niels Möller
  *  
  * The nettle library is free software; you can redistribute it and/or modify
  * it under the terms of the GNU Lesser General Public License as published by
@@ -32,50 +33,28 @@
 #include <assert.h>
 
 #include "aes-internal.h"
-#include "macros.h"
 
 void
 aes_set_encrypt_key(struct aes_ctx *ctx,
 		    size_t keysize, const uint8_t *key)
 {
-  static const uint8_t rcon[10] = {
-    0x01,0x02,0x04,0x08,0x10,0x20,0x40,0x80,0x1b,0x36,
-  };
-  unsigned nk, nr, i, lastkey;
-  uint32_t temp;
-  const uint8_t *rp;
+  unsigned nk, nr;
 
   assert(keysize >= AES_MIN_KEY_SIZE);
   assert(keysize <= AES_MAX_KEY_SIZE);
   
   /* Truncate keysizes to the valid key sizes provided by Rijndael */
-  if (keysize == 32) {
+  if (keysize == AES256_KEY_SIZE) {
     nk = 8;
-    nr = 14;
-  } else if (keysize >= 24) {
+    nr = _AES256_ROUNDS;
+  } else if (keysize >= AES192_KEY_SIZE) {
     nk = 6;
-    nr = 12;
+    nr = _AES192_ROUNDS;
   } else { /* must be 16 or more */
     nk = 4;
-    nr = 10;
+    nr = _AES128_ROUNDS;
   }
 
-  lastkey = (AES_BLOCK_SIZE/4) * (nr + 1);
   ctx->rounds = nr;
-
-  for (i=0, rp = rcon; i<nk; i++)
-    ctx->keys[i] = LE_READ_UINT32(key + i*4);
-
-  for (i=nk; i<lastkey; i++)
-    {
-      temp = ctx->keys[i-1];
-      if (i % nk == 0)
-	temp = SUBBYTE(ROTL32(24, temp), aes_sbox) ^ *rp++;
-
-      else if (nk > 6 && (i%nk) == 4)
-	temp = SUBBYTE(temp, aes_sbox);
-
-      ctx->keys[i] = ctx->keys[i-nk] ^ temp;
-    }
+  _aes_set_key (nr, nk, ctx->keys, key);
 }
-  
diff --git a/aes-set-key-internal.c b/aes-set-key-internal.c
new file mode 100644
index 0000000000000000000000000000000000000000..710cabc9a003602752c839afcb22f8f21ca7af6f
--- /dev/null
+++ b/aes-set-key-internal.c
@@ -0,0 +1,63 @@
+/* aes-set-key-internal.c
+ *
+ * Key setup for the aes/rijndael block cipher.
+ */
+
+/* nettle, low-level cryptographics library
+ *
+ * Copyright (C) 2000, 2001, 2002 Rafael R. Sevilla, Niels Möller
+ * Copyright (C) 2013 Niels Möller
+ * 
+ * The nettle library is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU Lesser General Public License as published by
+ * the Free Software Foundation; either version 2.1 of the License, or (at your
+ * option) any later version.
+ * 
+ * The nettle library is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+ * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
+ * License for more details.
+ * 
+ * You should have received a copy of the GNU Lesser General Public License
+ * along with the nettle library; see the file COPYING.LIB.  If not, write to
+ * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+ * MA 02111-1301, USA.
+ */
+
+/* Originally written by Rafael R. Sevilla <dido@pacific.net.ph> */
+
+#if HAVE_CONFIG_H
+# include "config.h"
+#endif
+
+#include "aes-internal.h"
+#include "macros.h"
+
+void
+_aes_set_key(unsigned nr, unsigned nk,
+	     uint32_t *subkeys, const uint8_t *key)
+{
+  static const uint8_t rcon[10] = {
+    0x01,0x02,0x04,0x08,0x10,0x20,0x40,0x80,0x1b,0x36,
+  };
+  const uint8_t *rp;
+  unsigned lastkey, i;
+  uint32_t t;
+
+  lastkey = (AES_BLOCK_SIZE/4) * (nr + 1);
+  
+  for (i=0, rp = rcon; i<nk; i++)
+    subkeys[i] = LE_READ_UINT32(key + i*4);
+
+  for (i=nk; i<lastkey; i++)
+    {
+      t = subkeys[i-1];
+      if (i % nk == 0)
+	t = SUBBYTE(ROTL32(24, t), aes_sbox) ^ *rp++;
+
+      else if (nk > 6 && (i%nk) == 4)
+	t = SUBBYTE(t, aes_sbox);
+
+      subkeys[i] = subkeys[i-nk] ^ t;
+    }  
+}
diff --git a/aes.h b/aes.h
index d26c001370fb5c924a2e4301b2122c0c061a6d50..95f7aa5d8504c9d4a0de127ba6b3c742dfffcbc8 100644
--- a/aes.h
+++ b/aes.h
@@ -41,20 +41,24 @@ extern "C" {
 
 #define AES_BLOCK_SIZE 16
 
+#define AES128_KEY_SIZE 16
+#define AES192_KEY_SIZE 24
+#define AES256_KEY_SIZE 32
+#define _AES128_ROUNDS 10
+#define _AES192_ROUNDS 12
+#define _AES256_ROUNDS 14
+
 /* Variable key size between 128 and 256 bits. But the only valid
  * values are 16 (128 bits), 24 (192 bits) and 32 (256 bits). */
-#define AES_MIN_KEY_SIZE 16
-#define AES_MAX_KEY_SIZE 32
+#define AES_MIN_KEY_SIZE AES128_KEY_SIZE
+#define AES_MAX_KEY_SIZE AES256_KEY_SIZE
 
 #define AES_KEY_SIZE 32
 
-/* FIXME: Change to put nrounds first, to make it possible to use a
-   truncated ctx struct, with less subkeys, for the shorter key
-   sizes? */
 struct aes_ctx
 {
   unsigned rounds;  /* number of rounds to use for our key size */
-  uint32_t keys[60];  /* maximum size of key schedule */
+  uint32_t keys[4*(_AES256_ROUNDS + 1)];  /* maximum size of key schedule */
 };
 
 void