Title: Common LISP: How to open an SSL / TLS stream | |
Author: Solène | |
Date: 26 September 2016 | |
Tags: lisp networking | |
Description: | |
Here is a tiny code to get a connection to an SSL/TLS server. I am | |
writing an IRC client and an IRC bot too and it's better to connect | |
through a secure channel. | |
This requires **usocket** and **cl+ssl**: | |
``` | |
(usocket:with-client-socket (socket stream *server* *port*) | |
(let ((ssl-stream (cl+ssl:make-ssl-client-stream stream | |
:external-format '(:iso-… | |
:unwrap-stream-p t | |
:hostname *server*))) | |
(format ssl-stream "hello there !~%") | |
(force-output ssl-stream))) | |
``` |