diff --git a/src/modules/_Crypto/des.c b/src/modules/_Crypto/des.c
index 85bfb9513956615468578ee3860f9b7b78319b0d..7b86e731a25ea6af274f06f7d9cce77572febc9a 100644
--- a/src/modules/_Crypto/des.c
+++ b/src/modules/_Crypto/des.c
@@ -1,5 +1,5 @@
 /*
- * $Id: des.c,v 1.1.1.1 1996/11/05 15:10:09 grubba Exp $
+ * $Id: des.c,v 1.2 1996/11/07 20:30:48 grubba Exp $
  *
  * A pike module for getting access to some common cryptos.
  *
@@ -75,6 +75,20 @@ static void exit_pike_des(struct object *o)
  * efuns and the like
  */
 
+/* int query_block_size(void) */
+static void f_query_block_size(INT32 args)
+{
+  pop_n_elems(args);
+  push_integer(8);
+}
+
+/* int query_key_length(void) */
+static void f_query_key_length(INT32 args)
+{
+  pop_n_elems(args);
+  push_integer(8);
+}
+
 /* void set_key(string) */
 static void f_set_key(INT32 args)
 {
@@ -358,6 +372,9 @@ void init_des_programs(void)
   start_new_program();
   add_storage(sizeof(struct pike_des));
 
+  add_function("query_block_size", f_query_block_size, "function(void:int)", OPT_TRY_OPTIMIZE);
+  add_function("query_key_length", f_query_key_length, "function(void:int)", OPT_TRY_OPTIMIZE);
+
   add_function("set_key", f_set_key, "function(string:void)", OPT_SIDE_EFFECT);
   add_function("get_schedule", f_get_schedule, "function(void:string)", OPT_EXTERNAL_DEPEND);
   add_function("make_key", f_make_key, "function(string:string)", OPT_TRY_OPTIMIZE);