29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
if {$i ni $list1} {
lappend u $i
}
}
return [list "missing" $m "unexpected" $u]
}
proc exec_get {delim args} {return [split [exec openssl {*}$args] $delim]}
proc exec_get_ciphers {} {
set list [list]
set data [exec openssl list -cipher-algorithms]
foreach line [split $data "\n"] {
set line [string trim $line]
if {$line eq "Legacy:"} continue
if {$line eq "Provided:"} break
|
|
>
>
>
|
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
if {$i ni $list1} {
lappend u $i
}
}
return [list "missing" $m "unexpected" $u]
}
proc exec_get {delim args} {
return [split [exec openssl {*}$args] $delim]
}
proc exec_get_ciphers {} {
set list [list]
set data [exec openssl list -cipher-algorithms]
foreach line [split $data "\n"] {
set line [string trim $line]
if {$line eq "Legacy:"} continue
if {$line eq "Provided:"} break
|
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
if {$line eq "Legacy:" || [string match "Type:*" $line]} continue
if {$line eq "Provided:"} break
lappend list [string trim $line]
}
return $list
}
proc exec_get_macs {} {return [list cmac hmac]}
proc list_tolower {list} {
set result [list]
foreach element $list {
lappend result [string tolower $element]
}
return $result
}
|
|
>
>
>
|
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
if {$line eq "Legacy:" || [string match "Type:*" $line]} continue
if {$line eq "Provided:"} break
lappend list [string trim $line]
}
return $list
}
proc exec_get_macs {} {
return [list cmac hmac]
}
proc list_tolower {list} {
set result [list]
foreach element $list {
lappend result [string tolower $element]
}
return $result
}
|