Как построить неблокирующий TCP-сервер с шифрованием ssl

Неблокирующий TCP-сервер на trapexit.org объясняет, как создать сервер на основе tcp_gen, но я хотите изменить этот пример и заставить его работать с ssl. Пока я совершенно не знаю, как заменить

{ok, Ref} = prim_inet:async_accept(Listen_socket, -1)

erlang otp
person JLarky    schedule 21.09.2009    source источник
comment
Разве SSL не будет уровнем выше этого в стеке? Транспорт по-прежнему будет TCP.   -  person spender    schedule 21.09.2009

Ответы (2)


arrow_upward
6
arrow_downward

простой echo_ssl с многопоточностью

-module(echo_ssl).
-compile([export_all]).

main() ->
    application:start(crypto),
    application:start(ssl),
    ssl:seed("TODO random here"),
    {ok, ListenSocket} = ssl:listen(2840, [
        {ssl_imp, new},
        {active, false},
        {verify, 0},
        {mode,binary},
        {cacertfile, "certs/etc/server/cacerts.pem"},
        {certfile, "certs/etc/server/cert.pem"},
        {keyfile, "certs/etc/server/key.pem"}
    ]),
    io:format("ready to accept connections at port 2840 ~p\n", [ListenSocket]),
    server_loop(ListenSocket).

server_loop(ListenSocket) ->
    {ok, Socket} = ssl:transport_accept(ListenSocket),
    io:format("accepted connection from ~p\n", [ssl:peername(Socket)]),
    ssl:ssl_accept(Socket),
    spawn(fun() -> loop(Socket) end),
    server_loop(ListenSocket).

loop(Socket) ->
    io:format("waiting for packet~n"),
    case ssl:recv(Socket, 1000, 2000) of
        {ok, Data} ->
            io:format("received data: ~s~n", [binary_to_list(Data)]),
            Return = ssl:send(Socket, Data),
            io:format("sending ~p~n", [Return]),
            loop(Socket);
        {error, timeout} ->
           loop(Socket);
        Else ->
            io:format("crap ~p~n",[Else])
    end.
person mog    schedule 21.09.2009

arrow_upward
2
arrow_downward

Не заменяйте это ничем. Вместо этого подключите свой ввод и вывод к обработчику SSL.

транжира прав, SSL использует TCP для транспорта.

Здесь кто-то, кажется, реализовал SSL через асинхронный TCP.

person Tiemen    schedule 21.09.2009