Commit 422807cefc7b65270d0526362fa02e979953a465 - libcryptx-perl - Codebase list

Codebase list libcryptx-perl / 422807c

fix openssltest Karel Miko 6 years ago

2 changed file(s) with 4 addition(s) and 4 deletion(s). Raw diff Collapse all Expand all

+2

-2

t/openssl/dsa-test.pl less more

25	25
26	26	my $pkdsa = Crypt::PK::DSA->new("test_dsakey.pub.pem");
27	27	my $signature = read_rawfile("test_input.sha1-dsa.sig");
28		my $valid = $pkdsa->verify_hash($signature, digest_file("SHA1", "test_input.data"), "SHA1", "v1.5");
	28	my $valid = $pkdsa->verify_hash($signature, digest_file("SHA1", "test_input.data"));
29	29	print $valid ? "SUCCESS" : "FAILURE";
30	30	}
31	31

36	36	use Crypt::Misc 'write_rawfile';
37	37
38	38	my $pkdsa = Crypt::PK::DSA->new("test_dsakey.priv.pem");
39		my $signature = $pkdsa->sign_hash(digest_file("SHA1", "test_input.data"), "SHA1", "v1.5");
	39	my $signature = $pkdsa->sign_hash(digest_file("SHA1", "test_input.data"));
40	40	write_rawfile("test_input.sha1-dsa.sig", $signature);
41	41	}
42	42

+2

-2

t/openssl/ecc-test.pl less more

25	25
26	26	my $pkec = Crypt::PK::ECC->new("test_eckey.pub.pem");
27	27	my $signature = read_rawfile("test_input.sha1-ec.sig");
28		my $valid = $pkec->verify_hash($signature, digest_file("SHA1", "test_input.data"), "SHA1", "v1.5");
	28	my $valid = $pkec->verify_hash($signature, digest_file("SHA1", "test_input.data"), "SHA1");
29	29	print $valid ? "SUCCESS" : "FAILURE";
30	30	}
31	31

36	36	use Crypt::Misc 'write_rawfile';
37	37
38	38	my $pkec = Crypt::PK::ECC->new("test_eckey.priv.pem");
39		my $signature = $pkec->sign_hash(digest_file("SHA1", "test_input.data"), "SHA1", "v1.5");
	39	my $signature = $pkec->sign_hash(digest_file("SHA1", "test_input.data"), "SHA1");
40	40	write_rawfile("test_input.sha1-ec.sig", $signature);
41	41	}
42	42