openssl

Vocabulary

openssl

Definition

IN: openssl

SINGLETON: openssl

Methods

USING: accessors combinators destructors io.sockets.secure
io.sockets.secure.openssl kernel openssl openssl.libssl system ;

M: openssl <secure-context>
    maybe-init-ssl [
        dup method>> ssl-method SSL_CTX_new dup ssl-error
        <openssl-context> |dispose {
            [ set-session-cache ]
            [ load-certificate-chain ]
            [ set-default-password ]
            [ use-private-key-file ]
            [ load-verify-locations ]
            [ set-verify-depth ]
            [ load-dh-params ]
            [ set-ecdh-params ]
            [ os macos? [ drop ] [ ignore-unexpected-eof ] if ]
            [ ]
        } cleave
    ] with-destructors ;


USING: io.sockets.secure io.sockets.secure.openssl openssl ;

M: openssl accept-secure-handshake
    input/output-ports make-input/output-secure ;


USING: accessors io.sockets.secure io.sockets.secure.openssl
kernel openssl ;

M: openssl check-certificate
    current-secure-context config>> verify>> [
        handle>>
        [ nip check-verify-result ] [ check-subject-name ] 2bi
    ] [ 2drop ] if ;


USING: accessors io.sockets io.sockets.secure
io.sockets.secure.openssl kernel namespaces openssl ;

M: openssl send-secure-handshake
    input/output-ports
    [ make-input/output-secure ] [ nip (send-secure-handshake) ] 
    [
        nip remote-address get dup inet?
        [ host>> swap handle>> check-certificate ] [ 2drop ] if
    ] 2tri ;


USING: io.sockets.secure openssl ;

M: openssl ssl-certificate-verification-supported? t ;


USING: io.sockets.secure openssl ;

M: openssl ssl-supported? t ;