/*
* PDKIM - a RFC4871 (DKIM) implementation
*
- * Copyright (C) 2009 Tom Kistner <tom@duncanthrax.net>
+ * Copyright (C) 2009 - 2015 Tom Kistner <tom@duncanthrax.net>
*
* http://duncanthrax.net/pdkim/
*
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
*/
-/* $Cambridge: exim/src/src/pdkim/pdkim.c,v 1.14 2010/05/29 19:14:06 nm4 Exp $ */
-
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
/* -------------------------------------------------------------------------- */
struct pdkim_stringlist {
char *value;
+ int tag;
void *next;
};
char *pdkim_strcat(pdkim_str *str, const char *cstr) {
return pdkim_strncat(str, cstr, strlen(cstr));
}
+
char *pdkim_numcat(pdkim_str *str, unsigned long num) {
char minibuf[20];
snprintf(minibuf,20,"%lu",num);
if (sig->signature_header != NULL) free(sig->signature_header);
if (sig->sha1_body != NULL) free(sig->sha1_body);
if (sig->sha2_body != NULL) free(sig->sha2_body);
- if (sig->hnames_check != NULL) free(sig->hnames_check);
if (sig->pubkey != NULL) pdkim_free_pubkey(sig->pubkey);
/* -------------------------------------------------------------------------- */
DLLEXPORT void pdkim_free_ctx(pdkim_ctx *ctx) {
if (ctx) {
+ pdkim_stringlist *e = ctx->headers;
+ while(e != NULL) {
+ pdkim_stringlist *c = e;
+ if (e->value != NULL) free(e->value);
+ e = e->next;
+ free(c);
+ }
pdkim_free_sig(ctx->sig);
pdkim_strfree(ctx->cur_header);
free(ctx);
return NULL;
}
- /* Copy header list to 'tick-off' header list */
- sig->hnames_check = strdup(sig->headernames);
-
*q = '\0';
/* Chomp raw header. The final newline must not be added to the signature. */
q--;
ctx->num_headers++;
if (ctx->num_headers > PDKIM_MAX_HEADERS) goto BAIL;
- /* Traverse all signatures */
- while (sig != NULL) {
- pdkim_stringlist *list;
+ /* SIGNING -------------------------------------------------------------- */
+ if (ctx->mode == PDKIM_MODE_SIGN) {
+ /* Traverse all signatures */
+ while (sig != NULL) {
+ pdkim_stringlist *list;
- /* SIGNING -------------------------------------------------------------- */
- if (ctx->mode == PDKIM_MODE_SIGN) {
if (header_name_match(ctx->cur_header->str,
sig->sign_headers?
sig->sign_headers:
PDKIM_DEFAULT_SIGN_HEADERS, 0) != PDKIM_OK) goto NEXT_SIG;
- }
- /* VERIFICATION --------------------------------------------------------- */
- else {
- /* Header is not included or all instances were already 'ticked off' */
- if (header_name_match(ctx->cur_header->str,
- sig->hnames_check, 1) != PDKIM_OK) goto NEXT_SIG;
- }
- /* Add header to the signed headers list (in reverse order) */
- list = pdkim_prepend_stringlist(sig->headers,
- ctx->cur_header->str);
- if (list == NULL) return PDKIM_ERR_OOM;
- sig->headers = list;
-
- NEXT_SIG:
- sig = sig->next;
+ /* Add header to the signed headers list (in reverse order) */
+ list = pdkim_prepend_stringlist(sig->headers,
+ ctx->cur_header->str);
+ if (list == NULL) return PDKIM_ERR_OOM;
+ sig->headers = list;
+
+ NEXT_SIG:
+ sig = sig->next;
+ }
}
/* DKIM-Signature: headers are added to the verification list */
- if ( (ctx->mode == PDKIM_MODE_VERIFY) &&
- (strncasecmp(ctx->cur_header->str,
+ if (ctx->mode == PDKIM_MODE_VERIFY) {
+ if (strncasecmp(ctx->cur_header->str,
DKIM_SIGNATURE_HEADERNAME,
- strlen(DKIM_SIGNATURE_HEADERNAME)) == 0) ) {
- pdkim_signature *new_sig;
- /* Create and chain new signature block */
- #ifdef PDKIM_DEBUG
- if (ctx->debug_stream)
- fprintf(ctx->debug_stream,
- "PDKIM >> Found sig, trying to parse >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>\n");
- #endif
- new_sig = pdkim_parse_sig_header(ctx, ctx->cur_header->str);
- if (new_sig != NULL) {
- pdkim_signature *last_sig = ctx->sig;
- if (last_sig == NULL) {
- ctx->sig = new_sig;
+ strlen(DKIM_SIGNATURE_HEADERNAME)) == 0) {
+ pdkim_signature *new_sig;
+ /* Create and chain new signature block */
+ #ifdef PDKIM_DEBUG
+ if (ctx->debug_stream)
+ fprintf(ctx->debug_stream,
+ "PDKIM >> Found sig, trying to parse >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>\n");
+ #endif
+ new_sig = pdkim_parse_sig_header(ctx, ctx->cur_header->str);
+ if (new_sig != NULL) {
+ pdkim_signature *last_sig = ctx->sig;
+ if (last_sig == NULL) {
+ ctx->sig = new_sig;
+ }
+ else {
+ while (last_sig->next != NULL) { last_sig = last_sig->next; }
+ last_sig->next = new_sig;
+ }
}
else {
- while (last_sig->next != NULL) { last_sig = last_sig->next; }
- last_sig->next = new_sig;
+ #ifdef PDKIM_DEBUG
+ if (ctx->debug_stream) {
+ fprintf(ctx->debug_stream,"Error while parsing signature header\n");
+ fprintf(ctx->debug_stream,
+ "PDKIM <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<\n");
+ }
+ #endif
}
}
+ /* every other header is stored for signature verification */
else {
- #ifdef PDKIM_DEBUG
- if (ctx->debug_stream) {
- fprintf(ctx->debug_stream,"Error while parsing signature header\n");
- fprintf(ctx->debug_stream,
- "PDKIM <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<\n");
- }
- #endif
+ pdkim_stringlist *list;
+
+ list = pdkim_prepend_stringlist(ctx->headers,
+ ctx->cur_header->str);
+ if (list == NULL) return PDKIM_ERR_OOM;
+ ctx->headers = list;
}
}
return PDKIM_OK;
}
+/*
+ * RFC 5322 specifies that header line length SHOULD be no more than 78
+ * lets make it so!
+ * pdkim_headcat
+ * returns char*
+ *
+ * col: this int holds and receives column number (octets since last '\n')
+ * str: partial string to append to
+ * pad: padding, split line or space after before or after eg: ";"
+ * intro: - must join to payload eg "h=", usually the tag name
+ * payload: eg base64 data - long data can be split arbitrarily.
+ *
+ * this code doesn't fold the header in some of the places that RFC4871
+ * allows: As per RFC5322(2.2.3) it only folds before or after tag-value
+ * pairs and inside long values. it also always spaces or breaks after the
+ * "pad"
+ *
+ * no guarantees are made for output given out-of range input. like tag
+ * names loinger than 78, or bogus col. Input is assumed to be free of line breaks.
+ */
+
+static char *pdkim_headcat(int *col, pdkim_str *str, const char*pad,const char *intro, const char *payload ) {
+ size_t l;
+ if( pad)
+ {
+ l = strlen(pad);
+ if( *col + l > 78 )
+ {
+ pdkim_strcat(str, "\r\n\t");
+ *col=1;
+ }
+ pdkim_strncat(str, pad,l);
+ *col +=l;
+ }
+
+ l=(pad?1:0) + (intro?strlen(intro):0 );
+
+ if( *col + l > 78 )
+ { /*can't fit intro - start a new line to make room.*/
+ pdkim_strcat(str, "\r\n\t");
+ *col=1;
+ l= intro?strlen(intro):0;
+ }
+
+ l += payload ? strlen(payload):0 ;
+
+ while(l>77)
+ { /* this fragment will not fit on a single line */
+ if( pad )
+ {
+ pdkim_strcat(str, " ");
+ *col +=1;
+ pad=NULL; // only want this once
+ l--;
+ }
+ if( intro )
+ {
+ size_t sl=strlen(intro);
+ pdkim_strncat(str, intro,sl);
+ *col +=sl;
+ l-=sl;
+ intro=NULL; // only want this once
+ }
+ if(payload)
+ {
+ size_t sl=strlen(payload);
+ size_t chomp = *col+sl < 77 ? sl : 78-*col;
+ pdkim_strncat(str, payload,chomp);
+ *col +=chomp;
+ payload+=chomp;
+ l-=chomp-1;
+ }
+ // the while precondition tells us it didn't fit.
+ pdkim_strcat(str, "\r\n\t");
+ *col=1;
+ }
+ if( *col + l > 78 )
+ {
+ pdkim_strcat(str, "\r\n\t");
+ *col=1;
+ pad=NULL;
+ }
+
+ if( pad )
+ {
+ pdkim_strcat(str, " ");
+ *col +=1;
+ pad=NULL;
+ }
+
+ if( intro )
+ {
+ size_t sl=strlen(intro);
+ pdkim_strncat(str, intro,sl);
+ *col +=sl;
+ l-=sl;
+ intro=NULL;
+ }
+ if(payload)
+ {
+ size_t sl=strlen(payload);
+ pdkim_strncat(str, payload,sl);
+ *col +=sl;
+ }
+
+ return str->str;
+}
/* -------------------------------------------------------------------------- */
char *pdkim_create_header(pdkim_signature *sig, int final) {
char *rc = NULL;
char *base64_bh = NULL;
char *base64_b = NULL;
+ int col=0;
pdkim_str *hdr = pdkim_strnew("DKIM-Signature: v="PDKIM_SIGNATURE_VERSION);
if (hdr == NULL) return NULL;
+ pdkim_str *canon_all = pdkim_strnew(pdkim_canons[sig->canon_headers]);
+ if (canon_all == NULL) goto BAIL;
base64_bh = pdkim_encode_base64(sig->bodyhash, sig->bodyhash_len);
if (base64_bh == NULL) goto BAIL;
+ col=strlen(hdr->str);
+
/* Required and static bits */
if (
- pdkim_strcat(hdr,"; a=") &&
- pdkim_strcat(hdr,pdkim_algos[sig->algo]) &&
- pdkim_strcat(hdr,"; q=") &&
- pdkim_strcat(hdr,pdkim_querymethods[sig->querymethod]) &&
- pdkim_strcat(hdr,"; c=") &&
- pdkim_strcat(hdr,pdkim_canons[sig->canon_headers]) &&
- pdkim_strcat(hdr,"/") &&
- pdkim_strcat(hdr,pdkim_canons[sig->canon_body]) &&
- pdkim_strcat(hdr,"; d=") &&
- pdkim_strcat(hdr,sig->domain) &&
- pdkim_strcat(hdr,"; s=") &&
- pdkim_strcat(hdr,sig->selector) &&
- pdkim_strcat(hdr,";\r\n\th=") &&
- pdkim_strcat(hdr,sig->headernames) &&
- pdkim_strcat(hdr,"; bh=") &&
- pdkim_strcat(hdr,base64_bh) &&
- pdkim_strcat(hdr,";\r\n\t")
+ pdkim_headcat(&col,hdr,";","a=",pdkim_algos[sig->algo]) &&
+ pdkim_headcat(&col,hdr,";","q=",pdkim_querymethods[sig->querymethod]) &&
+ pdkim_strcat(canon_all,"/") &&
+ pdkim_strcat(canon_all,pdkim_canons[sig->canon_body]) &&
+ pdkim_headcat(&col,hdr,";","c=",canon_all->str) &&
+ pdkim_headcat(&col,hdr,";","d=",sig->domain) &&
+ pdkim_headcat(&col,hdr,";","s=",sig->selector)
) {
+ /* list of eader names can be split between items. */
+ {
+ char *n=strdup(sig->headernames);
+ char *f=n;
+ char *i="h=";
+ char *s=";";
+ if(!n) goto BAIL;
+ while (*n)
+ {
+ char *c=strchr(n,':');
+ if(c) *c='\0';
+ if(!i)
+ {
+ if (!pdkim_headcat(&col,hdr,NULL,NULL,":"))
+ {
+ free(f);
+ goto BAIL;
+ }
+ }
+ if( !pdkim_headcat(&col,hdr,s,i,n))
+ {
+ free(f);
+ goto BAIL;
+ }
+ if(c) n=c+1 ; else break;
+ s=NULL;
+ i=NULL;
+ }
+ free(f);
+ }
+ if(!pdkim_headcat(&col,hdr,";","bh=",base64_bh))
+ goto BAIL;
+
/* Optional bits */
if (sig->identity != NULL) {
- if (!( pdkim_strcat(hdr,"i=") &&
- pdkim_strcat(hdr,sig->identity) &&
- pdkim_strcat(hdr,";") ) ) {
+ if(!pdkim_headcat(&col,hdr,";","i=",sig->identity)){
goto BAIL;
}
}
+
if (sig->created > 0) {
- if (!( pdkim_strcat(hdr,"t=") &&
- pdkim_numcat(hdr,sig->created) &&
- pdkim_strcat(hdr,";") ) ) {
+ char minibuf[20];
+ snprintf(minibuf,20,"%lu",sig->created);
+ if(!pdkim_headcat(&col,hdr,";","t=",minibuf)) {
goto BAIL;
}
}
if (sig->expires > 0) {
- if (!( pdkim_strcat(hdr,"x=") &&
- pdkim_numcat(hdr,sig->expires) &&
- pdkim_strcat(hdr,";") ) ) {
+ char minibuf[20];
+ snprintf(minibuf,20,"%lu",sig->expires);
+ if(!pdkim_headcat(&col,hdr,";","x=",minibuf)) {
goto BAIL;
}
}
if (sig->bodylength >= 0) {
- if (!( pdkim_strcat(hdr,"l=") &&
- pdkim_numcat(hdr,sig->bodylength) &&
- pdkim_strcat(hdr,";") ) ) {
+ char minibuf[20];
+ snprintf(minibuf,20,"%lu",sig->bodylength);
+ if(!pdkim_headcat(&col,hdr,";","l=",minibuf)) {
goto BAIL;
}
}
- /* Extra linebreak */
- if (hdr->str[(hdr->len)-1] == ';') {
- if (!pdkim_strcat(hdr," \r\n\t")) goto BAIL;
- }
+
/* Preliminary or final version? */
if (final) {
base64_b = pdkim_encode_base64(sig->sigdata, sig->sigdata_len);
if (base64_b == NULL) goto BAIL;
- if (
- pdkim_strcat(hdr,"b=") &&
- pdkim_strcat(hdr,base64_b) &&
- pdkim_strcat(hdr,";")
- ) goto DONE;
+ if(!pdkim_headcat(&col,hdr,";","b=",base64_b)) goto BAIL;
}
else {
- if (pdkim_strcat(hdr,"b=;")) goto DONE;
+ if(!pdkim_headcat(&col,hdr,";","b=","")) goto BAIL;
}
- goto BAIL;
+ /* add trailing semicolon: I'm not sure if this is actually needed */
+ if(!pdkim_headcat(&col,hdr,NULL,";","")) goto BAIL;
+
+ goto DONE;
}
DONE:
BAIL:
pdkim_strfree(hdr);
+ if (canon_all != NULL) pdkim_strfree(canon_all);
if (base64_bh != NULL) free(base64_bh);
if (base64_b != NULL) free(base64_b);
return rc;
char *b = strdup(sig->headernames);
char *p = b;
char *q = NULL;
+ pdkim_stringlist *hdrs = ctx->headers;
+
if (b == NULL) return PDKIM_ERR_OOM;
+ /* clear tags */
+ while (hdrs != NULL) {
+ hdrs->tag = 0;
+ hdrs = hdrs->next;
+ }
+
while(1) {
- pdkim_stringlist *hdrs = sig->headers;
+ hdrs = ctx->headers;
q = strchr(p,':');
if (q != NULL) *q = '\0';
while (hdrs != NULL) {
- if ( (strncasecmp(hdrs->value,p,strlen(p)) == 0) &&
+ if ( (hdrs->tag == 0) &&
+ (strncasecmp(hdrs->value,p,strlen(p)) == 0) &&
((hdrs->value)[strlen(p)] == ':') ) {
char *rh = NULL;
if (sig->canon_headers == PDKIM_CANON_RELAXED)
pdkim_quoteprint(ctx->debug_stream, rh, strlen(rh), 1);
#endif
free(rh);
- (hdrs->value)[0] = '_';
+ hdrs->tag = 1;
break;
}
hdrs = hdrs->next;