more diag
Karel Miko
6 years ago
| 10 | 10 | |
| 11 | 11 | use CryptX; |
| 12 | 12 | use Crypt::Misc 'read_rawfile'; |
| 13 | use Crypt::Digest 'digest_data'; | |
| 13 | 14 | |
| 14 | 15 | if (1) { |
| 15 | 16 | use Crypt::AuthEnc::GCM qw(gcm_encrypt_authenticate gcm_decrypt_verify); |
| 116 | 117 | my $testname = "type=$type/$sha tcId=$tcId comment='$comment' expected-result=$result"; |
| 117 | 118 | my $pk = Crypt::PK::DSA->new( \$keyPem ); |
| 118 | 119 | my $valid = $pk->verify_message($sig, $message, $sha); |
| 120 | my $hash = digest_data($sha, $message); | |
| 121 | my $valid_h = $pk->verify_hash($sig, $hash); | |
| 122 | if ($tcId==55) { | |
| 123 | diag "SPECIAL: tcId 55"; | |
| 124 | diag "sig-len:".length($sig)." sig-hex:".unpack("H*", $sig); | |
| 125 | diag "msg-len:".length($message)." msg-hex:".unpack("H*", $message); | |
| 126 | diag "hash-len:".length($hash)." hash-hex:".unpack("H*", $hash); | |
| 127 | diag "hash:$sha valid_m:$valid valid_h:$valid_h"; | |
| 128 | } | |
| 119 | 129 | if ($result eq 'valid' || $result eq 'acceptable') { |
| 120 | 130 | ok($valid, $testname); |
| 121 | 131 | } |