Erlang學習–輸出MD5值

Erlang輸出的md5值是16位二進位的，就算轉成list也和我們經常用的32位字串不一樣，這是轉碼：

1. -module(md5).
2. -compile(export_all).
3.  
4. md5(S) ->
5.     Md5_bin = erlang:md5(S),
6.     Md5_list = binary_to_list(Md5_bin),
7.     lists:flatten(list_to_hex(Md5_list)).
8.     
9. list_to_hex(L) ->
10.     lists:map(fun(X) -> ini_to_hex(X) end, L).
11.     
12. ini_to_hex(N) when N < 256 ->
13.     [hex(N div 16), hex(N rem 16)].
14.     
15. hex(N) when N < 10 ->
16.     $0 + N;
17. hex(N) when N >= 10, N < 16 ->
18.     $a + (N - 10).