steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.sockets.secure.openssl: Nuke RSA.

db4
Doug Coleman 2016-03-01 14:02:47 -08:00
parent b1e0ba1edd
commit 3f07cbd194
1 changed files with 0 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
basis/io/sockets/secure/openssl/openssl.factor
View File

@ -117,28 +117,6 @@ M: bio dispose* handle>> BIO_free ssl-error ;
SSL_CTX_set_tmp_dh ssl-error SSL_CTX_set_tmp_dh ssl-error
] [ drop ] if ; ] [ drop ] if ;
TUPLE: rsa < disposable handle ;
: <rsa> ( handle -- rsa ) rsa new-disposable swap >>handle ;
M: rsa dispose* handle>> RSA_free ;
: needs-rsa-key ( ctx -- ? )
handle>> SSL_CTX_need_tmp_rsa 0 = not ; inline
: generate-eph-rsa-key ( ctx -- )
dup needs-rsa-key [
[ handle>> ]
[| ctx |
RSA_new :> rsa-struct
rsa-struct
ctx config>> ephemeral-key-bits>>
RSA_F4 number>bn &BN_clear_free
f RSA_generate_key_ex
ssl-error rsa-struct <rsa> &dispose handle>>
] bi
SSL_CTX_set_tmp_rsa ssl-error ] [ drop ] if ;
: <openssl-context> ( config ctx -- context ) : <openssl-context> ( config ctx -- context )
openssl-context new-disposable openssl-context new-disposable
swap >>handle swap >>handle
@ -159,7 +137,6 @@ M: openssl <secure-context> ( config -- context )
[ load-verify-locations ] [ load-verify-locations ]
[ set-verify-depth ] [ set-verify-depth ]
[ load-dh-params ] [ load-dh-params ]
[ generate-eph-rsa-key ]
[ ] [ ]
} cleave } cleave
] with-destructors ; ] with-destructors ;