From 6451a8d77166f97b90ffe1caf8b28c1ad5218b78 Mon Sep 17 00:00:00 2001
From: Martin Nilsson <mani@lysator.liu.se>
Date: Fri, 1 Aug 2003 21:27:04 +0200
Subject: [PATCH] Glue to md4 and md2

Rev: lib/modules/Crypto.pmod/module.pmod:1.7
---
 lib/modules/Crypto.pmod/module.pmod | 30 +++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/lib/modules/Crypto.pmod/module.pmod b/lib/modules/Crypto.pmod/module.pmod
index 3e32e82ab3..3c708c841f 100644
--- a/lib/modules/Crypto.pmod/module.pmod
+++ b/lib/modules/Crypto.pmod/module.pmod
@@ -44,6 +44,36 @@ class MD5_Algorithm
 
 MD5_Algorithm MD5 = MD5_Algorithm();
 
+#if constant(Nettle.MD4_Info)
+
+class MD4_Algorithm
+{
+  // NOTE: Depends on the order of INIT invocations.
+  inherit MD4_Info;
+  inherit HashAlgorithm;
+
+  MD4_State `()() { return MD4_State(); }
+}
+
+MD4_Algorithm MD4 = MD4_Algorithm();
+
+#endif
+
+#if constant(Nettle.MD2_Info)
+
+class MD2_Algorithm
+{
+  // NOTE: Depends on the order of INIT invocations.
+  inherit MD2_Info;
+  inherit HashAlgorithm;
+
+  MD2_State `()() { return MD2_State(); }
+}
+
+MD2_Algorithm MD2 = MD2_Algorithm();
+
+#endif
+
 class SHA1_Algorithm
 {
   // NOTE: Depends on the order of INIT invocations.
-- 
GitLab