// Podpunkt 2
lappend auto_path ~/Dokumenty/SIK/D/tls1.7
package require tls

tls::socket -server obsluga -keyfile newreq.pem -certfile newcert.pem -password haslo 10000

proc haslo {} { return "qwerty" }
proc obsluga {s args} {
    _puts "server socket $s"
    tls::handshake $s
}

lappend auto_path ~/Dokumenty/SIK/D/tls1.7
package require tls

set s [tls::socket localhost 10000]
tls::handshake $s

// Podpunkt 3
lappend auto_path ~/Dokumenty/SIK/D/tls1.7
package require tls

tls::socket -server obsluga -require 1 -cafile cacert.pem -keyfile newreq.pem -certfile newcert.pem -password haslo 10001

proc haslo {} { return "qwerty" }
proc obsluga {s args} {
    _puts "server socket $s"
    tls::handshake $s
}

lappend auto_path ~/Dokumenty/SIK/D/tls1.7
package require tls

proc haslo {} { return "qwerty" }

set s [tls::socket -require 1 -cafile cacert.pem -password haslo -keyfile newreq.pem -certfile newcert.pem localhost 10001]
tls::handshake $s