+ if (defined $malice && $malice ne "") {
+ # Malice: negative test -- this PEM is in the small subgroup
+ open $F,">",'malice.pub';
+ print $F $malice;
+ close $F;
+ # NB system should return true on failure, so this is a negative test
+ ok(system("openssl pkeyutl -derive -inkey bob.prv -keyform PEM -peerkey malice.pub -peerform PEM -pkeyopt ukmhex:0100000000000000 -out secret_m.bin"), "Compute shared key:$id:Malice");
+ }