--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/pk/dsa/dsa_import.c	Sun May 08 06:36:47 2005 +0000
@@ -0,0 +1,71 @@
+/* LibTomCrypt, modular cryptographic library -- Tom St Denis
+ *
+ * LibTomCrypt is a library that provides various cryptographic
+ * algorithms in a highly modular and flexible manner.
+ *
+ * The library is free for all purposes without any express
+ * guarantee it works.
+ *
+ * Tom St Denis, [email protected], http://libtomcrypt.org
+ */
+#include "tomcrypt.h"
+
+/**
+   @file dsa_import.c
+   DSA implementation, import a DSA key, Tom St Denis
+*/
+
+#ifdef MDSA
+
+/**
+   Import a DSA key 
+   @param in       The binary packet to import from
+   @param inlen    The length of the binary packet
+   @param key      [out] Where to store the imported key
+   @return CRYPT_OK if successful, upon error this function will free all allocated memory
+*/
+int dsa_import(const unsigned char *in, unsigned long inlen, dsa_key *key)
+{
+   unsigned long x, y;
+   int           err;
+
+   LTC_ARGCHK(in  != NULL);
+   LTC_ARGCHK(key != NULL);
+
+   /* check length */
+   if ((1+2+PACKET_SIZE) > inlen) {
+      return CRYPT_INVALID_PACKET;
+   }
+
+   /* check type */
+   if ((err = packet_valid_header((unsigned char *)in, PACKET_SECT_DSA, PACKET_SUB_KEY)) != CRYPT_OK) {
+      return err;
+   }
+   y = PACKET_SIZE;
+
+   /* init key */
+   if (mp_init_multi(&key->p, &key->g, &key->q, &key->x, &key->y, NULL) != MP_OKAY) {
+      return CRYPT_MEM;
+   }
+
+   /* read type/qord */
+   key->type = in[y++];
+   key->qord = ((unsigned)in[y]<<8)|((unsigned)in[y+1]);
+   y += 2;
+
+   /* input publics */
+   INPUT_BIGNUM(&key->g,in,x,y, inlen);
+   INPUT_BIGNUM(&key->p,in,x,y, inlen);
+   INPUT_BIGNUM(&key->q,in,x,y, inlen);
+   INPUT_BIGNUM(&key->y,in,x,y, inlen);
+   if (key->type == PK_PRIVATE) {
+      INPUT_BIGNUM(&key->x,in,x,y, inlen);
+   }
+
+   return CRYPT_OK;
+error: 
+   mp_clear_multi(&key->p, &key->g, &key->q, &key->x, &key->y, NULL);
+   return err;
+}
+
+#endif