line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
=head1 NAME |
2
|
|
|
|
|
|
|
|
3
|
|
|
|
|
|
|
Crypt::Ed25519 - bare-bones Ed25519 public key signing/verification system |
4
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
=head1 SYNOPSIS |
6
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
use Crypt::Ed25519; # no symbols exported |
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
############################################ |
10
|
|
|
|
|
|
|
# Ed25519 API - public/private keypair |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
# generate a public/private key pair once |
13
|
|
|
|
|
|
|
($pubkey, $privkey) = Crypt::Ed25519::generate_keypair; |
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
# sign a message |
16
|
|
|
|
|
|
|
$signature = Crypt::Ed25519::sign $message, $pubkey, $privkey; |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
# verify message |
19
|
|
|
|
|
|
|
$valid = Crypt::Ed25519::verify $message, $pubkey, $signature; |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
# verify, but croak on failure |
22
|
|
|
|
|
|
|
Crypt::Ed25519::verify_croak $message, $pubkey, $signature; |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
############################################ |
25
|
|
|
|
|
|
|
# EdDSA API - secret key and derived public key |
26
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
# generate a secret key |
28
|
|
|
|
|
|
|
$secret = Crypt::EdDSA::eddsa_secret_key; |
29
|
|
|
|
|
|
|
|
30
|
|
|
|
|
|
|
# derive public key as needed |
31
|
|
|
|
|
|
|
$pubkey = Crypt::EdDSA::eddsa_public_key $secret; |
32
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
# sign a message |
34
|
|
|
|
|
|
|
$signature = Crypt::Ed25519::eddsa_sign $message, $pubkey, $secret; |
35
|
|
|
|
|
|
|
|
36
|
|
|
|
|
|
|
# verify message |
37
|
|
|
|
|
|
|
$valid = Crypt::Ed25519::eddsa_verify $message, $pubkey, $signature; |
38
|
|
|
|
|
|
|
|
39
|
|
|
|
|
|
|
# verify, but croak on failure |
40
|
|
|
|
|
|
|
Crypt::Ed25519:eddsa_verify_croak $message, $pubkey, $signature; |
41
|
|
|
|
|
|
|
|
42
|
|
|
|
|
|
|
############################################ |
43
|
|
|
|
|
|
|
# Key exchange |
44
|
|
|
|
|
|
|
|
45
|
|
|
|
|
|
|
# side A: |
46
|
|
|
|
|
|
|
($pubkey_a, $privkey_a) = Crypt::Ed25519::generate_keypair; |
47
|
|
|
|
|
|
|
# send $pubkey to side B |
48
|
|
|
|
|
|
|
|
49
|
|
|
|
|
|
|
# side B: |
50
|
|
|
|
|
|
|
($pubkey_b, $privkey_b) = Crypt::Ed25519::generate_keypair; |
51
|
|
|
|
|
|
|
# send $pubkey to side A |
52
|
|
|
|
|
|
|
|
53
|
|
|
|
|
|
|
# side A then calculates their shared secret: |
54
|
|
|
|
|
|
|
$shared_secret = Crypt::Ed25519::key_exchange $pubkey_b, $privkey_a; |
55
|
|
|
|
|
|
|
|
56
|
|
|
|
|
|
|
# and side B does this: |
57
|
|
|
|
|
|
|
$shared_secret = Crypt::Ed25519::key_exchange $pubkey_a, $privkey_b; |
58
|
|
|
|
|
|
|
|
59
|
|
|
|
|
|
|
# the generated $shared_secret will be the same - you cna now |
60
|
|
|
|
|
|
|
# hash it with hkdf or something else to generate symmetric private keys |
61
|
|
|
|
|
|
|
|
62
|
|
|
|
|
|
|
=head1 DESCRIPTION |
63
|
|
|
|
|
|
|
|
64
|
|
|
|
|
|
|
This module implements Ed25519 public key generation, message signing and |
65
|
|
|
|
|
|
|
verification. It is a pretty bare-bones implementation that implements |
66
|
|
|
|
|
|
|
the standard Ed25519 variant with SHA512 hash, as well as a slower API |
67
|
|
|
|
|
|
|
compatible with the upcoming EdDSA RFC. |
68
|
|
|
|
|
|
|
|
69
|
|
|
|
|
|
|
The security target for Ed25519 is to be equivalent to 3000 bit RSA or |
70
|
|
|
|
|
|
|
AES-128. |
71
|
|
|
|
|
|
|
|
72
|
|
|
|
|
|
|
The advantages of Ed25519 over most other signing algorithms are: |
73
|
|
|
|
|
|
|
small public/private key and signature sizes (<= 64 octets), good key |
74
|
|
|
|
|
|
|
generation, signing and verification performance, no reliance on random |
75
|
|
|
|
|
|
|
number generators for signing and by-design immunity against branch or |
76
|
|
|
|
|
|
|
memory access pattern side-channel attacks. |
77
|
|
|
|
|
|
|
|
78
|
|
|
|
|
|
|
More detailed praise and other info can be found at |
79
|
|
|
|
|
|
|
L. |
80
|
|
|
|
|
|
|
|
81
|
|
|
|
|
|
|
=head1 CRYPTOGRAPHY IS HARD |
82
|
|
|
|
|
|
|
|
83
|
|
|
|
|
|
|
A word of caution: don't use this module unless you really know what you |
84
|
|
|
|
|
|
|
are doing - even if this module were completely error-free, that still |
85
|
|
|
|
|
|
|
doesn't mean that every way of using it is correct. When in doubt, it's |
86
|
|
|
|
|
|
|
best not to design your own cryptographic protocol. |
87
|
|
|
|
|
|
|
|
88
|
|
|
|
|
|
|
=head1 CONVENTIONS |
89
|
|
|
|
|
|
|
|
90
|
|
|
|
|
|
|
Public/private/secret keys, messages and signatures are all opaque and |
91
|
|
|
|
|
|
|
architecture-independent octet strings, and, except for the message, have |
92
|
|
|
|
|
|
|
fixed lengths. |
93
|
|
|
|
|
|
|
|
94
|
|
|
|
|
|
|
=cut |
95
|
|
|
|
|
|
|
|
96
|
|
|
|
|
|
|
package Crypt::Ed25519; |
97
|
|
|
|
|
|
|
|
98
|
|
|
|
|
|
|
BEGIN { |
99
|
3
|
|
|
3
|
|
1740
|
$VERSION = 1.05; |
100
|
|
|
|
|
|
|
|
101
|
3
|
|
|
|
|
31
|
require XSLoader; |
102
|
3
|
|
|
|
|
1631
|
XSLoader::load Crypt::Ed25519::, $VERSION; |
103
|
|
|
|
|
|
|
} |
104
|
|
|
|
|
|
|
|
105
|
|
|
|
|
|
|
=head1 Ed25519 API |
106
|
|
|
|
|
|
|
|
107
|
|
|
|
|
|
|
=over 4 |
108
|
|
|
|
|
|
|
|
109
|
|
|
|
|
|
|
=item ($public_key, $private_key) = Crypt::Ed25519::generate_keypair |
110
|
|
|
|
|
|
|
|
111
|
|
|
|
|
|
|
Creates and returns a new random public and private key pair. The public |
112
|
|
|
|
|
|
|
key is always 32 octets, the private key is always 64 octets long. |
113
|
|
|
|
|
|
|
|
114
|
|
|
|
|
|
|
=item ($public_key, $private_key) = Crypt::Ed25519::generate_keypair $secret_key |
115
|
|
|
|
|
|
|
|
116
|
|
|
|
|
|
|
Instead of generating a random keypair, generate them from the given |
117
|
|
|
|
|
|
|
C<$secret_key> (e.g. as returned by C. |
118
|
|
|
|
|
|
|
The derivation is deterministic, i.e. a specific C<$secret_key> will |
119
|
|
|
|
|
|
|
always result in the same keypair. |
120
|
|
|
|
|
|
|
|
121
|
|
|
|
|
|
|
A secret key is simply a random bit string, so if you have a good source |
122
|
|
|
|
|
|
|
of key material, you can simply generate 32 octets from it and use this as |
123
|
|
|
|
|
|
|
your secret key. |
124
|
|
|
|
|
|
|
|
125
|
|
|
|
|
|
|
=item $signature = Crypt::Ed25519::sign $message, $public_key, $private_key |
126
|
|
|
|
|
|
|
|
127
|
|
|
|
|
|
|
Generates a signature for the given message using the public and private |
128
|
|
|
|
|
|
|
keys. The signature is always 64 octets long and deterministic, i.e. it is |
129
|
|
|
|
|
|
|
always the same for a specific combination of C<$message>, C<$public_key> |
130
|
|
|
|
|
|
|
and C<$private_key>, i.e. no external source of randomness is required for |
131
|
|
|
|
|
|
|
signing. |
132
|
|
|
|
|
|
|
|
133
|
|
|
|
|
|
|
=item $valid = Crypt::Ed25519::verify $message, $public_key, $signature |
134
|
|
|
|
|
|
|
|
135
|
|
|
|
|
|
|
Checks whether the C<$signature> is valid for the C<$message> and C<$public_ke>. |
136
|
|
|
|
|
|
|
|
137
|
|
|
|
|
|
|
=item Crypt::Ed25519::verify_croak $message, $public_key, $signature |
138
|
|
|
|
|
|
|
|
139
|
|
|
|
|
|
|
Same as C, but instead of returning a boolean, |
140
|
|
|
|
|
|
|
simply croaks with an error message when the signature isn't valid, so you |
141
|
|
|
|
|
|
|
don't have to think about what the return value really means. |
142
|
|
|
|
|
|
|
|
143
|
|
|
|
|
|
|
=back |
144
|
|
|
|
|
|
|
|
145
|
|
|
|
|
|
|
=head1 EdDSA compatible API |
146
|
|
|
|
|
|
|
|
147
|
|
|
|
|
|
|
The upcoming EdDSA draft RFC uses a slightly different (and slower) |
148
|
|
|
|
|
|
|
API for Ed25519. This API is provided by the following functions: |
149
|
|
|
|
|
|
|
|
150
|
|
|
|
|
|
|
=over 4 |
151
|
|
|
|
|
|
|
|
152
|
|
|
|
|
|
|
=item $secret_key = Crypt::Ed25519::eddsa_secret_key |
153
|
|
|
|
|
|
|
|
154
|
|
|
|
|
|
|
Creates and returns a new secret key, which is always 32 octets |
155
|
|
|
|
|
|
|
long. The secret key can be used to generate the public key via |
156
|
|
|
|
|
|
|
C and is not the same as the private key |
157
|
|
|
|
|
|
|
used in the Ed25519 API. |
158
|
|
|
|
|
|
|
|
159
|
|
|
|
|
|
|
A secret key is simply a random bit string, so if you have a good source |
160
|
|
|
|
|
|
|
of key material, you can simply generate 32 octets from it and use this as |
161
|
|
|
|
|
|
|
your secret key. |
162
|
|
|
|
|
|
|
|
163
|
|
|
|
|
|
|
=item $public_key = Crypt::Ed25519::eddsa_public_key $secret_key |
164
|
|
|
|
|
|
|
|
165
|
|
|
|
|
|
|
Takes a secret key generated by C |
166
|
|
|
|
|
|
|
and returns the corresponding C<$public_key>. The derivation is |
167
|
|
|
|
|
|
|
deterministic, i.e. the C<$public_key> generated for a specific |
168
|
|
|
|
|
|
|
C<$secret_key> is always the same. |
169
|
|
|
|
|
|
|
|
170
|
|
|
|
|
|
|
This public key corresponds to the public key in the Ed25519 API above. |
171
|
|
|
|
|
|
|
|
172
|
|
|
|
|
|
|
=item $signature = Crypt::Ed25519::eddsa_sign $message, $public_key, $secret_key |
173
|
|
|
|
|
|
|
|
174
|
|
|
|
|
|
|
Generates a signature for the given message using the public and secret |
175
|
|
|
|
|
|
|
keys. Apart from specifying the C<$secret_key>, this function is identical |
176
|
|
|
|
|
|
|
to C, so everything said about it is true for this |
177
|
|
|
|
|
|
|
function as well. |
178
|
|
|
|
|
|
|
|
179
|
|
|
|
|
|
|
Internally, C derives the corresponding |
180
|
|
|
|
|
|
|
private key first and then calls C, so it is always |
181
|
|
|
|
|
|
|
slower. |
182
|
|
|
|
|
|
|
|
183
|
|
|
|
|
|
|
=item $valid = Crypt::Ed25519::eddsa_verify $message, $public_key, $signature |
184
|
|
|
|
|
|
|
|
185
|
|
|
|
|
|
|
=item Crypt::Ed25519::eddsa_verify_croak $message, $public_key, $signature |
186
|
|
|
|
|
|
|
|
187
|
|
|
|
|
|
|
Really the same as C and |
188
|
|
|
|
|
|
|
C, i.e. the functions without the C |
189
|
|
|
|
|
|
|
prefix. These aliases are provided so it's clear that you are using EdDSA |
190
|
|
|
|
|
|
|
and not Ed25519 API. |
191
|
|
|
|
|
|
|
|
192
|
|
|
|
|
|
|
=back |
193
|
|
|
|
|
|
|
|
194
|
|
|
|
|
|
|
=head1 CONVERTING BETWEEN Ed25519 and EdDSA |
195
|
|
|
|
|
|
|
|
196
|
|
|
|
|
|
|
The Ed25519 and EdDSA compatible APIs handle keys slightly |
197
|
|
|
|
|
|
|
differently: The Ed25519 API gives you a public/private key pair, while |
198
|
|
|
|
|
|
|
EdDSA takes a secret and generates a public key from it. |
199
|
|
|
|
|
|
|
|
200
|
|
|
|
|
|
|
You can convert an EdDSA secret to an Ed25519 private/public key pair |
201
|
|
|
|
|
|
|
using C: |
202
|
|
|
|
|
|
|
|
203
|
|
|
|
|
|
|
($public_key, $private_key) = Crypt::Ed25519::generate_keypair $secret |
204
|
|
|
|
|
|
|
|
205
|
|
|
|
|
|
|
As such, the EdDSA-style API allows you to store only the secret key and |
206
|
|
|
|
|
|
|
derive the public key as needed. On the other hand, signing using the |
207
|
|
|
|
|
|
|
private key is faster than using the secret key, so converting the secret |
208
|
|
|
|
|
|
|
key to a public/private key pair allows you to sign a small message, or |
209
|
|
|
|
|
|
|
many messages, faster. |
210
|
|
|
|
|
|
|
|
211
|
|
|
|
|
|
|
=head1 Key Exchange |
212
|
|
|
|
|
|
|
|
213
|
|
|
|
|
|
|
As an extension to Ed25519, this module implements a key exchange similar |
214
|
|
|
|
|
|
|
(But not identical) to Curve25519. For this, both sides generate a keypair |
215
|
|
|
|
|
|
|
and send their public key to the other side. Then both sides can generate |
216
|
|
|
|
|
|
|
the same shared secret using this function: |
217
|
|
|
|
|
|
|
|
218
|
|
|
|
|
|
|
=over |
219
|
|
|
|
|
|
|
|
220
|
|
|
|
|
|
|
=item $shared_secret = Crypt::Ed25519::key_exchange $other_public_key, $own_private_key |
221
|
|
|
|
|
|
|
|
222
|
|
|
|
|
|
|
Return the 32 octet shared secret generated from the given public and |
223
|
|
|
|
|
|
|
private key. See SYNOPSIS for an actual example. |
224
|
|
|
|
|
|
|
|
225
|
|
|
|
|
|
|
=back |
226
|
|
|
|
|
|
|
|
227
|
|
|
|
|
|
|
=head1 SUPPORT FOR THE PERL MULTICORE SPECIFICATION |
228
|
|
|
|
|
|
|
|
229
|
|
|
|
|
|
|
This module supports the perl multicore specification |
230
|
|
|
|
|
|
|
(L) for all operations, although it |
231
|
|
|
|
|
|
|
makes most sense to use it when signing or verifying longer messages. |
232
|
|
|
|
|
|
|
|
233
|
|
|
|
|
|
|
=head1 IMPLEMENTATION |
234
|
|
|
|
|
|
|
|
235
|
|
|
|
|
|
|
This module currently uses "Nightcracker's Ed25519" implementation, which |
236
|
|
|
|
|
|
|
is unmodified except for some portability fixes and static delcarations, |
237
|
|
|
|
|
|
|
but the interface is kept implementation-agnostic to allow usage of other |
238
|
|
|
|
|
|
|
implementations in the future. |
239
|
|
|
|
|
|
|
|
240
|
|
|
|
|
|
|
=head1 AUTHOR |
241
|
|
|
|
|
|
|
|
242
|
|
|
|
|
|
|
Marc Lehmann |
243
|
|
|
|
|
|
|
http://software.schmorp.de/pkg/Crypt-Ed25519.html |
244
|
|
|
|
|
|
|
|
245
|
|
|
|
|
|
|
=cut |
246
|
|
|
|
|
|
|
|
247
|
|
|
|
|
|
|
1 |
248
|
|
|
|
|
|
|
|