Commit upstream/0.071+git20210410.1.8e1295b - libcryptx-perl

+7

-0

Changes less more

0	0	Changes for CryptX
	1
	2	0.072 2021-XX-XX
	3	- fix #69 Identifier Octet's Leniency in RSA PKCS#1 Signature Verification
	4	- bundled libtomcrypt update branch:develop (commit:ddf1b63a 2021-04-10)
	5
	6	0.071 2021-03-30
	7	- fix #67 (better handling of PEM decoding failures)
1	8
2	9	0.070 2021-02-12
3	10	- fix #66 remove -flto=auto (Makefile.PL)

+2

-2

MANIFEST less more

150	150	LICENSE
151	151	Makefile.PL
152	152	MANIFEST This list of files
153		META.json
154		META.yml
155	153	ppport.h
156	154	README.md
157	155	src/ltc/ciphers/aes/aes.c

1082	1080	t/prng_yarrow.t
1083	1081	t/sshkey.t
1084	1082	typemap
	1083	META.yml Module YAML meta-data (added by MakeMaker)
	1084	META.json Module JSON meta-data (added by MakeMaker)

+4

-4

META.json less more

3	3	"Karel Miko"
4	4	],
5	5	"dynamic_config" : 1,
6		"generated_by" : "ExtUtils::MakeMaker version 7.58, CPAN::Meta::Converter version 2.150010",
	6	"generated_by" : "ExtUtils::MakeMaker version 7.44, CPAN::Meta::Converter version 2.150010",
7	7	"license" : [
8	8	"perl_5"
9	9	],

40	40	}
41	41	}
42	42	},
43		"release_status" : "stable",
	43	"release_status" : "unstable",
44	44	"resources" : {
45	45	"bugtracker" : {
46	46	"web" : "https://github.com/DCIT/perl-CryptX/issues"

49	49	"url" : "https://github.com/DCIT/perl-CryptX"
50	50	}
51	51	},
52		"version" : "0.070",
53		"x_serialization_backend" : "JSON::PP version 4.05"
	52	"version" : "0.071_001",
	53	"x_serialization_backend" : "JSON::PP version 4.04"
54	54	}

+2

-2

META.yml less more

7	7	configure_requires:
8	8	ExtUtils::MakeMaker: '0'
9	9	dynamic_config: 1
10		generated_by: 'ExtUtils::MakeMaker version 7.58, CPAN::Meta::Converter version 2.150010'
	10	generated_by: 'ExtUtils::MakeMaker version 7.44, CPAN::Meta::Converter version 2.150010'
11	11	license: perl
12	12	meta-spec:
13	13	url: http://module-build.sourceforge.net/META-spec-v1.4.html

22	22	resources:
23	23	bugtracker: https://github.com/DCIT/perl-CryptX/issues
24	24	repository: https://github.com/DCIT/perl-CryptX
25		version: '0.070'
	25	version: 0.071_001
26	26	x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

+1

-1

Makefile.PL less more

73	73	PREREQ_PM => { },
74	74	TEST_REQUIRES => { 'Test::More' => 0 },
75	75	META_MERGE => { resources => { repository => 'https://github.com/DCIT/perl-CryptX', bugtracker => 'https://github.com/DCIT/perl-CryptX/issues' } },
76		dist => { PREOP => 'perldoc -u lib/CryptX.pm \| pod2markdown > README.md', TAR => 'ptar', TARFLAGS => '-c -C -f' },
	76	dist => { PREOP => 'perldoc -u lib/CryptX.pm \| pod2markdown > README.md', TARFLAGS => '--owner=0 --group=0 -cvf' },
77	77	@EUMM_INC_LIB
78	78	);
79	79

+0

-70

README.md less more

0		# NAME
1	0
2		CryptX - Cryptographic toolkit
3
4		# DESCRIPTION
5
6		Perl modules providing a cryptography based on [LibTomCrypt](https://github.com/libtom/libtomcrypt) library.
7
8		- Symmetric ciphers - see [Crypt::Cipher](https://metacpan.org/pod/Crypt%3A%3ACipher) and related modules
9
10		[Crypt::Cipher::AES](https://metacpan.org/pod/Crypt%3A%3ACipher%3A%3AAES), [Crypt::Cipher::Anubis](https://metacpan.org/pod/Crypt%3A%3ACipher%3A%3AAnubis), [Crypt::Cipher::Blowfish](https://metacpan.org/pod/Crypt%3A%3ACipher%3A%3ABlowfish), [Crypt::Cipher::Camellia](https://metacpan.org/pod/Crypt%3A%3ACipher%3A%3ACamellia), [Crypt::Cipher::CAST5](https://metacpan.org/pod/Crypt%3A%3ACipher%3A%3ACAST5), [Crypt::Cipher::DES](https://metacpan.org/pod/Crypt%3A%3ACipher%3A%3ADES),
11		[Crypt::Cipher::DES\_EDE](https://metacpan.org/pod/Crypt%3A%3ACipher%3A%3ADES_EDE), [Crypt::Cipher::IDEA](https://metacpan.org/pod/Crypt%3A%3ACipher%3A%3AIDEA), [Crypt::Cipher::KASUMI](https://metacpan.org/pod/Crypt%3A%3ACipher%3A%3AKASUMI), [Crypt::Cipher::Khazad](https://metacpan.org/pod/Crypt%3A%3ACipher%3A%3AKhazad), [Crypt::Cipher::MULTI2](https://metacpan.org/pod/Crypt%3A%3ACipher%3A%3AMULTI2), [Crypt::Cipher::Noekeon](https://metacpan.org/pod/Crypt%3A%3ACipher%3A%3ANoekeon),
12		[Crypt::Cipher::RC2](https://metacpan.org/pod/Crypt%3A%3ACipher%3A%3ARC2), [Crypt::Cipher::RC5](https://metacpan.org/pod/Crypt%3A%3ACipher%3A%3ARC5), [Crypt::Cipher::RC6](https://metacpan.org/pod/Crypt%3A%3ACipher%3A%3ARC6), [Crypt::Cipher::SAFERP](https://metacpan.org/pod/Crypt%3A%3ACipher%3A%3ASAFERP), [Crypt::Cipher::SAFER\_K128](https://metacpan.org/pod/Crypt%3A%3ACipher%3A%3ASAFER_K128), [Crypt::Cipher::SAFER\_K64](https://metacpan.org/pod/Crypt%3A%3ACipher%3A%3ASAFER_K64),
13		[Crypt::Cipher::SAFER\_SK128](https://metacpan.org/pod/Crypt%3A%3ACipher%3A%3ASAFER_SK128), [Crypt::Cipher::SAFER\_SK64](https://metacpan.org/pod/Crypt%3A%3ACipher%3A%3ASAFER_SK64), [Crypt::Cipher::SEED](https://metacpan.org/pod/Crypt%3A%3ACipher%3A%3ASEED), [Crypt::Cipher::Serpent](https://metacpan.org/pod/Crypt%3A%3ACipher%3A%3ASerpent), [Crypt::Cipher::Skipjack](https://metacpan.org/pod/Crypt%3A%3ACipher%3A%3ASkipjack),
14		[Crypt::Cipher::Twofish](https://metacpan.org/pod/Crypt%3A%3ACipher%3A%3ATwofish), [Crypt::Cipher::XTEA](https://metacpan.org/pod/Crypt%3A%3ACipher%3A%3AXTEA)
15
16		- Block cipher modes
17
18		[Crypt::Mode::CBC](https://metacpan.org/pod/Crypt%3A%3AMode%3A%3ACBC), [Crypt::Mode::CFB](https://metacpan.org/pod/Crypt%3A%3AMode%3A%3ACFB), [Crypt::Mode::CTR](https://metacpan.org/pod/Crypt%3A%3AMode%3A%3ACTR), [Crypt::Mode::ECB](https://metacpan.org/pod/Crypt%3A%3AMode%3A%3AECB), [Crypt::Mode::OFB](https://metacpan.org/pod/Crypt%3A%3AMode%3A%3AOFB)
19
20		- Stream ciphers
21
22		[Crypt::Stream::RC4](https://metacpan.org/pod/Crypt%3A%3AStream%3A%3ARC4), [Crypt::Stream::ChaCha](https://metacpan.org/pod/Crypt%3A%3AStream%3A%3AChaCha), [Crypt::Stream::Salsa20](https://metacpan.org/pod/Crypt%3A%3AStream%3A%3ASalsa20), [Crypt::Stream::Sober128](https://metacpan.org/pod/Crypt%3A%3AStream%3A%3ASober128),
23		[Crypt::Stream::Sosemanuk](https://metacpan.org/pod/Crypt%3A%3AStream%3A%3ASosemanuk), [Crypt::Stream::Rabbit](https://metacpan.org/pod/Crypt%3A%3AStream%3A%3ARabbit)
24
25		- Authenticated encryption modes
26
27		[Crypt::AuthEnc::CCM](https://metacpan.org/pod/Crypt%3A%3AAuthEnc%3A%3ACCM), [Crypt::AuthEnc::EAX](https://metacpan.org/pod/Crypt%3A%3AAuthEnc%3A%3AEAX), [Crypt::AuthEnc::GCM](https://metacpan.org/pod/Crypt%3A%3AAuthEnc%3A%3AGCM), [Crypt::AuthEnc::OCB](https://metacpan.org/pod/Crypt%3A%3AAuthEnc%3A%3AOCB), [Crypt::AuthEnc::ChaCha20Poly1305](https://metacpan.org/pod/Crypt%3A%3AAuthEnc%3A%3AChaCha20Poly1305)
28
29		- Hash Functions - see [Crypt::Digest](https://metacpan.org/pod/Crypt%3A%3ADigest) and related modules
30
31		[Crypt::Digest::BLAKE2b\_160](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3ABLAKE2b_160), [Crypt::Digest::BLAKE2b\_256](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3ABLAKE2b_256), [Crypt::Digest::BLAKE2b\_384](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3ABLAKE2b_384), [Crypt::Digest::BLAKE2b\_512](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3ABLAKE2b_512),
32		[Crypt::Digest::BLAKE2s\_128](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3ABLAKE2s_128), [Crypt::Digest::BLAKE2s\_160](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3ABLAKE2s_160), [Crypt::Digest::BLAKE2s\_224](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3ABLAKE2s_224), [Crypt::Digest::BLAKE2s\_256](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3ABLAKE2s_256),
33		[Crypt::Digest::CHAES](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3ACHAES), [Crypt::Digest::MD2](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3AMD2), [Crypt::Digest::MD4](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3AMD4), [Crypt::Digest::MD5](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3AMD5), [Crypt::Digest::RIPEMD128](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3ARIPEMD128), [Crypt::Digest::RIPEMD160](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3ARIPEMD160),
34		[Crypt::Digest::RIPEMD256](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3ARIPEMD256), [Crypt::Digest::RIPEMD320](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3ARIPEMD320), [Crypt::Digest::SHA1](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3ASHA1), [Crypt::Digest::SHA224](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3ASHA224), [Crypt::Digest::SHA256](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3ASHA256), [Crypt::Digest::SHA384](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3ASHA384),
35		[Crypt::Digest::SHA512](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3ASHA512), [Crypt::Digest::SHA512\_224](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3ASHA512_224), [Crypt::Digest::SHA512\_256](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3ASHA512_256), [Crypt::Digest::Tiger192](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3ATiger192), [Crypt::Digest::Whirlpool](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3AWhirlpool),
36		[Crypt::Digest::Keccak224](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3AKeccak224), [Crypt::Digest::Keccak256](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3AKeccak256), [Crypt::Digest::Keccak384](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3AKeccak384), [Crypt::Digest::Keccak512](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3AKeccak512),
37		[Crypt::Digest::SHA3\_224](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3ASHA3_224), [Crypt::Digest::SHA3\_256](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3ASHA3_256), [Crypt::Digest::SHA3\_384](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3ASHA3_384), [Crypt::Digest::SHA3\_512](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3ASHA3_512), [Crypt::Digest::SHAKE](https://metacpan.org/pod/Crypt%3A%3ADigest%3A%3ASHAKE)
38
39		- Checksums
40
41		[Crypt::Checksum::Adler32](https://metacpan.org/pod/Crypt%3A%3AChecksum%3A%3AAdler32), [Crypt::Checksum::CRC32](https://metacpan.org/pod/Crypt%3A%3AChecksum%3A%3ACRC32)
42
43		- Message Authentication Codes
44
45		[Crypt::Mac::BLAKE2b](https://metacpan.org/pod/Crypt%3A%3AMac%3A%3ABLAKE2b), [Crypt::Mac::BLAKE2s](https://metacpan.org/pod/Crypt%3A%3AMac%3A%3ABLAKE2s), [Crypt::Mac::F9](https://metacpan.org/pod/Crypt%3A%3AMac%3A%3AF9), [Crypt::Mac::HMAC](https://metacpan.org/pod/Crypt%3A%3AMac%3A%3AHMAC), [Crypt::Mac::OMAC](https://metacpan.org/pod/Crypt%3A%3AMac%3A%3AOMAC),
46		[Crypt::Mac::Pelican](https://metacpan.org/pod/Crypt%3A%3AMac%3A%3APelican), [Crypt::Mac::PMAC](https://metacpan.org/pod/Crypt%3A%3AMac%3A%3APMAC), [Crypt::Mac::XCBC](https://metacpan.org/pod/Crypt%3A%3AMac%3A%3AXCBC), [Crypt::Mac::Poly1305](https://metacpan.org/pod/Crypt%3A%3AMac%3A%3APoly1305)
47
48		- Public key cryptography
49
50		[Crypt::PK::RSA](https://metacpan.org/pod/Crypt%3A%3APK%3A%3ARSA), [Crypt::PK::DSA](https://metacpan.org/pod/Crypt%3A%3APK%3A%3ADSA), [Crypt::PK::ECC](https://metacpan.org/pod/Crypt%3A%3APK%3A%3AECC), [Crypt::PK::DH](https://metacpan.org/pod/Crypt%3A%3APK%3A%3ADH), [Crypt::PK::Ed25519](https://metacpan.org/pod/Crypt%3A%3APK%3A%3AEd25519), [Crypt::PK::X25519](https://metacpan.org/pod/Crypt%3A%3APK%3A%3AX25519)
51
52		- Cryptographically secure random number generators - see [Crypt::PRNG](https://metacpan.org/pod/Crypt%3A%3APRNG) and related modules
53
54		[Crypt::PRNG::Fortuna](https://metacpan.org/pod/Crypt%3A%3APRNG%3A%3AFortuna), [Crypt::PRNG::Yarrow](https://metacpan.org/pod/Crypt%3A%3APRNG%3A%3AYarrow), [Crypt::PRNG::RC4](https://metacpan.org/pod/Crypt%3A%3APRNG%3A%3ARC4), [Crypt::PRNG::Sober128](https://metacpan.org/pod/Crypt%3A%3APRNG%3A%3ASober128), [Crypt::PRNG::ChaCha20](https://metacpan.org/pod/Crypt%3A%3APRNG%3A%3AChaCha20)
55
56		- Key derivation functions - PBKDF1, PBKDF2 and HKDF
57
58		[Crypt::KeyDerivation](https://metacpan.org/pod/Crypt%3A%3AKeyDerivation)
59
60		- Other handy functions related to cryptography
61
62		[Crypt::Misc](https://metacpan.org/pod/Crypt%3A%3AMisc)
63
64		# LICENSE
65
66		This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
67
68		# COPYRIGHT
69
70		Copyright (c) 2013-2020 DCIT, a.s. [https://www.dcit.cz](https://www.dcit.cz) / Karel Miko

+1

-1

lib/Crypt/AuthEnc/CCM.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw( ccm_encrypt_authenticate ccm_decrypt_verify )] );

+1

-1

lib/Crypt/AuthEnc/ChaCha20Poly1305.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw( chacha20poly1305_encrypt_authenticate chacha20poly1305_decrypt_verify )] );

+1

-1

lib/Crypt/AuthEnc/EAX.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw( eax_encrypt_authenticate eax_decrypt_verify )] );

+1

-1

lib/Crypt/AuthEnc/GCM.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw( gcm_encrypt_authenticate gcm_decrypt_verify )] );

+1

-1

lib/Crypt/AuthEnc/OCB.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw( ocb_encrypt_authenticate ocb_decrypt_verify )] );

+1

-1

lib/Crypt/AuthEnc.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	### not used
7	7

+1

-1

lib/Crypt/Checksum/Adler32.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	use base qw(Crypt::Checksum Exporter);
7	7	our %EXPORT_TAGS = ( all => [qw( adler32_data adler32_data_hex adler32_data_int adler32_file adler32_file_hex adler32_file_int )] );

+1

-1

lib/Crypt/Checksum/CRC32.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	use base qw(Crypt::Checksum Exporter);
7	7	our %EXPORT_TAGS = ( all => [qw( crc32_data crc32_data_hex crc32_data_int crc32_file crc32_file_hex crc32_file_int )] );

+1

-1

lib/Crypt/Checksum.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw/ adler32_data adler32_data_hex adler32_data_int adler32_file adler32_file_hex adler32_file_int

+1

-1

lib/Crypt/Cipher/AES.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/Anubis.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/Blowfish.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/CAST5.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/Camellia.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/DES.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/DES_EDE.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/IDEA.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/KASUMI.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/Khazad.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/MULTI2.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/Noekeon.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/RC2.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/RC5.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/RC6.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/SAFERP.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/SAFER_K128.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/SAFER_K64.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/SAFER_SK128.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/SAFER_SK64.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/SEED.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/Serpent.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/Skipjack.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/Twofish.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/XTEA.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	use Carp;
7	7	$Carp::Internal{(__PACKAGE__)}++;

+1

-1

lib/Crypt/Digest/BLAKE2b_160.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( blake2b_160 blake2b_160_hex blake2b_160_b64 blake2b_160_b64u blake2b_160_file blake2b_160_file_hex blake2b_160_file_b64 blake2b_160_file_b64u )] );

+1

-1

lib/Crypt/Digest/BLAKE2b_256.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( blake2b_256 blake2b_256_hex blake2b_256_b64 blake2b_256_b64u blake2b_256_file blake2b_256_file_hex blake2b_256_file_b64 blake2b_256_file_b64u )] );

+1

-1

lib/Crypt/Digest/BLAKE2b_384.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( blake2b_384 blake2b_384_hex blake2b_384_b64 blake2b_384_b64u blake2b_384_file blake2b_384_file_hex blake2b_384_file_b64 blake2b_384_file_b64u )] );

+1

-1

lib/Crypt/Digest/BLAKE2b_512.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( blake2b_512 blake2b_512_hex blake2b_512_b64 blake2b_512_b64u blake2b_512_file blake2b_512_file_hex blake2b_512_file_b64 blake2b_512_file_b64u )] );

+1

-1

lib/Crypt/Digest/BLAKE2s_128.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( blake2s_128 blake2s_128_hex blake2s_128_b64 blake2s_128_b64u blake2s_128_file blake2s_128_file_hex blake2s_128_file_b64 blake2s_128_file_b64u )] );

+1

-1

lib/Crypt/Digest/BLAKE2s_160.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( blake2s_160 blake2s_160_hex blake2s_160_b64 blake2s_160_b64u blake2s_160_file blake2s_160_file_hex blake2s_160_file_b64 blake2s_160_file_b64u )] );

+1

-1

lib/Crypt/Digest/BLAKE2s_224.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( blake2s_224 blake2s_224_hex blake2s_224_b64 blake2s_224_b64u blake2s_224_file blake2s_224_file_hex blake2s_224_file_b64 blake2s_224_file_b64u )] );

+1

-1

lib/Crypt/Digest/BLAKE2s_256.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( blake2s_256 blake2s_256_hex blake2s_256_b64 blake2s_256_b64u blake2s_256_file blake2s_256_file_hex blake2s_256_file_b64 blake2s_256_file_b64u )] );

+1

-1

lib/Crypt/Digest/CHAES.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( chaes chaes_hex chaes_b64 chaes_b64u chaes_file chaes_file_hex chaes_file_b64 chaes_file_b64u )] );

+1

-1

lib/Crypt/Digest/Keccak224.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( keccak224 keccak224_hex keccak224_b64 keccak224_b64u keccak224_file keccak224_file_hex keccak224_file_b64 keccak224_file_b64u )] );

+1

-1

lib/Crypt/Digest/Keccak256.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( keccak256 keccak256_hex keccak256_b64 keccak256_b64u keccak256_file keccak256_file_hex keccak256_file_b64 keccak256_file_b64u )] );

+1

-1

lib/Crypt/Digest/Keccak384.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( keccak384 keccak384_hex keccak384_b64 keccak384_b64u keccak384_file keccak384_file_hex keccak384_file_b64 keccak384_file_b64u )] );

+1

-1

lib/Crypt/Digest/Keccak512.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( keccak512 keccak512_hex keccak512_b64 keccak512_b64u keccak512_file keccak512_file_hex keccak512_file_b64 keccak512_file_b64u )] );

+1

-1

lib/Crypt/Digest/MD2.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( md2 md2_hex md2_b64 md2_b64u md2_file md2_file_hex md2_file_b64 md2_file_b64u )] );

+1

-1

lib/Crypt/Digest/MD4.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( md4 md4_hex md4_b64 md4_b64u md4_file md4_file_hex md4_file_b64 md4_file_b64u )] );

+1

-1

lib/Crypt/Digest/MD5.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( md5 md5_hex md5_b64 md5_b64u md5_file md5_file_hex md5_file_b64 md5_file_b64u )] );

+1

-1

lib/Crypt/Digest/RIPEMD128.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( ripemd128 ripemd128_hex ripemd128_b64 ripemd128_b64u ripemd128_file ripemd128_file_hex ripemd128_file_b64 ripemd128_file_b64u )] );

+1

-1

lib/Crypt/Digest/RIPEMD160.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( ripemd160 ripemd160_hex ripemd160_b64 ripemd160_b64u ripemd160_file ripemd160_file_hex ripemd160_file_b64 ripemd160_file_b64u )] );

+1

-1

lib/Crypt/Digest/RIPEMD256.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( ripemd256 ripemd256_hex ripemd256_b64 ripemd256_b64u ripemd256_file ripemd256_file_hex ripemd256_file_b64 ripemd256_file_b64u )] );

+1

-1

lib/Crypt/Digest/RIPEMD320.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( ripemd320 ripemd320_hex ripemd320_b64 ripemd320_b64u ripemd320_file ripemd320_file_hex ripemd320_file_b64 ripemd320_file_b64u )] );

+1

-1

lib/Crypt/Digest/SHA1.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( sha1 sha1_hex sha1_b64 sha1_b64u sha1_file sha1_file_hex sha1_file_b64 sha1_file_b64u )] );

+1

-1

lib/Crypt/Digest/SHA224.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( sha224 sha224_hex sha224_b64 sha224_b64u sha224_file sha224_file_hex sha224_file_b64 sha224_file_b64u )] );

+1

-1

lib/Crypt/Digest/SHA256.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( sha256 sha256_hex sha256_b64 sha256_b64u sha256_file sha256_file_hex sha256_file_b64 sha256_file_b64u )] );

+1

-1

lib/Crypt/Digest/SHA384.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( sha384 sha384_hex sha384_b64 sha384_b64u sha384_file sha384_file_hex sha384_file_b64 sha384_file_b64u )] );

+1

-1

lib/Crypt/Digest/SHA3_224.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( sha3_224 sha3_224_hex sha3_224_b64 sha3_224_b64u sha3_224_file sha3_224_file_hex sha3_224_file_b64 sha3_224_file_b64u )] );

+1

-1

lib/Crypt/Digest/SHA3_256.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( sha3_256 sha3_256_hex sha3_256_b64 sha3_256_b64u sha3_256_file sha3_256_file_hex sha3_256_file_b64 sha3_256_file_b64u )] );

+1

-1

lib/Crypt/Digest/SHA3_384.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( sha3_384 sha3_384_hex sha3_384_b64 sha3_384_b64u sha3_384_file sha3_384_file_hex sha3_384_file_b64 sha3_384_file_b64u )] );

+1

-1

lib/Crypt/Digest/SHA3_512.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( sha3_512 sha3_512_hex sha3_512_b64 sha3_512_b64u sha3_512_file sha3_512_file_hex sha3_512_file_b64 sha3_512_file_b64u )] );

+1

-1

lib/Crypt/Digest/SHA512.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( sha512 sha512_hex sha512_b64 sha512_b64u sha512_file sha512_file_hex sha512_file_b64 sha512_file_b64u )] );

+1

-1

lib/Crypt/Digest/SHA512_224.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( sha512_224 sha512_224_hex sha512_224_b64 sha512_224_b64u sha512_224_file sha512_224_file_hex sha512_224_file_b64 sha512_224_file_b64u )] );

+1

-1

lib/Crypt/Digest/SHA512_256.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( sha512_256 sha512_256_hex sha512_256_b64 sha512_256_b64u sha512_256_file sha512_256_file_hex sha512_256_file_b64 sha512_256_file_b64u )] );

+1

-1

lib/Crypt/Digest/SHAKE.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	use Carp;
7	7	$Carp::Internal{(__PACKAGE__)}++;

+1

-1

lib/Crypt/Digest/Tiger192.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( tiger192 tiger192_hex tiger192_b64 tiger192_b64u tiger192_file tiger192_file_hex tiger192_file_b64 tiger192_file_b64u )] );

+1

-1

lib/Crypt/Digest/Whirlpool.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( whirlpool whirlpool_hex whirlpool_b64 whirlpool_b64u whirlpool_file whirlpool_file_hex whirlpool_file_b64 whirlpool_file_b64u )] );

+1

-1

lib/Crypt/Digest.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw( digest_data digest_data_hex digest_data_b64 digest_data_b64u digest_file digest_file_hex digest_file_b64 digest_file_b64u )] );

+1

-1

lib/Crypt/KeyDerivation.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw(pbkdf1 pbkdf2 hkdf hkdf_expand hkdf_extract)] );

+1

-1

lib/Crypt/Mac/BLAKE2b.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Mac Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( blake2b blake2b_hex blake2b_b64 blake2b_b64u )] );

+1

-1

lib/Crypt/Mac/BLAKE2s.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Mac Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( blake2s blake2s_hex blake2s_b64 blake2s_b64u )] );

+1

-1

lib/Crypt/Mac/F9.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Mac Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( f9 f9_hex f9_b64 f9_b64u )] );

+1

-1

lib/Crypt/Mac/HMAC.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Mac Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( hmac hmac_hex hmac_b64 hmac_b64u )] );

+1

-1

lib/Crypt/Mac/OMAC.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Mac Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( omac omac_hex omac_b64 omac_b64u )] );

+1

-1

lib/Crypt/Mac/PMAC.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Mac Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( pmac pmac_hex pmac_b64 pmac_b64u )] );

+1

-1

lib/Crypt/Mac/Pelican.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Mac Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( pelican pelican_hex pelican_b64 pelican_b64u )] );

+1

-1

lib/Crypt/Mac/Poly1305.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Mac Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( poly1305 poly1305_hex poly1305_b64 poly1305_b64u )] );

+1

-1

lib/Crypt/Mac/XCBC.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use base qw(Crypt::Mac Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( xcbc xcbc_hex xcbc_b64 xcbc_b64u )] );

+1

-1

lib/Crypt/Mac.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	use Carp;
7	7	$Carp::Internal{(__PACKAGE__)}++;

+1

-1

lib/Crypt/Misc.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	use Carp 'croak';

+1

-1

lib/Crypt/Mode/CBC.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use Crypt::Cipher;
9	9

+1

-1

lib/Crypt/Mode/CFB.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use Crypt::Cipher;
9	9

+1

-1

lib/Crypt/Mode/CTR.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use Crypt::Cipher;
9	9

+1

-1

lib/Crypt/Mode/ECB.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use Crypt::Cipher;
9	9

+1

-1

lib/Crypt/Mode/OFB.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.070';
	6	our $VERSION = '0.071_001';
7	7
8	8	use Crypt::Cipher;
9	9

+1

-1

lib/Crypt/Mode.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	### not used
7	7

+4

-2

lib/Crypt/PK/DH.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw( dh_shared_secret )] );

226	226	}
227	227	elsif (ref $param eq 'SCALAR') {
228	228	my $data = $$param;
229		$data = pem_to_der($data) if $data =~ /-----BEGIN DH PARAMETERS-----\s(.+)\s-----END DH PARAMETERS-----/s;
	229	if ($data =~ /-----BEGIN DH PARAMETERS-----\s(.+)\s-----END DH PARAMETERS-----/s) {
	230	$data = pem_to_der($data) or croak "FATAL: PEM/params decode failed";
	231	}
230	232	return $self->_generate_key_dhparam($data);
231	233	}
232	234	elsif (ref $param eq 'HASH') {

+6

-4

lib/Crypt/PK/DSA.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw( dsa_encrypt dsa_decrypt dsa_sign_message dsa_verify_message dsa_sign_hash dsa_verify_hash )] );

35	35	}
36	36	elsif (@_ == 1 && ref $_[0] eq 'SCALAR') {
37	37	my $data = ${$_[0]};
38		$data = pem_to_der($data) if $data =~ /-----BEGIN DSA PARAMETERS-----\s(.+)\s-----END DSA PARAMETERS-----/s;
	38	if ($data =~ /-----BEGIN DSA PARAMETERS-----\s(.+)\s-----END DSA PARAMETERS-----/s) {
	39	$data = pem_to_der($data) or croak "FATAL: PEM/params decode failed";
	40	}
39	41	return $self->_generate_key_dsaparam($data);
40	42	}
41	43	croak "FATAL: DSA generate_key - invalid args";

75	77	croak "FATAL: invalid key data" unless $data;
76	78
77	79	if ($data =~ /-----BEGIN (DSA PRIVATE\|DSA PUBLIC\|PRIVATE\|PUBLIC) KEY-----(.*?)-----END/sg) {
78		$data = pem_to_der($data, $password);
	80	$data = pem_to_der($data, $password) or croak "FATAL: PEM/key decode failed";
79	81	return $self->_import($data);
80	82	}
81	83	elsif ($data =~ /---- BEGIN SSH2 PUBLIC KEY ----(.*?)---- END SSH2 PUBLIC KEY ----/sg) {
82		$data = pem_to_der($data);
	84	$data = pem_to_der($data) or croak "FATAL: PEM/key decode failed";
83	85	my ($typ, $p, $q, $g, $y) = Crypt::PK::_ssh_parse($data);
84	86	return $self->_import_hex(unpack('H',$p), unpack('H',$q), unpack('H',$g), undef, unpack('H',$y)) if $typ && $p && $q && $g && $y && $typ eq 'ssh-dss';
85	87	}

+6

-6

lib/Crypt/PK/ECC.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw( ecc_encrypt ecc_decrypt ecc_sign_message ecc_verify_message ecc_sign_hash ecc_verify_hash ecc_shared_secret )] );

218	218	croak "FATAL: invalid key data" unless $data;
219	219
220	220	if ($data =~ /-----BEGIN (EC PRIVATE\|EC PUBLIC\|PUBLIC) KEY-----(.*?)-----END/sg) {
221		$data = pem_to_der($data, $password);
	221	$data = pem_to_der($data, $password) or croak "FATAL: PEM/key decode failed";
222	222	my $rv = eval { $self->_import($data) } \|\| eval { $self->_import_old($data) };
223	223	return $rv if $rv;
224	224	}
225	225	elsif ($data =~ /-----BEGIN PRIVATE KEY-----(.*?)-----END/sg) {
226		$data = pem_to_der($data, $password);
	226	$data = pem_to_der($data, $password) or croak "FATAL: PEM/key decode failed";
227	227	return $self->_import_pkcs8($data, $password);
228	228	}
229	229	elsif ($data =~ /-----BEGIN ENCRYPTED PRIVATE KEY-----(.*?)-----END/sg) {
230		$data = pem_to_der($data, $password);
	230	$data = pem_to_der($data, $password) or croak "FATAL: PEM/key decode failed";
231	231	return $self->_import_pkcs8($data, $password);
232	232	}
233	233	elsif ($data =~ /^\s(\{.?\})\s*$/s) {

243	243	}
244	244	}
245	245	elsif ($data =~ /-----BEGIN CERTIFICATE-----(.*?)-----END CERTIFICATE-----/sg) {
246		$data = pem_to_der($data);
	246	$data = pem_to_der($data) or croak "FATAL: PEM/cert decode failed";
247	247	return $self->_import_x509($data);
248	248	}
249	249	elsif ($data =~ /---- BEGIN SSH2 PUBLIC KEY ----(.*?)---- END SSH2 PUBLIC KEY ----/sg) {
250		$data = pem_to_der($data);
	250	$data = pem_to_der($data) or croak "FATAL: PEM/key decode failed";
251	251	my ($typ, $skip, $pubkey) = Crypt::PK::_ssh_parse($data);
252	252	return $self->import_key_raw($pubkey, "$2") if $pubkey && $typ =~ /^ecdsa-(.+?)-(.*)$/;
253	253	}

+7

-7

lib/Crypt/PK/Ed25519.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw( )] );

63	63	croak "FATAL: invalid key data" unless $data;
64	64
65	65	if ($data =~ /-----BEGIN PUBLIC KEY-----(.*?)-----END/sg) {
66		$data = pem_to_der($data, $password);
	66	$data = pem_to_der($data, $password) or croak "FATAL: PEM/key decode failed";
67	67	return $self->_import($data);
68	68	}
69	69	elsif ($data =~ /-----BEGIN PRIVATE KEY-----(.*?)-----END/sg) {
70		$data = pem_to_der($data, $password);
	70	$data = pem_to_der($data, $password) or croak "FATAL: PEM/key decode failed";
71	71	return $self->_import_pkcs8($data, $password);
72	72	}
73	73	elsif ($data =~ /-----BEGIN ENCRYPTED PRIVATE KEY-----(.*?)-----END/sg) {
74		$data = pem_to_der($data, $password);
	74	$data = pem_to_der($data, $password) or croak "FATAL: PEM/key decode failed";
75	75	return $self->_import_pkcs8($data, $password);
76	76	}
77	77	elsif ($data =~ /-----BEGIN ED25519 PRIVATE KEY-----(.*?)-----END/sg) {
78		$data = pem_to_der($data, $password);
	78	$data = pem_to_der($data, $password) or croak "FATAL: PEM/key decode failed";
79	79	return $self->_import_pkcs8($data, $password);
80	80	}
81	81	elsif ($data =~ /^\s(\{.?\})\s*$/s) { # JSON

86	86	}
87	87	}
88	88	elsif ($data =~ /-----BEGIN CERTIFICATE-----(.*?)-----END CERTIFICATE-----/sg) {
89		$data = pem_to_der($data);
	89	$data = pem_to_der($data) or croak "FATAL: PEM/cert decode failed";
90	90	return $self->_import_x509($data);
91	91	}
92	92	elsif ($data =~ /-----BEGIN OPENSSH PRIVATE KEY-----(.*?)-----END/sg) {

96	96	croak "FATAL: OPENSSH PRIVATE KEY not supported";
97	97	}
98	98	elsif ($data =~ /---- BEGIN SSH2 PUBLIC KEY ----(.*?)---- END SSH2 PUBLIC KEY ----/sg) {
99		$data = pem_to_der($data);
	99	$data = pem_to_der($data) or croak "FATAL: PEM/key decode failed";
100	100	my ($typ, $pubkey) = Crypt::PK::_ssh_parse($data);
101	101	return $self->_import_raw($pubkey, 0) if $typ eq 'ssh-ed25519' && length($pubkey) == 32;
102	102	}

+6

-6

lib/Crypt/PK/RSA.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw(rsa_encrypt rsa_decrypt rsa_sign_message rsa_verify_message rsa_sign_hash rsa_verify_hash)] );

121	121	# PKCS#1 RSAPublicKey (PEM header: BEGIN RSA PUBLIC KEY)
122	122	# PKCS#1 RSAPrivateKey (PEM header: BEGIN RSA PRIVATE KEY)
123	123	# X.509 SubjectPublicKeyInfo (PEM header: BEGIN PUBLIC KEY)
124		$data = pem_to_der($data, $password);
	124	$data = pem_to_der($data, $password) or croak "FATAL: PEM/key decode failed";
125	125	return $self->_import($data) if $data;
126	126	}
127	127	elsif ($data =~ /-----BEGIN PRIVATE KEY-----(.*?)-----END/sg) {
128	128	# PKCS#8 PrivateKeyInfo (PEM header: BEGIN PRIVATE KEY)
129		$data = pem_to_der($data, $password);
	129	$data = pem_to_der($data, $password) or croak "FATAL: PEM/key decode failed";
130	130	return $self->_import_pkcs8($data, $password);
131	131	}
132	132	elsif ($data =~ /-----BEGIN ENCRYPTED PRIVATE KEY-----(.*?)-----END/sg) {
133	133	# PKCS#8 PrivateKeyInfo (PEM header: BEGIN ENCRYPTED PRIVATE KEY)
134		$data = pem_to_der($data, $password);
	134	$data = pem_to_der($data, $password) or croak "FATAL: PEM/key decode failed";
135	135	return $self->_import_pkcs8($data, $password);
136	136	}
137	137	elsif ($data =~ /^\s(\{.?\})\s*$/s) {

146	146	}
147	147	}
148	148	elsif ($data =~ /-----BEGIN CERTIFICATE-----(.*?)-----END CERTIFICATE-----/sg) {
149		$data = pem_to_der($data);
	149	$data = pem_to_der($data) or croak "FATAL: PEM/cert decode failed";
150	150	return $self->_import_x509($data);
151	151	}
152	152	elsif ($data =~ /---- BEGIN SSH2 PUBLIC KEY ----(.*?)---- END SSH2 PUBLIC KEY ----/sg) {
153		$data = pem_to_der($data);
	153	$data = pem_to_der($data) or croak "FATAL: PEM/key decode failed";
154	154	my ($typ, $N, $e) = Crypt::PK::_ssh_parse($data);
155	155	return $self->_import_hex(unpack("H", $e), unpack("H", $N)) if $typ && $e && $N && $typ eq 'ssh-rsa';
156	156	}

+5

-5

lib/Crypt/PK/X25519.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw( )] );

63	63	croak "FATAL: invalid key data" unless $data;
64	64
65	65	if ($data =~ /-----BEGIN PUBLIC KEY-----(.*?)-----END/sg) {
66		$data = pem_to_der($data, $password);
	66	$data = pem_to_der($data, $password) or croak "FATAL: PEM/key decode failed";
67	67	return $self->_import($data);
68	68	}
69	69	elsif ($data =~ /-----BEGIN PRIVATE KEY-----(.*?)-----END/sg) {
70		$data = pem_to_der($data, $password);
	70	$data = pem_to_der($data, $password) or croak "FATAL: PEM/key decode failed";
71	71	return $self->_import_pkcs8($data, $password);
72	72	}
73	73	elsif ($data =~ /-----BEGIN ENCRYPTED PRIVATE KEY-----(.*?)-----END/sg) {
74		$data = pem_to_der($data, $password);
	74	$data = pem_to_der($data, $password) or croak "FATAL: PEM/key decode failed";
75	75	return $self->_import_pkcs8($data, $password);
76	76	}
77	77	elsif ($data =~ /-----BEGIN X25519 PRIVATE KEY-----(.*?)-----END/sg) {
78		$data = pem_to_der($data, $password);
	78	$data = pem_to_der($data, $password) or croak "FATAL: PEM/key decode failed";
79	79	return $self->_import_pkcs8($data, $password);
80	80	}
81	81	elsif ($data =~ /^\s(\{.?\})\s*$/s) { # JSON

+1

-1

lib/Crypt/PK.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	use Carp;
7	7

+1

-1

lib/Crypt/PRNG/ChaCha20.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	use base qw(Crypt::PRNG Exporter);
7	7	our %EXPORT_TAGS = ( all => [qw(random_bytes random_bytes_hex random_bytes_b64 random_bytes_b64u random_string random_string_from rand irand)] );

+1

-1

lib/Crypt/PRNG/Fortuna.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	use base qw(Crypt::PRNG Exporter);
7	7	our %EXPORT_TAGS = ( all => [qw(random_bytes random_bytes_hex random_bytes_b64 random_bytes_b64u random_string random_string_from rand irand)] );

+1

-1

lib/Crypt/PRNG/RC4.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	use base qw(Crypt::PRNG Exporter);
7	7	our %EXPORT_TAGS = ( all => [qw(random_bytes random_bytes_hex random_bytes_b64 random_bytes_b64u random_string random_string_from rand irand)] );

+1

-1

lib/Crypt/PRNG/Sober128.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	use base qw(Crypt::PRNG Exporter);
7	7	our %EXPORT_TAGS = ( all => [qw(random_bytes random_bytes_hex random_bytes_b64 random_bytes_b64u random_string random_string_from rand irand)] );

+1

-1

lib/Crypt/PRNG/Yarrow.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	use base qw(Crypt::PRNG Exporter);
7	7	our %EXPORT_TAGS = ( all => [qw(random_bytes random_bytes_hex random_bytes_b64 random_bytes_b64u random_string random_string_from rand irand)] );

+1

-1

lib/Crypt/PRNG.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw(random_bytes random_bytes_hex random_bytes_b64 random_bytes_b64u random_string random_string_from rand irand)] );

+1

-1

lib/Crypt/Stream/ChaCha.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	use CryptX;
7	7

+1

-1

lib/Crypt/Stream/RC4.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	use CryptX;
7	7

+1

-1

lib/Crypt/Stream/Rabbit.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	use CryptX;
7	7

+1

-1

lib/Crypt/Stream/Salsa20.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	use CryptX;
7	7

+1

-1

lib/Crypt/Stream/Sober128.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	use CryptX;
7	7

+1

-1

lib/Crypt/Stream/Sosemanuk.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	use CryptX;
7	7

+2

-2

lib/CryptX.pm less more

1	1
2	2	use strict;
3	3	use warnings ;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	require XSLoader;
7	7	XSLoader::load('CryptX', $VERSION);

129	129
130	130	=head1 COPYRIGHT
131	131
132		Copyright (c) 2013-2020 DCIT, a.s. L<https://www.dcit.cz> / Karel Miko
	132	Copyright (c) 2013-2021 DCIT, a.s. L<https://www.dcit.cz> / Karel Miko
133	133
134	134	=cut

+1

-1

lib/Math/BigInt/LTM.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.070';
	4	our $VERSION = '0.071_001';
5	5
6	6	use CryptX;
7	7	use Carp;

+16

-0

src/ltc/pk/asn1/der/custom_type/der_decode_custom_type.c less more

154	154	}
155	155
156	156	switch (type) {
	157	case LTC_ASN1_CUSTOM_TYPE:
	158	case LTC_ASN1_SET:
	159	case LTC_ASN1_SETOF:
	160	case LTC_ASN1_SEQUENCE:
	161	break;
	162	default:
	163	/* Verify that all basic types are indeed UNIVERSAL&PRIMITIVE */
	164	if (((flags & LTC_DER_SEQ_STRICT) == LTC_DER_SEQ_STRICT) && (inlen > 0)) {
	165	if (in[x] & 0xE0u) {
	166	err = CRYPT_PK_ASN1_ERROR;
	167	goto LBL_ERR;
	168	}
	169	}
	170	}
	171
	172	switch (type) {
157	173	case LTC_ASN1_BOOLEAN:
158	174	z = inlen;
159	175	if ((err = der_decode_boolean(in + x, z, ((int *)data))) != CRYPT_OK) {

+54

-1

t/pk_rsa.t less more

0	0	use strict;
1	1	use warnings;
2		use Test::More tests => 49;
	2	use Test::More tests => 52;
3	3
4	4	use Crypt::PK::RSA qw(rsa_encrypt rsa_decrypt rsa_sign_message rsa_verify_message rsa_sign_hash rsa_verify_hash);
5	5

111	111	ok($sig, 'rsa_sign_hash');
112	112	ok(rsa_verify_hash('t/data/cryptx_pub_rsa1.der', $sig, $hash, 'SHA1'), 'rsa_verify_hash');
113	113	}
	114
	115	{
	116	## https://github.com/DCIT/perl-CryptX/issues/69
	117
	118	# my $priv = Crypt::PK::RSA->new({
	119	# e => "03",
	120	# N => "E932AC92252F585B3A80A4DD76A897C8B7652952FE788F6EC8DD640587A1EE5647670A8AD4C2BE0F9FA6E49C605ADF77B5174230".
	121	# "AF7BD50E5D6D6D6D28CCF0A886A514CC72E51D209CC772A52EF419F6A953F3135929588EBE9B351FCA61CED78F346FE00DBB6306".
	122	# "E5C2A4C6DFC3779AF85AB417371CF34D8387B9B30AE46D7A5FF5A655B8D8455F1B94AE736989D60A6F2FD5CADBFFBD504C5A756A".
	123	# "2E6BB5CECC13BCA7503F6DF8B52ACE5C410997E98809DB4DC30D943DE4E812A47553DCE54844A78E36401D13F77DC650619FED88".
	124	# "D8B3926E3D8E319C80C744779AC5D6ABE252896950917476ECE5E8FC27D5F053D6018D91B502C4787558A002B9283DA7",
	125	# d => "009b771db6c374e59227006de8f9c5ba85cf98c63754505f9f30939803afc1498eda44b1b1e32c7eb51519edbd9591ea4fce0f81".
	126	# "75ca528e09939e48f37088a07059c36332f74368c06884f718c9f8114f1b8d4cb790c63b09d46778bfdc41348fb4cd9feab3d242".
	127	# "04992c6dd9ea824fbca591cd64cf68a233ad0526775c9848fafa31528177e1f8df9181a8b945081106fd58bd3d73799b229575c4".
	128	# "f3b29101a03ee1f05472b3615784d9244ce0ed639c77e8e212ab52abddf4a928224b6b6f74b7114786dd6071bd9113d7870c6b52".
	129	# "c0bc8b9c102cfe321dac357e030ed6c580040ca41c13d6b4967811807ef2a225983ea9f88d67faa42620f42a4f5bdbe03b",
	130	# });
	131	# my $sig_hex = unpack("H*", $priv->sign_message('hello world!', 'SHA256', 'v1.5'));
	132
	133	my $pub = Crypt::PK::RSA->new({
	134	e => "03",
	135	N => "E932AC92252F585B3A80A4DD76A897C8B7652952FE788F6EC8DD640587A1EE5647670A8AD4C2BE0F9FA6E49C605ADF77B5174230".
	136	"AF7BD50E5D6D6D6D28CCF0A886A514CC72E51D209CC772A52EF419F6A953F3135929588EBE9B351FCA61CED78F346FE00DBB6306".
	137	"E5C2A4C6DFC3779AF85AB417371CF34D8387B9B30AE46D7A5FF5A655B8D8455F1B94AE736989D60A6F2FD5CADBFFBD504C5A756A".
	138	"2E6BB5CECC13BCA7503F6DF8B52ACE5C410997E98809DB4DC30D943DE4E812A47553DCE54844A78E36401D13F77DC650619FED88".
	139	"D8B3926E3D8E319C80C744779AC5D6ABE252896950917476ECE5E8FC27D5F053D6018D91B502C4787558A002B9283DA7",
	140	});
	141
	142	my $sig1 = pack("H*", "8df69d774c6ac8b5f8aa16576ca37a4f948706c5daecb3c15cfd247a7657616b2bbb786b50158cac8c23e3".
	143	"289d300d3fbb82380b8746d929df36bdaf43a5fc5d1d04c61c98d47c22de02d051be3ba9e42b1c47aa5192".
	144	"66d4cae244e5ce99b24771a13a7c8c7b08868a3eccf70b4bc7570d5131a1ac8943d91b0151c39da2ad75cd".
	145	"1b9a697d100eef6747217df581b272cfd1f549a901ff4951036a4eb28fd2ea1e9df3fa9fa457663f4259be".
	146	"8e5f2f2fb84f831a0ca5320e2b79f04a17830f43062c4c8fc0d0b1ff90567f3342d524f682ca26661caadf".
	147	"4272f2585e6013a92bfa68de72fe6174096890e4296aedd72da43aa508007df53fb852bd7162ab635b");
	148
	149	my $sig2 = pack("H*", "1ee08947536e6b11d8923c3b00061d26a6933b5345077ea0214fdcbcc1ad68395008ff709117047e6b01dd".
	150	"2a371dfa032c0732abc86ab2e0273bbd0dfe6b1c769e21bb9079982801d8f72e01be3244959312ab09bb8f".
	151	"88572dc23216719b9810c73edf826749604feb8da1345f83f0209271aca462c1235b4cb4ba538f85a9c03d".
	152	"d1dde1856fe73fd86b95566df2dfe8b0895c34489b97e02c8e48dabad7067619edec6267a776fa416fbcac".
	153	"0fcacf3efa7852ce33ed63a9149c685c303d98c3dc37ee87521bc5b130377345fc95c87aa48505470deaf6".
	154	"fb1064df041e3f03322b1ec90d3608deb17bf77f47066ecc6c511bfba69eed6da42881dcce603fcb2a");
	155
	156	my $sig3 = pack("H*", "02364fdabb83d98118fe3d3bb86866038de4dc6e569f59fd6dc0360d3785e7fbded2f5a4c6d87052aeab25".
	157	"c451a91f8dccbc0d6db3b59ddd57368180091183369221b67a399a96ca5d318a908575462fe42d1aabba27".
	158	"7b7b5bb2aae43567ecd671dfc1d8b935c7dc06d0058a45dadabfc21b1cbae3cb719f3bca8b1365576e2eb9".
	159	"54cba048beba174e515a919148ac4a9ae3505b3a8ad6326b63757d1dd59a9f83df60bb295b32d90053b016".
	160	"b4cd2745eb29f12a2aad86c05f04ebd3cca3a8c63c752ccad07d7fd4e6e2adab4f353efbda04a6b5b7f4a6".
	161	"d540c085e7ddc90f1665adb048dfc707eac2db28246e1bffe53f115a02f7c74defccafa7213cb22245");
	162
	163	is($pub->verify_message($sig1, 'hello world!', 'SHA256', 'v1.5'), 0, "github issue 69 - invalid signature/1");
	164	is($pub->verify_message($sig2, 'hello world!', 'SHA256', 'v1.5'), 0, "github issue 69 - invalid signature/2");
	165	is($pub->verify_message($sig3, 'hello world!', 'SHA256', 'v1.5'), 1, "github issue 69 - valid signature/3");
	166	}