+/* --- @twofish_init@ --- *
+ *
+ * Arguments: @twofish_ctx *k@ = pointer to key block to fill in
+ * @const void *buf@ = pointer to buffer of key material
+ * @size_t sz@ = size of key material
+ *
+ * Returns: ---
+ *
+ * Use: Initializes a Twofish key buffer. Twofish accepts key sizes
+ * of up to 256 bits (32 bytes).
+ */
+
+void twofish_init(twofish_ctx *k, const void *buf, size_t sz)
+{
+ static const twofish_fk fk = { { 0 } };
+ twofish_initfk(k, buf, sz, &fk);
+}
+
+/* --- @twofish_fkinit@ --- *
+ *
+ * Arguments: @twofish_fk *fk@ = pointer to family key block
+ * @const void *buf@ = pointer to buffer of key material
+ * @size_t sz@ = size of key material
+ *
+ * Returns: ---
+ *
+ * Use: Initializes a family-key buffer. This implementation allows
+ * family keys of any size acceptable to the Twofish algorithm.
+ */
+
+void twofish_fkinit(twofish_fk *fk, const void *buf, size_t sz)
+{
+ twofish_ctx k;
+ uint32 pt[4], ct[4];
+ const octet *kk;
+ unsigned i;
+
+ twofish_init(&k, buf, sz);
+
+ for (i = 0; i < 4; i++) pt[i] = (uint32)-1;
+ twofish_eblk(&k, pt, fk->t0 + 4);
+
+ kk = buf; sz /= 4;
+ for (i = 0; i < sz; i++) { fk->t0[i] = LOAD32_L(kk); kk += 4; }
+
+ for (i = 0; i < 4; i++) pt[i] = 0; twofish_eblk(&k, pt, ct);
+ for (i = 0; i < 4; i++) STORE32_L(fk->t1 + i * 4, ct[i]);
+ pt[0] = 1; twofish_eblk(&k, pt, ct);
+ for (i = 0; i < 4; i++) STORE32_L(fk->t1 + 4 + i * 4, ct[i]);
+
+ pt[0] = 2; twofish_eblk(&k, pt, fk->t23 + 0);
+ pt[0] = 3; twofish_eblk(&k, pt, fk->t23 + 4);
+ pt[0] = 4; twofish_eblk(&k, pt, ct);
+ fk->t4[0] = ct[0]; fk->t4[1] = ct[1];
+
+ BURN(k);
+}
+