Commit a3655dcbc589eaf20a58b37d815a893b608f7dc3 - libcryptx-perl

optimized ecc_encrypt_key Karel Miko 10 years ago

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

-1

src/ltc/pk/ecc/ecc_encrypt_key.c less more

83	83	}
84	84
85	85	pubkeysize = ECC_BUF_SIZE;
86		if ((err = ecc_export_raw(pub_expt, &pubkeysize, PK_PUBLIC, &pubkey)) != CRYPT_OK) {
	86	if ((err = ecc_export_raw(pub_expt, &pubkeysize, PK_PUBLIC_COMPRESSED, &pubkey)) != CRYPT_OK) {
87	87	ecc_free(&pubkey);
88	88	goto LBL_ERR;
89	89	}

-1

t/pk_ecc.t less more

64	64
65	65	my $ct = $pu1->encrypt("secret message");
66	66	my $pt = $pr1->decrypt($ct);
67		ok(length $ct > 80, 'encrypt ' . length($ct));
	67	ok(length $ct > 30, 'encrypt ' . length($ct));
68	68	is($pt, "secret message", 'decrypt');
69	69
70	70	my $sig = $pr1->sign_message("message");