Programmer's Reference
"Make sure that cert.pem and key.pem are in a directory of your choice and referenced in <dir>.
The following example uses Unix style path separators."
[ | config anSciSocketAddress listenSocket secureSocket rv msg |
config := SciSslSocketConfiguration new
certificateFilename: '<dir>/cert.pem';
privateKeyFilename: '<dir>/key.pem';
sslVersion: SciSslConstants::SSLv23;
yourself.
anSciSocketAddress := (SciSocketAddress new)
address: SciSocketConstants::INADDRANY;
port: 2222.
listenSocket := SciSslSocket newStreamSocket.
(rv := listenSocket bind: anSciSocketAddress) isSciError ifTrue: [ self halt ].
(rv := listenSocket listen: 5) isSciError ifTrue: [ self halt ].
(secureSocket := listenSocket accept) isSciError ifTrue: [ self halt ].
listenSocket close.
(rv := secureSocket sslInitialize: config) isSslError
ifTrue: [ secureSocket close. self halt ].
(rv := secureSocket sslAccept) isSslError
ifTrue: [ secureSocket close. self halt ].
msg := ByteArray new: 4096.
(rv := secureSocket recv: msg length: 4096 startingAt: 1 flags: 0) isSslError ifTrue: [ self halt ].
Transcript cr; nextPutAll: 'SslServer Got: ', msg asString.
(rv := secureSocket send: 'I hear you.' abrAsPSZ length: 11 startingAt: 1 flags: 0) isSslError ifTrue: [ self halt ].
secureSocket close. ] fork
[ Top of Page | Previous Page | Next Page | Table of Contents | Index ]