20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
if {$i ni $list1} {
lappend u $i
}
}
return [list ""missing"" $m ""unexpected"" $u]
}
",,,,,,,,,
command,proc exec_get {delim args} {return [split [exec openssl {*}$args] $delim]},,,,,,,,,
|
>
|
>
>
|
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
if {$i ni $list1} {
lappend u $i
}
}
return [list ""missing"" $m ""unexpected"" $u]
}
",,,,,,,,,
command,"proc exec_get {delim args} {
return [split [exec openssl {*}$args] $delim]
}
",,,,,,,,,
command,"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
|
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
if {$line eq ""Legacy:"" || [string match ""Type:*"" $line]} continue
if {$line eq ""Provided:""} break
lappend list [string trim $line]
}
return $list
}
",,,,,,,,,
command,proc exec_get_macs {} {return [list cmac hmac]},,,,,,,,,
|
>
|
>
>
|
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
if {$line eq ""Legacy:"" || [string match ""Type:*"" $line]} continue
if {$line eq ""Provided:""} break
lappend list [string trim $line]
}
return $list
}
",,,,,,,,,
command,"proc exec_get_macs {} {
return [list cmac hmac]
}
",,,,,,,,,
command,"proc list_tolower {list} {
set result [list]
foreach element $list {
lappend result [string tolower $element]
}
return $result
}
|