From 49dd83e73130e63e35500b1d059e7d6a82ec54f2 Mon Sep 17 00:00:00 2001
From: Evgeniy Khramtsov <ekhramtsov@process-one.net>
Date: Tue, 22 Jun 2010 02:56:34 +1000
Subject: Added md2/1 support

---
 src/tls/sha_drv.c | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/tls')

diff --git a/src/tls/sha_drv.c b/src/tls/sha_drv.c
index bfb101391..13d65803a 100644
--- a/src/tls/sha_drv.c
+++ b/src/tls/sha_drv.c
@@ -20,6 +20,7 @@
 
 #include <erl_driver.h>
 #include <openssl/sha.h>
+#include <openssl/md2.h>
 
 static ErlDrvData sha_drv_start(ErlDrvPort port, char *buf)
 {
@@ -35,6 +36,11 @@ static int sha_drv_control(ErlDrvData handle,
   ErlDrvBinary *b = NULL;
 
   switch (command) {
+  case 2:
+    rlen = MD2_DIGEST_LENGTH;
+    b = driver_alloc_binary(rlen);
+    if (b) MD2((unsigned char*)buf, len, (unsigned char*)b->orig_bytes);
+    break;
   case 224:
     rlen = SHA224_DIGEST_LENGTH;
     b = driver_alloc_binary(rlen);
-- 
cgit v1.2.3