Copyright consolidation: perl files

[openssl.git] / crypto / des / rand_key.c

diff --git a/crypto/des/rand_key.c b/crypto/des/rand_key.c
index a617969f70ff7c0075cf5f891fee66c6896850fe..da95bfebae29ce9a6303b6af9ef25e69ac0783c5 100644 (file)
--- a/crypto/des/rand_key.c
+++ b/crypto/des/rand_key.c
@@ -1,4 +1,3 @@
-/* crypto/des/rand_key.c */
 /* ====================================================================
  * Copyright (c) 1998-2000 The OpenSSL Project.  All rights reserved.
  *
@@ -7,7 +6,7 @@
  * are met:
  *
  * 1. Redistributions of source code must retain the above copyright
- *    notice, this list of conditions and the following disclaimer. 
+ *    notice, this list of conditions and the following disclaimer.
  *
  * 2. Redistributions in binary form must reproduce the above copyright
  *    notice, this list of conditions and the following disclaimer in
@@ -56,18 +55,12 @@
 #include <openssl/des.h>
 #include <openssl/rand.h>
 
-void DES_random_seed(DES_cblock *key)
-       {
-       RAND_seed(key, sizeof(DES_cblock));
-       }
-
 int DES_random_key(DES_cblock *ret)
-       {
-       do
-               {
-               if (RAND_bytes((unsigned char *)ret, sizeof(DES_cblock)) != 1)
-                       return (0);
-               } while (DES_is_weak_key(ret));
-       DES_set_odd_parity(ret);
-       return (1);
-       }
+{
+    do {
+        if (RAND_bytes((unsigned char *)ret, sizeof(DES_cblock)) != 1)
+            return (0);
+    } while (DES_is_weak_key(ret));
+    DES_set_odd_parity(ret);
+    return (1);
+}