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