1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
%%%-------------------------------------------------------------------
%%% @author chenshaobo0428
%%% @copyright (C) 2016, <COMPANY>
%%% @doc
%%%
%%% @end
%%% Created : 08. 03 2016 16:47
%%%-------------------------------------------------------------------
-module(ali_sms).
-author("chenshaobo0428").
%% API
-export([gen_ali_sms_url/4]).
-define(DEFAULT_PARAMS,[
{"method",<<"alibaba.aliqin.fc.sms.num.send">>},
{"app_key",<<"YOUR KEY">>},
{"secret","YOUR SECRET"},
{"v",<<"2.0">>},
{"sign_method",<<"md5">>},
{"format",<<"json">>},
{"sms_type",<<"normal">>}
]).
-define(BASE_URL,"http://gw.api.taobao.com/router/rest?").
%% 传入参数 返回 通过阿里大鱼（get方式)发送短信的完整url
gen_ali_sms_url(PhoneNumber,SMSParam,SignName,TemplateCode)->
{"secret", SecretKey} = lists:keyfind("secret", 1, ?DEFAULT_PARAMS),
Params=
[{"rec_num", to_bin(PhoneNumber)}, {"sms_param", to_bin(SMSParam)},
{"sms_free_sign_name", to_bin(SignName)}, {"sms_template_code", TemplateCode},
{"timestamp", to_bin(format_date())}] ++ ?DEFAULT_PARAMS,
%% 按照字母排序
SortList = lists:sort(fun({Key1, _}, {Key2, _}) ->
Key1 < Key2
end, Params),
MD5Source = SecretKey ++ lists:flatten([io_lib:format("~s~s", [Key, Val]) || {Key, Val} <- SortList]) ++ SecretKey,
SignMd5 = to_bin(string:to_upper(to_list(to_md5(MD5Source)))),
%%
RequestQuery = lists:flatten([io_lib:format("~s=~s&", [Key, http_uri:encode(to_list(Val))]) || {Key, Val} <- [{"sign", SignMd5} | SortList]]),
?BASE_URL ++ RequestQuery.
-define(FILL_ZERO(X) ,case X > 9 of
true ->
to_list(X);
false ->
"0"++ to_list(X)
end).
format_date()->
{Y,M,D} = erlang:date(),
{H,Min,S}= time(),
lists:flatten(io_lib:format("~s-~s-~s ~s:~s:~s", [?FILL_ZERO(Y),?FILL_ZERO(M),?FILL_ZERO(D),?FILL_ZERO(H),?FILL_ZERO(Min),?FILL_ZERO(S)])).
to_bin(Int) when is_integer(Int) ->
erlang:integer_to_binary(Int);
to_bin(Float) when is_float(Float)->
erlang:float_to_binary(Float,[{decimals, 2}, compact]);
to_bin(Atom) when is_atom(Atom) ->
erlang:atom_to_binary(Atom, utf8);
to_bin(List) when is_list(List) ->
erlang:list_to_binary(List);
to_bin(Binary) when is_binary(Binary) ->
Binary;
to_bin(_) ->
erlang:throw(error_type).
% return value is binary
to_md5(Value) ->
to_hex(to_list(erlang:md5(Value))).
to_hex(L) when is_list(L) ->
lists:flatten([hex(I) || I <- L]).
hex(I) when I > 16#f ->
[hex0((I band 16#f0) bsr 4), hex0((I band 16#0f))];
hex(I) -> [$0, hex0(I)].
hex0(10) -> $a;
hex0(11) -> $b;
hex0(12) -> $c;
hex0(13) -> $d;
hex0(14) -> $e;
hex0(15) -> $f;
hex0(I) -> $0 + I.
to_list(Atom) when is_atom(Atom) -> erlang:atom_to_list(Atom);
to_list(Int) when is_integer(Int) -> erlang:integer_to_list(Int);
to_list(List) when is_list(List) -> List;
to_list(Bin) when is_binary(Bin) -> erlang:binary_to_list(Bin);
to_list(_) ->
erlang:throw(error_type).
|