ssl: support client mode

master
nixo 2020-10-25 10:54:48 +01:00
parent 33841887c0
commit b1f27b143e
2 changed files with 13 additions and 3 deletions

View File

@ -13,6 +13,9 @@ SSL_CTX_new(method::Ptr{SSL_Method}) =
SSL_accept_state(client::SSLClient) =
ccall((:SSL_set_accept_state, libssl), Ptr{Cvoid}, (Ptr{Cvoid},), client.ssl)
SSL_connect_state(client::SSLClient) =
ccall((:SSL_set_connect_state, libssl), Ptr{Cvoid}, (Ptr{Cvoid},), client.ssl)
ssl_init_finished(client::SSLClient) =
ccall((:SSL_is_init_finished, libssl), Bool, (Ptr{Cvoid},), client.ssl)

View File

@ -3,16 +3,23 @@ struct SSL_Method ptr end
struct BIO_Method ptr end
struct SSL_Context ptr end
@enum TLSMode begin
ClientMode
ServerMode
end
mutable struct SSLContext <: IO
data::Vector{UInt8}
ptr::Ptr{SSL_Context}
mode::TLSMode
"Construct the SSLContext object, initializing its relatvie SSL_Context
pointer.
Might throw ErrorException if the ccall fails"
function SSLContext(; method::Ptr{SSL_Method} = TLS_method())
function SSLContext(; mode::TLSMode = ClientMode)
ssl_context = new()
ssl_context.mode = mode
method = mode == ServerMode ? TLS_server_method() : TLS_client_method()
ssl_context.ptr = SSL_CTX_new(method)
if ssl_context.ptr == C_NULL
# TODO: check error stack and report the right exception
@ -38,7 +45,7 @@ mutable struct SSLClient{T}
client.context = ctx
client.ssl = SSL_new(ctx)
client.io_on_read = (data) -> append!(client.context.data, data)
SSL_accept_state(client)
(ctx.mode == ServerMode ? SSL_accept_state : SSL_connect_state)(client)
set_bio!(client, bio_new(), bio_new())
client.write_buf = UInt8[]
client.encrypt_buf = UInt8[]