erlang md5 生成

最近要做一个监测服务器代码、数据版本的小程序，大致思路是后台有最新的数据文件和beam文件，每台服务器根据自己的数据文件生成MD5值，在timer里，每隔几分钟将serverId，代码版本号，数据文件的MD5值发送到后台，后台能够取到最新的beam文件已经数据文件，同样生成MD5值，然后与服务器发送过来的进行比较，如果哪个服发来的MD5值和后台最新的beam或者数据生成的MD5值，不一致，可能是在更新服务器的时候漏掉了一个服，后台再做相应的处理。

erlang:md5(string args) 可以将字符串转换成二进制的MD5值，然后在进行一些处理，我们就能够得到相应的加密文件(当然，这里用MD5的目的不是加密，而是用于文件的比较)

看了看工程中的代码，和网上的一段代码一模一样的，我也记录下来，以备不时之需。

-module(md5).
-compile(export_all).

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

test() ->

   Val = md5("abc").

结果："900150983cd24fb0d6963f7d28e17f72"