+static unsigned char *rsa2_public_blob(void *key, int *len) {
+ struct RSAKey *rsa = (struct RSAKey *)key;
+ int elen, mlen, bloblen;
+ int i;
+ unsigned char *blob, *p;
+
+ elen = (ssh1_bignum_bitcount(rsa->exponent)+8)/8;
+ mlen = (ssh1_bignum_bitcount(rsa->modulus)+8)/8;
+
+ /*
+ * string "ssh-rsa", mpint exp, mpint mod. Total 19+elen+mlen.
+ * (three length fields, 12+7=19).
+ */
+ bloblen = 19+elen+mlen;
+ blob = smalloc(bloblen);
+ p = blob;
+ PUT_32BIT(p, 7); p += 4;
+ memcpy(p, "ssh-rsa", 7); p += 7;
+ PUT_32BIT(p, elen); p += 4;
+ for (i = elen; i-- ;) *p++ = bignum_byte(rsa->exponent, i);
+ PUT_32BIT(p, mlen); p += 4;
+ for (i = mlen; i-- ;) *p++ = bignum_byte(rsa->modulus, i);
+ assert(p == blob + bloblen);
+ *len = bloblen;
+ return blob;
+}
+
+static unsigned char *rsa2_private_blob(void *key, int *len) {
+ struct RSAKey *rsa = (struct RSAKey *)key;
+ int dlen, plen, qlen, ulen, bloblen;
+ int i;
+ unsigned char *blob, *p;
+
+ dlen = (ssh1_bignum_bitcount(rsa->private_exponent)+8)/8;
+ plen = (ssh1_bignum_bitcount(rsa->p)+8)/8;
+ qlen = (ssh1_bignum_bitcount(rsa->q)+8)/8;
+ ulen = (ssh1_bignum_bitcount(rsa->iqmp)+8)/8;
+
+ /*
+ * mpint private_exp, mpint p, mpint q, mpint iqmp. Total 16 +
+ * sum of lengths.
+ */
+ bloblen = 16+dlen+plen+qlen+ulen;
+ blob = smalloc(bloblen);
+ p = blob;
+ PUT_32BIT(p, dlen); p += 4;
+ for (i = dlen; i-- ;) *p++ = bignum_byte(rsa->private_exponent, i);
+ PUT_32BIT(p, plen); p += 4;
+ for (i = plen; i-- ;) *p++ = bignum_byte(rsa->p, i);
+ PUT_32BIT(p, qlen); p += 4;
+ for (i = qlen; i-- ;) *p++ = bignum_byte(rsa->q, i);
+ PUT_32BIT(p, ulen); p += 4;
+ for (i = ulen; i-- ;) *p++ = bignum_byte(rsa->iqmp, i);
+ assert(p == blob + bloblen);
+ *len = bloblen;
+ return blob;
+}
+
+static void *rsa2_createkey(unsigned char *pub_blob, int pub_len,
+ unsigned char *priv_blob, int priv_len) {
+ struct RSAKey *rsa;
+ char *pb = (char *)priv_blob;
+
+ rsa = rsa2_newkey((char *)pub_blob, pub_len);
+ rsa->private_exponent = getmp(&pb, &priv_len);
+ rsa->p = getmp(&pb, &priv_len);
+ rsa->q = getmp(&pb, &priv_len);
+ rsa->iqmp = getmp(&pb, &priv_len);
+
+ return rsa;
+}
+