Commit fdc59779e5f71cdb708ffab08f38a7c1ce38fbeb - libcryptx-perl

+59

-14

lib/Crypt/PK/RSA.pm less more

521	521
522	522	Create encrypted file (from commandline):
523	523
524		echo 'secret message' \| openssl rsautl -encrypt -inkey rsakey.pub.pem -pubin -out input.encrypted.rsa
	524	openssl rsautl -encrypt -inkey rsakey.pub.pem -pubin -out input.encrypted.rsa -in input.data
525	525
526	526	Decrypt file (Perl code):
527	527

557	557
558	558	Verify signature (Perl code):
559	559
560		use Crypt::PK::RSA;
561		use Crypt::Digest 'digest_file';
562		use File::Slurp 'read_file';
	560	use Crypt::PK::RSA;
	561	use Crypt::Digest 'digest_file';
	562	use File::Slurp 'read_file';
563	563
564		my $pkrsa = Crypt::PK::RSA->new("rsakey.pub.pem");
565		my $signature = read_file("input.sha1-rsa.sig", binmode=>':raw');
566		my $valid = $pkrsa->verify_hash($signature, digest_file("SHA1", "input.data"), "SHA1", "v1.5");
567		print $valid ? "SUCCESS" : "FAILURE";
	564	my $pkrsa = Crypt::PK::RSA->new("rsakey.pub.pem");
	565	my $signature = read_file("input.sha1-rsa.sig", binmode=>':raw');
	566	my $valid = $pkrsa->verify_hash($signature, digest_file("SHA1", "input.data"), "SHA1", "v1.5");
	567	print $valid ? "SUCCESS" : "FAILURE";
568	568
569	569	=head2 Sign by Crypt::PK::RSA, verify by OpenSSL
570	570
571	571	Create signature (Perl code):
572	572
573		use Crypt::PK::RSA;
574		use Crypt::Digest 'digest_file';
575		use File::Slurp 'write_file';
	573	use Crypt::PK::RSA;
	574	use Crypt::Digest 'digest_file';
	575	use File::Slurp 'write_file';
576	576
577		my $pkrsa = Crypt::PK::RSA->new("rsakey.priv.pem");
578		my $signature = $pkrsa->sign_hash(digest_file("SHA1", "input.data"), "SHA1", "v1.5");
579		write_file("input.sha1-rsa.sig", {binmode=>':raw'}, $signature);
	577	my $pkrsa = Crypt::PK::RSA->new("rsakey.priv.pem");
	578	my $signature = $pkrsa->sign_hash(digest_file("SHA1", "input.data"), "SHA1", "v1.5");
	579	write_file("input.sha1-rsa.sig", {binmode=>':raw'}, $signature);
580	580
581	581	Verify signature (from commandline):
582	582
583	583	openssl dgst -sha1 -verify rsakey.pub.pem -signature input.sha1-rsa.sig input.data
584	584
	585	=head2 Keys generated by Crypt::PK::RSA
	586
	587	Generate keys (Perl code):
	588
	589	use Crypt::PK::RSA;
	590	use File::Slurp 'write_file';
	591
	592	my $pkrsa = Crypt::PK::RSA->new;
	593	$pkrsa->generate_key(256, 65537);
	594	write_file("rsakey.pub.der", {binmode=>':raw'}, $pkrsa->export_key_der('public'));
	595	write_file("rsakey.priv.der", {binmode=>':raw'}, $pkrsa->export_key_der('private'));
	596	write_file("rsakey.pub.pem", $pkrsa->export_key_pem('public_x509'));
	597	write_file("rsakey.priv.pem", $pkrsa->export_key_pem('private'));
	598	write_file("rsakey-passwd.priv.pem", $pkrsa->export_key_pem('private', 'secret'));
	599
	600	Use keys by OpenSSL:
	601
	602	openssl rsa -in rsakey.priv.der -text -inform der
	603	openssl rsa -in rsakey.priv.pem -text
	604	openssl rsa -in rsakey-passwd.priv.pem -text -inform pem -passin pass:secret
	605	openssl rsa -in rsakey.pub.der -pubin -text -inform der
	606	openssl rsa -in rsakey.pub.pem -pubin -text
	607
	608	=head2 Keys generated by OpenSSL
	609
	610	Generate keys:
	611
	612	openssl genrsa -out rsakey.priv.pem 1024
	613	openssl rsa -in rsakey.priv.pem -out rsakey.priv.der -outform der
	614	openssl rsa -in rsakey.priv.pem -out rsakey.pub.pem -pubout
	615	openssl rsa -in rsakey.priv.pem -out rsakey.pub.der -outform der -pubout
	616	openssl rsa -in rsakey.priv.pem -passout pass:secret -des3 -out rsakey-passwd.priv.pem
	617
	618	Load keys (Perl code):
	619
	620	use Crypt::PK::RSA;
	621	use File::Slurp 'write_file';
	622
	623	my $pkrsa = Crypt::PK::RSA->new;
	624	$pkrsa->import_key("rsakey.pub.der");
	625	$pkrsa->import_key("rsakey.priv.der");
	626	$pkrsa->import_key("rsakey.pub.pem");
	627	$pkrsa->import_key("rsakey.priv.pem");
	628	$pkrsa->import_key("rsakey-passwd.priv.pem", "secret");
	629
585	630	=head1 SEE ALSO
586	631
587	632	=over

+2

-1

lib/Crypt/PK.pm less more

53	53	sub _pem_to_asn1 {
54	54	my ($data, $password) = @_;
55	55
56		my ($begin, $object, $headers, $content, $end) = $data =~ m/(-----BEGIN ([^\n\-]+KEY)-----)\n(.?\n\n)?(.+)(-----END .?-----)/s;
	56	my ($begin, $object, $headers, $content, $end) = $data =~ m/(-----BEGIN ([^\r\n\-]+KEY)-----)\r?\n(.?\r?\n\r?\n)?(.+)(-----END [^\r\n\-]-----)/s;
	57
57	58	return $content unless $content;
58	59	$content = decode_base64($content);
59	60

+1

-2

lib/CryptX.xs less more

293	293	#endif
294	294
295	295	int
296		CryptX_test(s)
297		int s
	296	CryptX_test(int s)
298	297	CODE:
299	298	RETVAL = s+1; /xxx/
300	299	OUTPUT:

+2

-3

src/ltc/pk/asn1/der/sequence/der_decode_sequence_multi.c less more

110	110	case LTC_ASN1_SEQUENCE:
111	111	case LTC_ASN1_SET:
112	112	case LTC_ASN1_SETOF:
	113	case LTC_ASN1_RAW_BIT_STRING:
113	114	case LTC_ASN1_CHOICE:
114		list[x].type = type;
115		list[x].size = size;
116		list[x++].data = data;
	115	LTC_SET_ASN1(list, x++, type, data, size);
117	116	break;
118	117
119	118	default:

+1

-3

src/ltc/pk/asn1/der/sequence/der_encode_sequence_multi.c less more

112	112	case LTC_ASN1_SET:
113	113	case LTC_ASN1_SETOF:
114	114	case LTC_ASN1_RAW_BIT_STRING:
115		list[x].type = type;
116		list[x].size = size;
117		list[x++].data = data;
	115	LTC_SET_ASN1(list, x++, type, data, size);
118	116	break;
119	117
120	118	default:

+2

-7

src/ltc/pk/asn1/der/sequence/der_encode_subject_public_key_info.c less more

48	48	return err;
49	49	}
50	50
51		alg_id[0].data = oid.OID;
52		alg_id[0].size = oid.OIDlen;
53		alg_id[0].type = LTC_ASN1_OBJECT_IDENTIFIER;
54
55		alg_id[1].data = parameters;
56		alg_id[1].size = parameters_len;
57		alg_id[1].type = parameters_type;
	51	LTC_SET_ASN1(alg_id, 0, LTC_ASN1_OBJECT_IDENTIFIER, oid.OID, oid.OIDlen);
	52	LTC_SET_ASN1(alg_id, 1, parameters_type, parameters, parameters_len);
58	53
59	54	return der_encode_sequence_multi(out, outlen,
60	55	LTC_ASN1_SEQUENCE, (unsigned long)sizeof(alg_id)/sizeof(alg_id[0]), alg_id,

+3

-9

src/ltc/pk/dsa/dsa_export.c less more

70	70	goto error;
71	71	}
72	72
73		int_list[0].data = key->p;
74		int_list[0].size = 1UL;
75		int_list[0].type = LTC_ASN1_INTEGER;
76		int_list[1].data = key->q;
77		int_list[1].size = 1UL;
78		int_list[1].type = LTC_ASN1_INTEGER;
79		int_list[2].data = key->g;
80		int_list[2].size = 1UL;
81		int_list[2].type = LTC_ASN1_INTEGER;
	73	LTC_SET_ASN1(int_list, 0, LTC_ASN1_INTEGER, key->p, 1UL);
	74	LTC_SET_ASN1(int_list, 1, LTC_ASN1_INTEGER, key->q, 1UL);
	75	LTC_SET_ASN1(int_list, 2, LTC_ASN1_INTEGER, key->g, 1UL);
82	76
83	77	err = der_encode_subject_public_key_info(out, outlen,
84	78	PKA_DSA, tmp, tmplen,