Artifact
9b5091a9417f0d778aac6eb18b1f3863b7a9819e6ab8fd974d931e3e76243753:
0000: 23 20 41 75 74 6f 20 67 65 6e 65 72 61 74 65 64 # Auto generated
0010: 20 74 65 73 74 20 63 61 73 65 73 20 66 6f 72 20 test cases for
0020: 62 72 6f 77 73 65 72 6c 65 61 6b 73 2e 63 73 76 browserleaks.csv
0030: 0a 0a 23 20 4c 6f 61 64 20 54 63 6c 20 54 65 73 ..# Load Tcl Tes
0040: 74 20 70 61 63 6b 61 67 65 0a 69 66 20 7b 5b 6c t package.if {[l
0050: 73 65 61 72 63 68 20 5b 6e 61 6d 65 73 70 61 63 search [namespac
0060: 65 20 63 68 69 6c 64 72 65 6e 5d 20 3a 3a 74 63 e children] ::tc
0070: 6c 74 65 73 74 5d 20 3c 20 30 7d 20 7b 0a 09 70 ltest] < 0} {..p
0080: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 74 ackage require t
0090: 63 6c 74 65 73 74 0a 09 6e 61 6d 65 73 70 61 63 cltest..namespac
00a0: 65 20 69 6d 70 6f 72 74 20 3a 3a 74 63 6c 74 65 e import ::tclte
00b0: 73 74 3a 3a 2a 0a 7d 0a 0a 73 65 74 20 3a 3a 61 st::*.}..set ::a
00c0: 75 74 6f 5f 70 61 74 68 20 5b 63 6f 6e 63 61 74 uto_path [concat
00d0: 20 5b 6c 69 73 74 20 5b 66 69 6c 65 20 64 69 72 [list [file dir
00e0: 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 name [file dirna
00f0: 6d 65 20 5b 69 6e 66 6f 20 73 63 72 69 70 74 5d me [info script]
0100: 5d 5d 5d 20 24 3a 3a 61 75 74 6f 5f 70 61 74 68 ]]] $::auto_path
0110: 5d 0a 0a 70 61 63 6b 61 67 65 20 70 72 65 66 65 ]..package prefe
0120: 72 20 6c 61 74 65 73 74 0a 70 61 63 6b 61 67 65 r latest.package
0130: 20 72 65 71 75 69 72 65 20 74 6c 73 0a 70 61 63 require tls.pac
0140: 6b 61 67 65 20 72 65 71 75 69 72 65 20 68 74 74 kage require htt
0150: 70 0a 0a 23 20 43 6f 6e 73 74 72 61 69 6e 74 73 p..# Constraints
0160: 0a 73 65 74 20 64 69 72 20 5b 66 69 6c 65 20 6a .set dir [file j
0170: 6f 69 6e 20 5b 70 77 64 5d 20 5b 66 69 6c 65 20 oin [pwd] [file
0180: 64 69 72 6e 61 6d 65 20 5b 69 6e 66 6f 20 73 63 dirname [info sc
0190: 72 69 70 74 5d 5d 5d 0a 73 6f 75 72 63 65 20 5b ript]]].source [
01a0: 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 63 file join $dir c
01b0: 6f 6d 6d 6f 6e 2e 74 63 6c 5d 0a 0a 23 20 48 65 ommon.tcl]..# He
01c0: 6c 70 65 72 20 66 75 6e 63 74 69 6f 6e 73 0a 73 lper functions.s
01d0: 65 74 20 3a 3a 63 61 66 69 6c 65 20 5b 66 69 6c et ::cafile [fil
01e0: 65 20 6a 6f 69 6e 20 24 64 69 72 20 63 65 72 74 e join $dir cert
01f0: 73 20 63 61 63 65 72 74 2e 70 65 6d 5d 0a 73 65 s cacert.pem].se
0200: 74 20 3a 3a 65 6e 76 28 53 53 4c 5f 43 45 52 54 t ::env(SSL_CERT
0210: 5f 46 49 4c 45 29 20 24 3a 3a 63 61 66 69 6c 65 _FILE) $::cafile
0220: 0a 3a 3a 68 74 74 70 3a 3a 72 65 67 69 73 74 65 .::http::registe
0230: 72 20 68 74 74 70 73 20 34 34 33 20 5b 6c 69 73 r https 443 [lis
0240: 74 20 3a 3a 74 6c 73 3a 3a 73 6f 63 6b 65 74 20 t ::tls::socket
0250: 2d 63 61 66 69 6c 65 20 24 3a 3a 63 61 66 69 6c -cafile $::cafil
0260: 65 5d 0a 70 72 6f 63 20 67 65 74 5f 75 72 6c 20 e].proc get_url
0270: 7b 75 72 6c 7d 20 7b 0a 20 20 20 20 73 65 74 20 {url} {. set
0280: 74 6f 6b 65 6e 20 5b 3a 3a 68 74 74 70 3a 3a 67 token [::http::g
0290: 65 74 75 72 6c 20 24 75 72 6c 5d 0a 20 20 20 20 eturl $url].
02a0: 73 65 74 20 62 6f 64 79 20 5b 3a 3a 68 74 74 70 set body [::http
02b0: 3a 3a 64 61 74 61 20 24 74 6f 6b 65 6e 5d 0a 20 ::data $token].
02c0: 20 20 20 3a 3a 68 74 74 70 3a 3a 63 6c 65 61 6e ::http::clean
02d0: 75 70 20 24 74 6f 6b 65 6e 0a 20 20 20 20 72 65 up $token. re
02e0: 74 75 72 6e 20 24 62 6f 64 79 0a 7d 0a 0a 70 72 turn $body.}..pr
02f0: 6f 63 20 67 65 74 5f 64 61 74 61 20 7b 75 72 6c oc get_data {url
0300: 7d 20 7b 0a 20 20 20 20 73 65 74 20 74 6f 6b 65 } {. set toke
0310: 6e 20 5b 3a 3a 68 74 74 70 3a 3a 67 65 74 75 72 n [::http::getur
0320: 6c 20 24 75 72 6c 5d 0a 20 20 20 20 73 65 74 20 l $url]. set
0330: 62 6f 64 79 20 5b 3a 3a 68 74 74 70 3a 3a 64 61 body [::http::da
0340: 74 61 20 24 74 6f 6b 65 6e 5d 0a 20 20 20 20 3a ta $token]. :
0350: 3a 68 74 74 70 3a 3a 63 6c 65 61 6e 75 70 20 24 :http::cleanup $
0360: 74 6f 6b 65 6e 0a 20 20 20 20 73 65 74 20 70 61 token. set pa
0370: 74 74 65 72 6e 20 7b 3c 62 6f 64 79 2e 2a 3f 3e ttern {<body.*?>
0380: 28 2e 2a 3f 29 3c 2f 62 6f 64 79 3e 7d 0a 20 20 (.*?)</body>}.
0390: 20 20 73 65 74 20 64 61 74 61 20 22 22 0a 20 20 set data "".
03a0: 20 20 72 65 67 65 78 70 20 2d 6e 6f 63 61 73 65 regexp -nocase
03b0: 20 24 70 61 74 74 65 72 6e 20 24 62 6f 64 79 20 $pattern $body
03c0: 6d 61 74 63 68 20 64 61 74 61 0a 20 20 20 20 72 match data. r
03d0: 65 74 75 72 6e 20 24 64 61 74 61 0a 7d 0a 0a 0a eturn $data.}...
03e0: 23 20 62 72 6f 77 73 65 72 6c 65 61 6b 73 2e 63 # browserleaks.c
03f0: 6f 6d 20 54 65 73 74 73 0a 0a 0a 74 65 73 74 20 om Tests...test
0400: 42 72 6f 77 73 65 72 4c 65 61 6b 73 2d 31 2e 31 BrowserLeaks-1.1
0410: 20 7b 54 4c 53 20 31 2e 33 7d 20 2d 63 6f 6e 73 {TLS 1.3} -cons
0420: 74 72 61 69 6e 74 73 20 7b 4f 70 65 6e 53 53 4c traints {OpenSSL
0430: 33 2e 32 7d 20 2d 62 6f 64 79 20 7b 0a 09 67 65 3.2} -body {..ge
0440: 74 5f 75 72 6c 20 68 74 74 70 73 3a 2f 2f 74 6c t_url https://tl
0450: 73 31 33 2e 62 72 6f 77 73 65 72 6c 65 61 6b 73 s13.browserleaks
0460: 2e 63 6f 6d 0a 20 20 20 20 7d 20 2d 72 65 73 75 .com. } -resu
0470: 6c 74 20 7b 54 4c 53 20 31 2e 33 7d 0a 0a 74 65 lt {TLS 1.3}..te
0480: 73 74 20 42 72 6f 77 73 65 72 4c 65 61 6b 73 2d st BrowserLeaks-
0490: 31 2e 32 20 7b 54 4c 53 20 31 2e 32 7d 20 2d 63 1.2 {TLS 1.2} -c
04a0: 6f 6e 73 74 72 61 69 6e 74 73 20 7b 4f 70 65 6e onstraints {Open
04b0: 53 53 4c 33 2e 32 7d 20 2d 62 6f 64 79 20 7b 0a SSL3.2} -body {.
04c0: 09 67 65 74 5f 75 72 6c 20 68 74 74 70 73 3a 2f .get_url https:/
04d0: 2f 74 6c 73 31 32 2e 62 72 6f 77 73 65 72 6c 65 /tls12.browserle
04e0: 61 6b 73 2e 63 6f 6d 0a 20 20 20 20 7d 20 2d 72 aks.com. } -r
04f0: 65 73 75 6c 74 20 7b 54 4c 53 20 31 2e 32 7d 0a esult {TLS 1.2}.
0500: 0a 74 65 73 74 20 42 72 6f 77 73 65 72 4c 65 61 .test BrowserLea
0510: 6b 73 2d 31 2e 33 20 7b 54 4c 53 20 31 2e 31 7d ks-1.3 {TLS 1.1}
0520: 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b 4f -constraints {O
0530: 70 65 6e 53 53 4c 33 2e 32 7d 20 2d 62 6f 64 79 penSSL3.2} -body
0540: 20 7b 0a 09 67 65 74 5f 75 72 6c 20 68 74 74 70 {..get_url http
0550: 73 3a 2f 2f 74 6c 73 31 31 2e 62 72 6f 77 73 65 s://tls11.browse
0560: 72 6c 65 61 6b 73 2e 63 6f 6d 0a 20 20 20 20 7d rleaks.com. }
0570: 20 2d 72 65 73 75 6c 74 20 7b 66 61 69 6c 65 64 -result {failed
0580: 20 74 6f 20 75 73 65 20 73 6f 63 6b 65 74 7d 20 to use socket}
0590: 2d 72 65 74 75 72 6e 43 6f 64 65 73 20 7b 31 7d -returnCodes {1}
05a0: 0a 0a 74 65 73 74 20 42 72 6f 77 73 65 72 4c 65 ..test BrowserLe
05b0: 61 6b 73 2d 31 2e 34 20 7b 54 4c 53 20 31 2e 30 aks-1.4 {TLS 1.0
05c0: 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b } -constraints {
05d0: 4f 70 65 6e 53 53 4c 33 2e 32 7d 20 2d 62 6f 64 OpenSSL3.2} -bod
05e0: 79 20 7b 0a 09 67 65 74 5f 75 72 6c 20 68 74 74 y {..get_url htt
05f0: 70 73 3a 2f 2f 74 6c 73 31 30 2e 62 72 6f 77 73 ps://tls10.brows
0600: 65 72 6c 65 61 6b 73 2e 63 6f 6d 0a 20 20 20 20 erleaks.com.
0610: 7d 20 2d 72 65 73 75 6c 74 20 7b 66 61 69 6c 65 } -result {faile
0620: 64 20 74 6f 20 75 73 65 20 73 6f 63 6b 65 74 7d d to use socket}
0630: 20 2d 72 65 74 75 72 6e 43 6f 64 65 73 20 7b 31 -returnCodes {1
0640: 7d 0a 0a 74 65 73 74 20 42 72 6f 77 73 65 72 4c }..test BrowserL
0650: 65 61 6b 73 2d 31 2e 35 20 7b 4a 41 34 20 52 61 eaks-1.5 {JA4 Ra
0660: 77 20 46 69 6e 67 65 72 70 72 69 6e 74 7d 20 2d w Fingerprint} -
0670: 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b 4f 70 65 constraints {Ope
0680: 6e 53 53 4c 33 2e 32 7d 20 2d 62 6f 64 79 20 7b nSSL3.2} -body {
0690: 0a 09 67 65 74 5f 64 61 74 61 20 68 74 74 70 73 ..get_data https
06a0: 3a 2f 2f 74 6c 73 2e 62 72 6f 77 73 65 72 6c 65 ://tls.browserle
06b0: 61 6b 73 2e 63 6f 6d 2f 69 66 72 61 6d 65 2f 6a aks.com/iframe/j
06c0: 61 34 0a 20 20 20 20 7d 20 2d 6d 61 74 63 68 20 a4. } -match
06d0: 7b 67 6c 6f 62 7d 20 2d 72 65 73 75 6c 74 20 7b {glob} -result {
06e0: 74 2a 7d 0a 0a 74 65 73 74 20 42 72 6f 77 73 65 t*}..test Browse
06f0: 72 4c 65 61 6b 73 2d 31 2e 36 20 7b 4a 41 34 20 rLeaks-1.6 {JA4
0700: 52 61 77 20 46 69 6e 67 65 72 70 72 69 6e 74 2c Raw Fingerprint,
0710: 20 4f 72 69 67 69 6e 61 6c 20 4f 72 64 65 72 7d Original Order}
0720: 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b 4f -constraints {O
0730: 70 65 6e 53 53 4c 33 2e 32 7d 20 2d 62 6f 64 79 penSSL3.2} -body
0740: 20 7b 0a 09 67 65 74 5f 64 61 74 61 20 68 74 74 {..get_data htt
0750: 70 73 3a 2f 2f 74 6c 73 2e 62 72 6f 77 73 65 72 ps://tls.browser
0760: 6c 65 61 6b 73 2e 63 6f 6d 2f 69 66 72 61 6d 65 leaks.com/iframe
0770: 2f 6a 61 34 5f 6f 0a 20 20 20 20 7d 20 2d 6d 61 /ja4_o. } -ma
0780: 74 63 68 20 7b 67 6c 6f 62 7d 20 2d 72 65 73 75 tch {glob} -resu
0790: 6c 74 20 7b 74 2a 7d 0a 0a 74 65 73 74 20 42 72 lt {t*}..test Br
07a0: 6f 77 73 65 72 4c 65 61 6b 73 2d 31 2e 37 20 7b owserLeaks-1.7 {
07b0: 4a 41 33 20 52 61 77 20 46 69 6e 67 65 72 70 72 JA3 Raw Fingerpr
07c0: 69 6e 74 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 int} -constraint
07d0: 73 20 7b 4f 70 65 6e 53 53 4c 33 2e 32 7d 20 2d s {OpenSSL3.2} -
07e0: 62 6f 64 79 20 7b 0a 09 67 65 74 5f 64 61 74 61 body {..get_data
07f0: 20 68 74 74 70 73 3a 2f 2f 74 6c 73 2e 62 72 6f https://tls.bro
0800: 77 73 65 72 6c 65 61 6b 73 2e 63 6f 6d 2f 69 66 wserleaks.com/if
0810: 72 61 6d 65 2f 6a 61 33 0a 20 20 20 20 7d 20 2d rame/ja3. } -
0820: 6d 61 74 63 68 20 7b 67 6c 6f 62 7d 20 2d 72 65 match {glob} -re
0830: 73 75 6c 74 20 7b 2a 7d 0a 0a 74 65 73 74 20 42 sult {*}..test B
0840: 72 6f 77 73 65 72 4c 65 61 6b 73 2d 31 2e 38 20 rowserLeaks-1.8
0850: 7b 4a 41 33 20 52 61 77 20 46 69 6e 67 65 72 70 {JA3 Raw Fingerp
0860: 72 69 6e 74 2c 20 4f 72 69 67 69 6e 61 6c 20 4f rint, Original O
0870: 72 64 65 72 7d 20 2d 63 6f 6e 73 74 72 61 69 6e rder} -constrain
0880: 74 73 20 7b 4f 70 65 6e 53 53 4c 33 2e 32 7d 20 ts {OpenSSL3.2}
0890: 2d 62 6f 64 79 20 7b 0a 09 67 65 74 5f 64 61 74 -body {..get_dat
08a0: 61 20 68 74 74 70 73 3a 2f 2f 74 6c 73 2e 62 72 a https://tls.br
08b0: 6f 77 73 65 72 6c 65 61 6b 73 2e 63 6f 6d 2f 69 owserleaks.com/i
08c0: 66 72 61 6d 65 2f 6a 61 33 5f 6e 0a 20 20 20 20 frame/ja3_n.
08d0: 7d 20 2d 6d 61 74 63 68 20 7b 67 6c 6f 62 7d 20 } -match {glob}
08e0: 2d 72 65 73 75 6c 74 20 7b 2a 7d 0a 0a 74 65 73 -result {*}..tes
08f0: 74 20 42 72 6f 77 73 65 72 4c 65 61 6b 73 2d 31 t BrowserLeaks-1
0900: 2e 39 20 7b 45 6e 63 72 79 70 74 65 64 20 43 6c .9 {Encrypted Cl
0910: 69 65 6e 74 20 48 65 6c 6c 6f 7d 20 2d 63 6f 6e ient Hello} -con
0920: 73 74 72 61 69 6e 74 73 20 7b 4f 70 65 6e 53 53 straints {OpenSS
0930: 4c 33 2e 32 7d 20 2d 62 6f 64 79 20 7b 0a 09 67 L3.2} -body {..g
0940: 65 74 5f 64 61 74 61 20 68 74 74 70 73 3a 2f 2f et_data https://
0950: 74 6c 73 2e 62 72 6f 77 73 65 72 6c 65 61 6b 73 tls.browserleaks
0960: 2e 63 6f 6d 2f 69 66 72 61 6d 65 2f 65 63 68 0a .com/iframe/ech.
0970: 20 20 20 20 7d 20 2d 6d 61 74 63 68 20 7b 67 6c } -match {gl
0980: 6f 62 7d 20 2d 72 65 73 75 6c 74 20 7b 2a 46 61 ob} -result {*Fa
0990: 6c 73 65 2a 7d 0a 0a 23 20 43 6c 65 61 6e 75 70 lse*}..# Cleanup
09a0: 0a 3a 3a 74 63 6c 74 65 73 74 3a 3a 63 6c 65 61 .::tcltest::clea
09b0: 6e 75 70 54 65 73 74 73 0a 72 65 74 75 72 6e 0a nupTests.return.