794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
|
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
|
-
+
-
+
-
+
|
127.0.0.1 8828]
fconfigure $s2 -buffering line
set s3 [tls::socket \
-certfile $clientCert -cafile $caCert -keyfile $clientKey \
127.0.0.1 8828]
fconfigure $s3 -buffering line
for {set i 0} {$i < 100} {incr i} {
puts $s1 hello,s1
puts $s1 hello,tlsIO-3.2,s1
gets $s1
puts $s2 hello,s2
puts $s2 hello,tlsIO-3.2,s2
gets $s2
puts $s3 hello,s3
puts $s3 hello,tlsIO-3.2,s3
gets $s3
}
close $s1
close $s2
close $s3
lappend x [gets $f]
close $f
|
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
|
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
|
-
+
-
+
-
+
|
$remoteServerIP 8836]
fconfigure $s2 -buffering line
set s3 [tls::socket \
-certfile $clientCert -cafile $caCert -keyfile $clientKey \
$remoteServerIP 8836]
fconfigure $s3 -buffering line
for {set i 0} {$i < 100} {incr i} {
puts $s1 hello,s1
puts $s1 hello,tlsIO-11.7,s1
gets $s1
puts $s2 hello,s2
puts $s2 hello,tlsIO-11.7,s2
gets $s2
puts $s3 hello,s3
puts $s3 hello,tlsIO-11.7,s3
gets $s3
}
close $s1
close $s2
close $s3
sendCommand {close $socket10_9_test_server}
set i
|