59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
break
}
}
if {$plain != $orig} {
puts "Decryption error! Expected \"$orig\", got \"$plain\""
exit 1
}
set cipher [pki::encrypt -binary -priv -- $orig $certinfo_list]
set plain [pki::decrypt -binary -pub -- $cipher $certinfo_list]
set sig [pki::sign $orig $certinfo_list]
set verify [pki::verify $sig $orig $certinfo_list]
if {!$verify} {
puts "Signature verification error!"
exit 1
}
}
pki::pkcs11::unloadmodule $handle
|
|
|
|
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
break
}
}
if {$plain != $orig} {
puts "Decryption error! Expected \"$orig\", got \"$plain\""
break
}
set cipher [pki::encrypt -binary -priv -- $orig $certinfo_list]
set plain [pki::decrypt -binary -pub -- $cipher $certinfo_list]
set sig [pki::sign $orig $certinfo_list]
set verify [pki::verify $sig $orig $certinfo_list]
if {!$verify} {
puts "Signature verification error!"
break
}
}
pki::pkcs11::unloadmodule $handle
|