尋找一個簡單的ssl erlang示例

Question

在「Erlang編程」一書中提出的練習之一是在屏幕上使用gen_tcp在瀏覽器上打印請求。我做了http請求如下：

-module(tcp). 
-export([server/0, wait_connect/2]). 

server() -> 
    {ok, ListenSocket} = gen_tcp:listen(1234, [binary, {active, false}]), 
    wait_connect(ListenSocket,0). 

wait_connect(ListenSocket, Count) -> 
    {ok, Socket} = gen_tcp:accept(ListenSocket), 
    spawn(?MODULE, wait_connect, [ListenSocket, Count+1]), 
    get_request(Socket, [], Count). 

get_request(Socket, BinaryList, Count) -> 
    Request = gen_tcp:recv(Socket, 0), 
    io:format("~p~n", [Request]). 

現在我想知道如何在https請求的情況下可以做到這一點。

你能提供一個非常簡單的例子嗎？或者將我指向書籍或在線的某些資源？

真是太感謝您

Answer 1

這裏是Erlang的SSL應用程序的用戶指南： Erlang -- SSL User Guide

該指南也包含在API章節，在更新到SSL現有連接一個段落。

關於你的代碼，你應該這樣做：

• 在服務器和客戶端，你必須發出： ssl:start()

• 服務器端：握手SSL（記得設置「主動」爲假對於監聽套接字）

  {ok, SSLSocket} = ssl:ssl_accept(Socket, [{cacertfile, "cacerts.pem"}, {certfile, "cert.pem"}, {keyfile, "key.pem"}]).

  其中 「cacerts.pem」， 「cert.pem」， 「key.pem」 相關的文件SSL認證

• 客戶端：升級連接到SSL： {ok, SSLSocket} = ssl:connect(Socket, [{cacertfile, "cacerts.pem"}, {certfile, "cert.pem"}, {keyfile, "key.pem"}], infinity).

按照文件，現在的SSLSocket是可以用來發送消息像SSL通道： ssl:send(SSLSocket, "foo").

希望這有助於！

Answer 2

我建議閱讀以下關於Erang中SSL套接字的文章，其中包含SSL回顯服務器和客戶端的完整代碼。

Erlang SSL sockets example - ssl server & client)