1995
#hash(((def ((lib "openssl/sha1.rkt") sha1-bytes)) . ((5328 . 3))) ((def ((lib "openssl/main.rkt") ssl-make-server-context)) . ((2048 . 3))) ((def ((lib "openssl/main.rkt") ssl-connect)) . ((90 . 8))) ((def ((lib "openssl/main.rkt") ssl-listener?)) . ((1508 . 3))) ((def ((lib "openssl/main.rkt") ssl-available?)) . ((0 . 2))) ((def ((lib "openssl/main.rkt") ssl-load-fail-reason)) . ((34 . 2))) ((def ((lib "openssl/main.rkt") ssl-addresses)) . ((1858 . 4))) ((def ((lib "openssl/main.rkt") ssl-server-context?)) . ((2144 . 3))) ((def ((lib "openssl/sha1.rkt") bytes->hex-string)) . ((5389 . 3))) ((def ((lib "openssl/main.rkt") ssl-load-suggested-certificate-authorities!)) . ((4277 . 8))) ((def ((lib "openssl/main.rkt") ssl-set-verify!)) . ((4661 . 6))) ((def ((lib "openssl/main.rkt") ssl-accept/enable-break)) . ((1662 . 3))) ((def ((lib "openssl/main.rkt") ssl-try-verify!)) . ((4852 . 6))) ((def ((lib "openssl/main.rkt") ports->ssl-ports)) . ((2209 . 22))) ((def ((lib "openssl/main.rkt") ssl-close)) . ((1434 . 3))) ((def ((lib "openssl/main.rkt") ssl-client-context?)) . ((877 . 3))) ((def ((lib "openssl/main.rkt") ssl-load-certificate-chain!)) . ((3242 . 6))) ((def ((lib "openssl/main.rkt") ssl-listen)) . ((942 . 12))) ((def ((lib "openssl/main.rkt") ssl-accept)) . ((1567 . 3))) ((def ((lib "openssl/main.rkt") ssl-abandon-port)) . ((1770 . 3))) ((def ((lib "openssl/main.rkt") ssl-load-verify-root-certificates!)) . ((3977 . 7))) ((def ((lib "openssl/main.rkt") ssl-make-client-context)) . ((762 . 3))) ((def ((lib "openssl/sha1.rkt") sha1)) . ((5272 . 3))) ((def ((lib "openssl/main.rkt") ssl-peer-subject-name)) . ((5111 . 3))) ((def ((lib "openssl/main.rkt") ssl-port?)) . ((1993 . 3))) ((def ((lib "openssl/main.rkt") ssl-peer-issuer-name)) . ((5192 . 3))) ((def ((lib "openssl/main.rkt") ssl-peer-verified?)) . ((5043 . 3))) ((def ((lib "openssl/main.rkt") ssl-load-private-key!)) . ((3530 . 10))) ((def ((lib "openssl/main.rkt") ssl-connect/enable-break)) . ((412 . 9))))
value
ssl-available? : boolean?
value
ssl-load-fail-reason : (or/c false/c string?)
procedure
(ssl-connect  hostname              
              port-no               
             [client-protocol]) -> input-port? output-port?
  hostname : string?
  port-no : (integer-in 1 65535)
  client-protocol : (or/c ssl-client-context? symbol?)
                  = 'sslv2-or-v3
procedure
(ssl-connect/enable-break  hostname          
                           port-no           
                          [client-protocol]) 
 -> input-port? output-port?
  hostname : string?
  port-no : (integer-in 1 65535)
  client-protocol : (or/c ssl-client-context? symbol?)
                  = 'sslv2-or-v3
procedure
(ssl-make-client-context [protocol]) -> ssl-client-context?
  protocol : symbol? = 'sslv2-or-v3
procedure
(ssl-client-context? v) -> boolean?
  v : any/c
procedure
(ssl-listen  port-no               
             queue-k               
            [reuse?                
             hostname-or-#f        
             server-protocol]) -> ssl-listener?
  port-no : (integer-in 1 65535)
  queue-k : exact-nonnegative-integer?
  reuse? : any/c = #f
  hostname-or-#f : (or/c string? false/c) = #f
  server-protocol : (or/c ssl-server-context? symbol?)
                  = 'sslv2-or-v3
procedure
(ssl-close listener) -> void?
  listener : ssl-listener?
procedure
(ssl-listener? v) -> boolean?
  v : any/c
procedure
(ssl-accept listener) -> input-port? output-port?
  listener : ssl-listener?
procedure
(ssl-accept/enable-break listener) -> input-port? output-port?
  listener : ssl-listener?
procedure
(ssl-abandon-port in) -> void?
  in : (and/c ssl-port? output-port?)
procedure
(ssl-addresses p [port-numbers?]) -> void?
  p : (or/c ssl-port? ssl-listener?)
  port-numbers? : any/c = #f
procedure
(ssl-port? v) -> boolean?
  v : any/c
procedure
(ssl-make-server-context protocol) -> ssl-server-context?
  protocol : symbol?
procedure
(ssl-server-context? v) -> boolean?
  v : any/c
procedure
(ports->ssl-ports  input-port                              
                   output-port                             
                  [#:mode mode                             
                   #:context context                       
                   #:encrypt protocol                      
                   #:close-original? close-original?       
                   #:shutdown-on-close? shutdown-on-close? 
                   #:error/ssl error])                     
 -> input-port? output-port?
  input-port : input-port?
  output-port : output-port?
  mode : symbol? = 'accept
  context : (or/c ssl-client-context? ssl-server-context?)
          = ((if (eq? mode 'accept)
                 ssl-make-server-context
                 ssl-make-client-context)
             protocol)
  protocol : symbol? = 'sslv2-or-v3
  close-original? : boolean? = #f
  shutdown-on-close? : boolean? = #f
  error : procedure? = error
procedure
(ssl-load-certificate-chain! context-or-listener     
                             pathname)           -> void?
  context-or-listener : (or/c ssl-client-context? ssl-server-context?
                              ssl-listener?)
  pathname : path-string?
procedure
(ssl-load-private-key!  context-or-listener     
                        pathname                
                       [rsa?                    
                        asn1?])             -> void?
  context-or-listener : (or/c ssl-client-context? ssl-server-context?
                              ssl-listener?)
  pathname : path-string?
  rsa? : boolean? = #t
  asn1? : boolean? = #f
procedure
(ssl-load-verify-root-certificates! context-or-listener 
                                    pathname)           
 -> void?
  context-or-listener : (or/c ssl-client-context? ssl-server-context?
                               ssl-listener?)
  pathname : path-string?
procedure
(ssl-load-suggested-certificate-authorities!                     
                                             context-or-listener 
                                             pathname)           
 -> void?
  context-or-listener : (or/c ssl-client-context? ssl-server-context?
                              ssl-listener?)
  pathname : path-string?
procedure
(ssl-set-verify! clp on?) -> void
  clp : (or/c ssl-client-context? ssl-server-context?
              ssl-listener?
              ssl-port?)
  on? : any/c
procedure
(ssl-try-verify! clp on?) -> void
  clp : (or/c ssl-client-context? ssl-server-context?
              ssl-listener?
              ssl-port?)
  on? : any/c
procedure
(ssl-peer-verified? p) -> boolean?
  p : ssl-port?
procedure
(ssl-peer-subject-name p) -> (or/c bytes? #f)
  p : ssl-port?
procedure
(ssl-peer-issuer-name p) -> (or/c bytes? #f)
  p : ssl-port?
procedure
(sha1 in) -> string?
  in : input-port
procedure
(sha1-bytes in) -> bytes?
  in : input-port
procedure
(bytes->hex-string bstr) -> string?
  bstr : bytes?
