suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

net/win32-ssl: enable TLS 1.1 and 1.2

Browse Source
This commit is contained in:
Matthew Flatt 2016-01-09 08:28:20 -07:00
parent 034d2e9531
commit 01e889570a
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
racket/collects/net/win32-ssl.rkt
View File

@ -117,6 +117,12 @@
(define SP_PROT_TLS1_SERVER #x00000040)
(define SP_PROT_TLS1_CLIENT #x00000080)
(define SP_PROT_TLS1 (bitwise-ior SP_PROT_TLS1_SERVER SP_PROT_TLS1_CLIENT))
(define SP_PROT_TLS1_1_SERVER #x00000100)
(define SP_PROT_TLS1_1_CLIENT #x00000200)
(define SP_PROT_TLS1_1 (bitwise-ior SP_PROT_TLS1_1_SERVER SP_PROT_TLS1_1_CLIENT))
(define SP_PROT_TLS1_2_SERVER #x00000400)
(define SP_PROT_TLS1_2_CLIENT #x00000800)
(define SP_PROT_TLS1_2 (bitwise-ior SP_PROT_TLS1_2_SERVER SP_PROT_TLS1_2_CLIENT))
(define SCH_CRED_MANUAL_CRED_VALIDATION #x00000008)
(define SCH_CRED_NO_DEFAULT_CREDS #x00000010)
(define SCHANNEL_CRED_VERSION #x00000004)
@ -287,11 +293,14 @@
0 #f ; mappers
0 #f ; algs
(case protocol
[(secure auto sslv2-or-v3)
(bitwise-ior SP_PROT_TLS1)]
[(secure auto)
(bitwise-ior SP_PROT_TLS1 SP_PROT_TLS1_1 SP_PROT_TLS1_2)]
[(sslv2) SP_PROT_SSL2]
[(sslv3) SP_PROT_SSL3]
[(tls tls11 tls12) SP_PROT_TLS1])
[(tls) SP_PROT_TLS1]
[(tls11) SP_PROT_TLS1_1]
[(tls12) SP_PROT_TLS1_2]
[else 0])
0 0 0
(if (eq? protocol 'secure)
0