HTTPS/Client-authenticated: Difference between revisions
Content added Content deleted
mNo edit summary |
|||
Line 14: | Line 14: | ||
(while (line) |
(while (line) |
||
(doSomeProcessingWithLine @) ) )</lang> |
(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}}== |
=={{header|Run BASIC}}== |