diff options
| author | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2010-06-22 02:56:34 +1000 |
|---|---|---|
| committer | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2010-06-22 02:56:34 +1000 |
| commit | 49dd83e73130e63e35500b1d059e7d6a82ec54f2 (patch) | |
| tree | 5839c8a508635075bb3b98607e619dffe8a3c4ad /src/tls | |
| parent | New OpenSSL functions wrapper: sha224/1, sha256/1, sha384/1, sha512/1 (diff) | |
Added md2/1 support
Diffstat (limited to 'src/tls')
| -rw-r--r-- | src/tls/sha_drv.c | 6 |
1 files changed, 6 insertions, 0 deletions
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); |