erlang中關於MD5的問題

今天開發的時候需要用到MD5進行加密，印象中erlang是支援MD5密碼編譯演算法的，但結果大失所望。

問題：一般MD5加密後得到的是32個位元組的字串，但erlang的MD5返回的是16個位元組的 binary。

解決方案，老外寫了一個轉換函式：
-module(md5_string).
-export([md5_hex/1]).

md5_hex(S) ->
    Md5_bin =  erlang:md5(S),
    Md5_list = binary_to_list(Md5_bin),
    lists:flatten(list_to_hex(Md5_list)).

list_to_hex(L) ->
    lists:map(fun(X) -> int_to_hex(X) end, L).

int_to_hex(N) when N < 256 ->
    [hex(N div 16), hex(N rem 16)].

hex(N) when N < 10 ->
    $0+N;
hex(N) when N >= 10, N < 16 ->
    $a + (N-10).