[Erlang]如何在Erlang中使用SSL

原创文章，转载请注明出处：服务器非业余研究http://blog.csdn.net/erlib 作者Sunface

最近准备写一个SSL服务器，结果发现网上相关的资料很少，因为特地在此给大家分享一下SSL的基本使用方法.

SSL在使用上跟Tcp很像，但是也由区别。首先需要一个SSL证书，可以在参考这篇文章创建。

下面的代码实现了服务端和客户端，对于有经验erlang同学，应该很容易理解了，就不赘述了。

服务器端

-module(s).
-export([start/0, client/1, accept/1]).
start() ->
ssl:start(),
server(4000).
server(Port) ->
{ok, LSocket} = ssl:listen(Port, [{certfile,"certificate.pem"}, {keyfile, "key.pem"}, {reuseaddr, true}, {active, false}]),
spawn(fun() -> accept(LSocket) end).
accept(LSocket) ->
{ok, Socket} = ssl:transport_accept(LSocket),
Pid = spawn(fun() ->
io:format("Connection accepted ~p~n", [Socket]),
loop(Socket)
end),
ssl:controlling_process(Socket, Pid),
accept(LSocket).
loop(Socket) ->
ssl:setopts(Socket, [{active, once}]),
receive
{ssl,Sock, Data} ->
io:format("Got packet: ~p~n", [Data]),
ssl:send(Sock, Data),
loop(Socket);
{ssl_closed, Sock} ->
io:format("Closing socket: ~p~n", [Sock]);
Error ->
io:format("Error on socket: ~p~n", [Error])
end.

客户端：

client(N) ->
{ok, Socket} = ssl:connect("localhost", 4000,  []),
io:format("Client opened socket: ~p~n",[Socket]),
ok = ssl:send(Socket, N),
Value = receive
{ssl,{sslsocket,new_ssl,_}, Data} ->
io:format("Client received: ~p~n",[Data])
after 2000 ->
0
end,
ssl:close(Socket),
Value.

$ erl
Eshell V5.8.5  (abort with ^G)
1> c(s).
{ok,s}
2> s:start().
<0.52.0>
Connection accepted {sslsocket,new_ssl,<0.54.0>}
Got packet: "Hello"
Closing socket: {sslsocket,new_ssl,<0.54.0>}

别忘了在客户端进程启动ssl服务

$ erl
Eshell V5.8.5  (abort with ^G)
1> ssl:start().
ok
2> s:client("Hello").
Client opened socket: {sslsocket,new_ssl,<0.49.0>}
Client received: "Hello"
ok

因为是SSL，所以需要安全验证：

1.option中得 verify设置，验证peer(对端)的合法性

• 0 - 不验证
• 1 -  验证
• 2 - 验证，同时peer如果没有证书，验证失败

2.depth验证，此选项指定了允许验证几个证书，允许值0-N

• 0 - 只验证peer证书
• 1 -  验证CA证书
• 2 - 验证多本CA证书