From 2eaeba1f93008f272aa04318a588caa46c8f8fec Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Love=20H=C3=B6rnquist=20=C3=85strand?= <lha@kth.se>
Date: Sat, 23 Aug 2003 11:33:53 +0000
Subject: [PATCH] add krb5_crypto_get_checksum_type From: Luke Howard
 <lukeh@PADL

git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@12612 ec53bebd-3082-4978-b11e-865c3cabbd6b
---
 lib/krb5/crypto.c | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/lib/krb5/crypto.c b/lib/krb5/crypto.c
index 9bd777d0c..0e03e04c2 100644
--- a/lib/krb5/crypto.c
+++ b/lib/krb5/crypto.c
@@ -1977,6 +1977,31 @@ krb5_verify_checksum(krb5_context context,
 			   data, len, cksum);
 }
 
+krb5_error_code
+krb5_crypto_get_checksum_type(krb5_context context,
+                              krb5_crypto crypto,
+			      krb5_cksumtype *type)
+{
+    struct checksum_type *ct = NULL;
+    
+    if (crypto != NULL) {
+        ct = crypto->et->keyed_checksum;
+        if (ct == NULL)
+            ct = crypto->et->checksum;
+    }
+    
+    if (ct == NULL) {
+	krb5_set_error_string (context, "checksum type %d not supported",
+			       type);
+        return KRB5_PROG_SUMTYPE_NOSUPP;
+    }    
+
+    *type = ct->type;
+    
+    return 0;      
+}
+
+
 krb5_error_code
 krb5_checksumsize(krb5_context context,
 		  krb5_cksumtype type,