erlang的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">>).
复制代码

 

posted @   孤独信徒  阅读(1165)  评论(0编辑  收藏  举报
努力加载评论中...
点击右上角即可分享
微信分享提示