8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
source tls.tcl
package require http
#
# Initialize context
#
#tls::init -certfile client.pem -cafile server.pem -ssl2 1 -ssl3 1 -tls1 0 ;#-cipher RC4-MD5
tls::init -cafile server.pem
#
# Register with http module
#
http::register https 443 [list ::tls::socket -require 1]
set user novadigm\\matt
set pass sensus
|
|
|
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
source tls.tcl
package require http
#
# Initialize context
#
#tls::init -certfile client.pem -cafile server.pem -ssl2 1 -ssl3 1 -tls1 0 ;#-cipher RC4-MD5
tls::init -cafile server.pem
#
# Register with http module
#
http::register https 443 [list ::tls::socket -require 1]
set user novadigm\\matt
set pass sensus
|