int mix_dearmor(BUFFER *in, BUFFER *out)
{
BUFFER *line, *md;
int tempbuf = 0;
int err = 0;
line = buf_new();
md = buf_new();
if (in == out) {
tempbuf = 1;
out = buf_new();
}
do {
err = buf_getline(in, line);
if (err == -1)
goto end;
}
while (!bufeq(line, begin_remailer));
do {
/* skip lines before message digest */
if (buf_getline(in, md) == -1)
break;
} while (strlen(md->data) != 24);
decode(in, out);
err = buf_getline(in, line);
if (err != 0 || !bufeq(line, end_remailer))
err = -1;
else {
digest_md5(out, line);
encode(line, 0);
if (!buf_eq(md, line))
err = -1;
if (out->length != 20480)
err = -1;
}
end:
if (err == -1)
errlog(NOTICE, "Malformatted message.\n");
if (tempbuf) {
buf_move(in, out);
buf_free(out);
}
buf_free(line);
buf_free(md);
return (err);
}
static int pgp_readkeyring(BUFFER *keys, char *filename)
{
FILE *keyfile;
BUFFER *armored, *line, *tmp;
int err = -1;
if ((keyfile = mix_openfile(filename, "rb")) == NULL)
return (err);
armored = buf_new();
buf_read(armored, keyfile);
fclose(keyfile);
if (pgp_ispacket(armored)) {
err = 0;
buf_move(keys, armored);
} else {
line = buf_new();
tmp = buf_new();
while (1) {
do
if (buf_getline(armored, line) == -1) {
goto end_greedy_dearmor;
}
while (!bufleft(line, begin_pgp)) ;
buf_clear(tmp);
buf_cat(tmp, line);
buf_appends(tmp, "\n");
do {
if (buf_getline(armored, line) == -1) {
goto end_greedy_dearmor;
}
buf_cat(tmp, line);
buf_appends(tmp, "\n");
} while (!bufleft(line, end_pgp)) ;
if (pgp_dearmor(tmp, tmp) == 0) {
err = ARMORED;
buf_cat(keys, tmp);
}
}
end_greedy_dearmor:
buf_free(line);
buf_free(tmp);
}
buf_free(armored);
return (err);
}
static int header_write (HEADER_BUF *hbuf, const char *data, int dlen)
{
char buf[1024];
int done, len;
int nonl = hbuf->nonl;
done = 0;
while (done < dlen)
{
nonl = hbuf->nonl;
len = buf_getline (data + done, dlen - done, buf, sizeof(buf), &(hbuf->nonl));
if (len == 0)
break;
done += len;
if (hbuf->len + len > hbuf->max)
{
hbuf->max *= 2;
if (hbuf->len + len > hbuf->max)
{
hbuf->max += len + 1;
}
hbuf->buf = (char *) realloc ((void *)(hbuf->buf), hbuf->max);
}
memcpy (hbuf->buf + hbuf->len, buf, len);
hbuf->len += len;
if (!nonl && (buf[0] == '\n' || buf[0] == '\r'))
{
/* end of headers */
return done;
}
}
return 0;
}
static int h_getline (char *buf, int len, void *h)
{
HEADER_BUF *hbuf = (HEADER_BUF *)h;
int ret;
buf[0] = '\0';
if (hbuf->loc > hbuf->len)
return 0;
ret = buf_getline (hbuf->buf + hbuf->loc, hbuf->len - hbuf->loc, buf, len, &(hbuf->nonl));
hbuf->loc += ret;
#if ECS_DEBUG>1
fprintf (stderr, "h_getline: [%d] %s\n", ret, buf);
#endif
return ret;
}
int chain_select(int hop[], char *chainstr, int maxrem, REMAILER *remailer,
int type, BUFFER *feedback)
{
/* hop[] is returned containing the chain as integers (0 means random like *)
* chainstr is the input desired chain such as *,*,*,*
* remailer is an input list of remailer details (see mix2_rlist())
*/
int len = 0;
int i, j, k;
BUFFER *chain, *selected, *addr;
chain = buf_new();
selected = buf_new();
addr = buf_new();
if (chainstr == NULL || chainstr[0] == '\0')
buf_sets(chain, CHAIN);
else
buf_sets(chain, chainstr);
/* put the chain backwards: final hop is in hop[0] */
for (i = chain->length; i >= 0; i--)
if (i == 0 || chain->data[i - 1] == ','
|| chain->data[i - 1] == ';' || chain->data[i - 1] == ':') {
for (j = i; isspace(chain->data[j]);) /* ignore whitespace */
j++;
if (chain->data[j] == '\0')
break;
if (chain->data[j] == '*')
k = 0;
#if 0
else if (isdigit(chain->data[j]))
k = atoi(chain->data + j);
#endif /* 0 */
else {
buf_sets(selected, chain->data + j);
rfc822_addr(selected, addr);
buf_clear(selected);
buf_getline(addr, selected);
if (!selected->length)
buf_sets(selected, chain->data + j);
for (k = 0; k < maxrem; k++)
if (((remailer[k].flags.mix && type == 0) ||
(remailer[k].flags.cpunk && type == 1) ||
(remailer[k].flags.newnym && type == 2)) &&
(streq(remailer[k].name, selected->data) ||
strieq(remailer[k].addr, selected->data) ||
(selected->data[0] == '@' && strifind(remailer[k].addr,
selected->data))))
break;
}
if (k < 0 || k >= maxrem) {
if (feedback != NULL) {
buf_appendf(feedback, "No such remailer: %b", selected);
buf_nl(feedback);
}
#if 0
k = 0;
#else /* end of 0 */
len = -1;
goto end;
#endif /* else not 0 */
}
hop[len++] = k;
if (len >= 20) { /* array passed in is has length 20 */
if (feedback != NULL) {
buf_appends(feedback, "Chain too long.\n");
}
break;
}
if (i > 0)
chain->data[i - 1] = '\0';
}
end:
buf_free(chain);
buf_free(selected);
buf_free(addr);
return len;
}
int v2body(BUFFER *body)
{
int i, n;
BUFFER *to, *newsgroups;
BUFFER *temp, *out;
BUFFER *line;
int type = MSG_MAIL;
int subject = 0;
line = buf_new();
to = buf_new();
newsgroups = buf_new();
temp = buf_new();
out = buf_new();
n = buf_getc(body);
for (i = 0; i < n; i++) {
buf_get(body, line, 80);
buf_chop(line);
if (bufileft(line, "null:"))
goto end;
if (bufileft(line, "post:")) {
type = MSG_POST;
if (line->length > 5) {
int j = 5;
while (j < line->length && isspace(line->data[j]))
j++;
if (newsgroups->length > 0)
buf_appends(newsgroups, ",");
buf_append(newsgroups, line->data + j, line->length - j);
}
} else {
if (to->length > 0)
buf_appends(to, ",");
buf_cat(to, line);
}
}
if (to->length > 0) {
buf_appends(out, "To: ");
buf_cat(out, to);
buf_nl(out);
}
if (newsgroups->length > 0) {
buf_appends(out, "Newsgroups: ");
buf_cat(out, newsgroups);
buf_nl(out);
}
n = buf_getc(body);
for (i = 0; i < n; i++) {
buf_get(body, line, 80);
buf_chop(line);
if (bufileft(line, "Subject:"))
subject = 1;
buf_cat(out, line);
buf_nl(out);
}
buf_rest(temp, body);
buf_uncompress(temp);
buf_set(body, temp);
buf_reset(temp);
if (buf_lookahead(body, line) == 0 && isline(line, HASHMARK)) {
buf_getline(body, line);
while (buf_getline(body, line) == 0) {
if (bufileft(line, "subject:"))
subject = 1;
buf_cat(out, line);
buf_nl(out);
}
}
if (type == MSG_POST && !subject)
buf_appends(out, "Subject: (no subject)\n");
buf_nl(out);
buf_rest(out, body);
buf_reset(body);
mix_pool(out, type, -1);
end:
buf_free(line);
buf_free(to);
buf_free(newsgroups);
buf_free(temp);
buf_free(out);
return (0);
}
int main()
{
int exit_code = EXIT_SUCCESS;
struct buf_t* buf = buf_new(MAX_SIZE);
char s[MAX_SIZE + 1];
if (print_prompt() < 0) {
QUIT(EXIT_FAILURE);
}
ssize_t size;
while ((size = buf_getline(STDOUT_FILENO,
buf,
s,
MAX_SIZE))) {
if (size < 0) {
QUIT(EXIT_FAILURE);
}
s[size] = 0;
char** piped_programs = split(s, '|', 0);
if (!piped_programs) {
goto ERROR;
}
char** p;
for (p = piped_programs; *p; p++)
;
int len = p - piped_programs;
execargs_t** programs = malloc(len * sizeof(execargs_t*));
if (!programs) {
for (char** p = piped_programs; *p; p++) {
free(*p);
}
free(piped_programs);
goto ERROR;
}
for (int i = 0; i < len; i++) {
programs[i] = execargs_parse(piped_programs[i]);
if (!programs[i]) {
for (int j = 0; j < i; j++) {
free(programs[j]);
}
for (int j = 0; j < len; j++) {
free(piped_programs[j]);
}
free(programs);
free(piped_programs);
goto ERROR;
}
}
if (runpiped(programs, len) < 0) {
goto ERROR;
}
if (print_prompt() < 0) {
QUIT(EXIT_FAILURE);
}
continue;
ERROR:
if (print_prompt() < 0) {
QUIT(EXIT_FAILURE);
}
}
EXIT:
buf_free(buf);
return exit_code;
}
