* (c) 2004 Straylight/Edgeware
*/
-/*----- Licensing notice --------------------------------------------------*
+/*----- Licensing notice --------------------------------------------------*
*
* This file is part of Catacomb.
*
* it under the terms of the GNU Library General Public License as
* published by the Free Software Foundation; either version 2 of the
* License, or (at your option) any later version.
- *
+ *
* Catacomb is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU Library General Public License for more details.
- *
+ *
* You should have received a copy of the GNU Library General Public
* License along with Catacomb; if not, write to the Free
* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
#include "ectab.h"
#include "ptab.h"
-/*----- Utilities ---------------------------------------------------------*/
-
-/* --- @keyreport@ --- *
- *
- * Arguments: @const char *file@ = filename containing the error
- * @int line@ = line number in file
- * @const char *err@ = error text message
- * @void *p@ = unimportant pointer
- *
- * Returns: ---
- *
- * Use: Reports errors during the opening of a key file.
- */
-
-static void keyreport(const char *file, int line, const char *err, void *p)
-{
- moan("error in keyring `%s' at line `%s': %s", file, line, err);
-}
-
/*----- Static variables --------------------------------------------------*/
static const char *keyring = "keyring";
* MGF (or similar) to make a symmetric encryption and MAC key.
*
* If the message is signed, there comes a signature chunk. The signature is
- * on the further output of the MGF. This means that the recipient can
- * modify the message and still have a valid signature, so it's not useful
- * for proving things to other people; but it also means that the recipient
- * knows that the message is from someone who knows the hash, which limits
- * the possiblities to (a) whoever encrypted the message (good!) and (b)
- * whoever knows the recipient's private key.
+ * on the header and key-encapsulation chunks, and further output of the MGF.
+ * This means that the recipient can modify the message and still have a
+ * valid signature, so it's not useful for proving things to other people;
+ * but it also means that the recipient knows that the message is from
+ * someone who knows the hash, which limits the possiblities to (a) whoever
+ * encrypted the message (good!) and (b) whoever knows the recipient's
+ * private key.
*
* Then come message chunks. Each one begins with a MAC over an implicit
* sequence number and the ciphertext. The final chunk's ciphertext is
const char *err;
int i;
int en;
- size_t n;
+ size_t n, chsz;
dstr d = DSTR_INIT;
octet *tag, *ct;
buf b;
size_t seq;
- char bb[16384];
+ char bb[65536];
unsigned f = 0;
key_file kf;
key *k;
enc *e;
#define f_bogus 1u
+#define f_nocheck 2u
for (;;) {
static const struct option opt[] = {
{ "sign-key", OPTF_ARGREQ, 0, 's' },
{ "armour", 0, 0, 'a' },
{ "armor", 0, 0, 'a' },
- { "format", OPTF_ARGREQ, 0, 'f' },
- { "output", OPTF_ARGREQ, 0, 'o' },
+ { "format", OPTF_ARGREQ, 0, 'f' },
+ { "output", OPTF_ARGREQ, 0, 'o' },
+ { "nocheck", 0, 0, 'C' },
{ 0, 0, 0, 0 }
};
- i = mdwopt(argc, argv, "k:s:af:o:", opt, 0, 0, 0);
+ i = mdwopt(argc, argv, "k:s:af:o:C", opt, 0, 0, 0);
if (i < 0) break;
switch (i) {
case 'k': kn = optarg; break;
case 'a': ef = "pem"; break;
case 'f': ef = optarg; break;
case 'o': of = optarg; break;
+ case 'C': f |= f_nocheck; break;
default: f |= f_bogus; break;
}
}
if (argc - optind > 1 || (f & f_bogus))
die(EXIT_FAILURE, "Usage: encrypt [-OPTIONS] [FILE]");
- if (key_open(&kf, keyring, KOPEN_READ, keyreport, 0))
+ if (key_open(&kf, keyring, KOPEN_READ, key_moan, 0))
die(EXIT_FAILURE, "can't open keyring `%s'", keyring);
if ((k = key_bytag(&kf, kn)) == 0)
die(EXIT_FAILURE, "key `%s' not found", kn);
key_fulltag(k, &d);
e = initenc(eo, ofp, "CATCRYPT ENCRYPTED MESSAGE");
km = getkem(k, "cckem", 0);
- if ((err = km->ops->check(km)) != 0)
+ if (!(f & f_nocheck) && (err = km->ops->check(km)) != 0)
moan("key %s fails check: %s", d.buf, err);
if (sk) {
dstr_reset(&d);
buf_putu32(&b, k->id);
if (sk) buf_putu32(&b, sk->id);
assert(BOK(&b));
+ if (s) GH_HASHBUF16(s->h, BBASE(&b), BLEN(&b));
chunk_write(e, &b);
/* --- Build the KEM chunk --- */
die(EXIT_FAILURE, "failed to encapsulate key");
buf_init(&b, d.buf, d.len);
BSTEP(&b, d.len);
+ if (s) GH_HASHBUF16(s->h, BBASE(&b), BLEN(&b));
chunk_write(e, &b);
/* --- Write the signature chunk --- */
buf_init(&b, d.buf, d.len);
BSTEP(&b, d.len);
chunk_write(e, &b);
- }
+ }
/* --- Now do the main crypto --- */
assert(GC_CLASS(c)->blksz <= sizeof(bb));
dstr_ensure(&d, sizeof(bb) + GM_CLASS(m)->hashsz);
seq = 0;
+ chsz = MASK16 - GM_CLASS(m)->hashsz;
for (;;) {
h = GM_INIT(m);
GH_HASHU32(h, seq);
GC_ENCRYPT(cx, 0, bb, GC_CLASS(c)->blksz);
GC_SETIV(c, bb);
}
- n = fread(bb, 1, sizeof(bb), fp);
+ n = fread(bb, 1, chsz, fp);
if (!n) break;
buf_init(&b, d.buf, d.sz);
tag = buf_get(&b, GM_CLASS(m)->hashsz);
return (0);
#undef f_bogus
+#undef f_nocheck
}
/*---- Decryption ---------------------------------------------------------*/
#define f_bogus 1u
#define f_buffer 2u
+#define f_nocheck 4u
for (;;) {
static const struct option opt[] = {
{ "buffer", 0, 0, 'b' },
{ "verbose", 0, 0, 'v' },
{ "quiet", 0, 0, 'q' },
- { "format", OPTF_ARGREQ, 0, 'f' },
- { "output", OPTF_ARGREQ, 0, 'o' },
+ { "nocheck", 0, 0, 'C' },
+ { "format", OPTF_ARGREQ, 0, 'f' },
+ { "output", OPTF_ARGREQ, 0, 'o' },
{ 0, 0, 0, 0 }
};
- i = mdwopt(argc, argv, "abf:o:qv", opt, 0, 0, 0);
+ i = mdwopt(argc, argv, "abf:o:qvC", opt, 0, 0, 0);
if (i < 0) break;
switch (i) {
case 'a': ef = "pem"; break;
case 'b': f |= f_buffer; break;
case 'v': verb++; break;
case 'q': if (verb) verb--; break;
+ case 'C': f |= f_nocheck; break;
case 'f': ef = optarg; break;
case 'o': of = optarg; break;
default: f |= f_bogus; break;
} else
optind++;
- if (key_open(&kf, keyring, KOPEN_READ, keyreport, 0))
+ if (key_open(&kf, keyring, KOPEN_READ, key_moan, 0))
die(EXIT_FAILURE, "can't open keyring `%s'", keyring);
e = initdec(eo, fp, checkbdry, "CATCRYPT ENCRYPTED MESSAGE");
if (verb) printf("FAIL malformed header: junk at end\n");
exit(EXIT_FAILURE);
}
+ if (sk) {
+ s = getsig(sk, "ccsig", 0);
+ if (!(f & f_nocheck) && verb && (err = s->ops->check(s)) != 0) {
+ dstr_reset(&d);
+ key_fulltag(sk, &d);
+ printf("WARN verification key %s fails check: %s\n", d.buf, err);
+ }
+ GH_HASHBUF16(s->h, BBASE(&b), BSZ(&b));
+ }
/* --- Find the key --- */
if (verb) printf("FAIL failed to decapsulate key\n");
exit(EXIT_FAILURE);
}
+ if (s) GH_HASHBUF16(s->h, d.buf, d.len);
/* --- Verify the signature, if there is one --- */
if (sk) {
- s = getsig(sk, "ccsig", 0);
- dstr_reset(&d);
- key_fulltag(sk, &d);
- if (verb && (err = s->ops->check(s)) != 0)
- printf("WARN verification key %s fails check: %s\n", d.buf, err);
dstr_reset(&d);
dstr_ensure(&d, 1024);
GC_ENCRYPT(cx, 0, d.buf, 1024);
die(EXIT_FAILURE, "error unbuffering output: %s", strerror(errno));
}
if (ofp && (fflush(ofp) || ferror(ofp) || fclose(ofp)))
- die(EXIT_FAILURE, "error writing output: %s", strerror(errno));
+ die(EXIT_FAILURE, "error writing output: %s", strerror(errno));
e->ops->decdone(e);
if (verb && ofp != stdout)
#undef f_bogus
#undef f_buffer
+#undef f_nocheck
}
/*----- Main code ---------------------------------------------------------*/
CMD_ENCODE,
CMD_DECODE,
{ "encrypt", encrypt,
- "encrypt [-a] [-k TAG] [-s TAG] [-f FORMAT]\n\t\
+ "encrypt [-aC] [-k TAG] [-s TAG] [-f FORMAT]\n\t\
[-o OUTPUT] [FILE]", "\
Options:\n\
\n\
-k, --key=TAG Use public encryption key named by TAG.\n\
-s, --sign-key=TAG Use private signature key named by TAG.\n\
-o, --output=FILE Write output to FILE.\n\
+-C, --nocheck Don't check the public key.\n\
" },
{ "decrypt", decrypt,
- "decrypt [-abqv] [-f FORMAT] [-o OUTPUT] [FILE]", "\
+ "decrypt [-abqvC] [-f FORMAT] [-o OUTPUT] [FILE]", "\
Options:\n\
\n\
-a, --armour Same as `-f pem'.\n\
-o, --output=FILE Write output to FILE.\n\
-q, --quiet Produce fewer messages.\n\
-v, --verbose Produce more verbose messages.\n\
+-C, --nocheck Don't check the private key.\n\
" }, /* ' emacs is confused */
{ 0, 0, 0 }
};
projects / u / mdw / catacomb / blobdiff