From 617b162ab2523475c808f00f5bcff001be4952cb Mon Sep 17 00:00:00 2001
From: Assar Westerlund <assar@sics.se>
Date: Sun, 7 Sep 1997 23:25:30 +0000
Subject: [PATCH] seal and unseal key at appropriate places

git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@3415 ec53bebd-3082-4978-b11e-865c3cabbd6b
---
 admin/util.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/admin/util.c b/admin/util.c
index 51a477926..9237834c2 100644
--- a/admin/util.c
+++ b/admin/util.c
@@ -49,6 +49,7 @@ init_des_key(hdb_entry *ent)
     ent->keys.len++;
     memset(k, 0, sizeof(*k));
     krb5_generate_random_keyblock(context, KEYTYPE_DES, &k->key);
+    seal_key(k);
 }
 
 void
@@ -56,10 +57,13 @@ set_keys(hdb_entry *ent, char *password)
 {
     krb5_data salt;
     int i;
+
     memset(&salt, 0, sizeof(salt));
     krb5_get_salt(ent->principal, &salt);
-    for(i = 0; i < ent->keys.len; i++)
+    for(i = 0; i < ent->keys.len; i++) {
 	krb5_string_to_key(password, &salt, &ent->keys.val[i].key); /* XXX */
+	seal_key(&ent->keys.val[i]);
+    }
     krb5_data_free(&salt);
     ent->kvno++;
 }