Added md2/1 support

src/sha.erl

@@ -27,7 +27,8 @@
 -module(sha).
 -author('alexey@process-one.net').
 
--export([start/0, sha/1, sha1/1, sha224/1, sha256/1, sha384/1, sha512/1]).
+-export([start/0, sha/1, sha1/1, sha224/1, sha256/1, sha384/1,
+	 sha512/1, md2/1]).
 
 -include("ejabberd.hrl").
 
@@ -79,6 +80,9 @@ sha384(Text) ->
 sha512(Text) ->
     erlang:port_control(?DRIVER, 512, Text).
 
+md2(Text) ->
+    erlang:port_control(?DRIVER, 2, Text).
+
 driver_path() ->
     Suffix = case os:type() of
 		 {win32, _} -> ".dll";

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);