Anonymous user
HTTPS/Client-authenticated: Difference between revisions
→{{header|Racket}}
mNo edit summary |
|||
Line 14:
(while (line)
(doSomeProcessingWithLine @) ) )</lang>
=={{header|Racket}}==
Skeleton code to connect to a server:
<lang racket>
#lang racket
(require openssl/mzssl)
(define ctx (ssl-make-client-context))
(ssl-set-verify! ctx #t) ; verify the connection
(ssl-load-verify-root-certificates! ctx "my-cert.pem")
(define-values [I O] (ssl-connect "www.example.com" 443 ctx))
</lang>
=={{header|Run BASIC}}==
| |||