void mix_check_timeskew() {
FILE *f;
long now, tpool = 0, tpop3 = 0, tdaily = 0, tmailin = 0, latest = 0;
f = mix_openfile(REGULAR, "r+");
if (f != NULL) {
lock(f);
fscanf(f, "%ld %ld %ld %ld", &tpool, &tpop3, &tdaily, &tmailin);
latest = tpool;
latest = latest > tpop3 ? latest : tpop3;
latest = latest > tdaily ? latest : tdaily;
latest = latest > tmailin ? latest : tmailin;
now = time(NULL);
if (( (TIMESKEW_BACK != 0) && (now < latest - TIMESKEW_BACK )) ||
( (TIMESKEW_FORWARD != 0) && (now > latest + TIMESKEW_FORWARD)) ) {
/* Possible timeskew */
errlog(ERRORMSG, "Possible timeskew detected. Check clock and rm %s\n", REGULAR);
exit(TEMP_FAIL);
}
fclose(f);
} else {
/* shrug */
}
}
int pgpdb_close(KEYRING *keydb)
{
int err = 0;
if (keydb->modified) {
FILE *f;
#ifdef DEBUG
assert(keydb->writer);
#endif
if (keydb->encryptkey && keydb->encryptkey->length)
pgp_encrypt(PGP_NCONVENTIONAL | PGP_NOARMOR, keydb->db,
keydb->encryptkey, NULL, NULL, NULL, NULL);
assert(keydb->type == PGP_TYPE_PRIVATE || keydb->type == PGP_TYPE_PUBLIC);
if (keydb->filetype == ARMORED)
pgp_armor(keydb->db, keydb->type == PGP_TYPE_PUBLIC ? PGP_ARMOR_KEY : PGP_ARMOR_SECKEY);
if (keydb->filetype == -1 || (f = mix_openfile(keydb->filename,
keydb->filetype ==
ARMORED ? "w" : "wb"))
== NULL)
err = -1;
else {
err = buf_write(keydb->db, f);
fclose(f);
}
}
if (keydb->lock)
unlockfile(keydb->lock);
if (keydb->encryptkey)
buf_free(keydb->encryptkey);
buf_free(keydb->db);
free(keydb);
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);
}
void mix_upd_stats(void)
{
FILE *f;
BUFFER *statssrc;
statssrc = buf_new();
buf_clear(statssrc);
f = mix_openfile(STATSSRC, "r");
if (f != NULL) {
buf_read(statssrc, f);
fclose(f);
}
if (statssrc->length > 0)
download_stats(statssrc->data);
buf_free(statssrc);
}
void errlog(int type, char *fmt,...)
{
va_list args;
BUFFER *msg;
FILE *e = NULL;
time_t t;
struct tm *tc;
char line[LINELEN];
int p;
char err[6][8] =
{"", "Error", "Warning", "Notice", "Info", "Info"};
if ((VERBOSE == 0 && type != ERRORMSG) || (type == LOG && VERBOSE < 2)
|| (type == DEBUGINFO && VERBOSE < 3))
return;
t = time(NULL);
tc = localtime(&t);
strftime(line, LINELEN, "[%Y-%m-%d %H:%M:%S] ", tc);
msg = buf_new();
buf_appends(msg, line);
p = msg->length;
buf_appendf(msg, "%s: [%d] ", err[type], getpid());
va_start(args, fmt);
buf_vappendf(msg, fmt, args);
va_end(args);
if (streq(ERRLOG, "stdout"))
e = stdout;
else if (streq(ERRLOG, "stderr"))
e = stderr;
if (e == NULL && (ERRLOG[0] == '\0' ||
(e = mix_openfile(ERRLOG, "a")) == NULL))
mix_status("%s", msg->data + p);
else {
buf_write(msg, e);
if (e != stderr && e != stdout) {
fclose(e);
/* duplicate the error message on screen */
mix_status("%s", msg->data + p);
}
}
buf_free(msg);
}
void parse_badchains(int badchains[MAXREM][MAXREM], char *file, char *startindicator, REMAILER *remailer, int maxrem) {
int i,j;
FILE *list;
char line[LINELEN];
if (!badchains)
return;
for (i = 0; i < maxrem; i++ )
for (j = 0; j < maxrem; j++ )
badchains[i][j] = 0;
list = mix_openfile(TYPE2REL, "r");
if (list != NULL) {
while (fgets(line, sizeof(line), list) != NULL &&
!strleft(line, startindicator)) ;
while (fgets(line, sizeof(line), list) != NULL &&
strleft(line, "(")) {
char *left, *right, *tmp;
int lefti, righti;
left = line + 1;
while (*left == ' ')
left ++;
tmp = left + 1;
while (*tmp != ' ' && *tmp != '\0' && *tmp != ')')
tmp ++;
if (*tmp == '\0' || *tmp == ')')
/* parsing this line failed */
continue;
*tmp = '\0';
right = tmp+1;
while (*right == ' ')
right ++;
tmp = right + 1;
while (*tmp != ' ' && *tmp != '\0' && *tmp != ')')
tmp ++;
if (*tmp == '\0')
/* parsing this line failed */
continue;
*tmp = '\0';
lefti = -1;
righti = -1;
for (i = 1; i < maxrem; i++) {
if (strcmp(remailer[i].name, left) == 0)
lefti = i;
if (strcmp(remailer[i].name, right) == 0)
righti = i;
}
if (strcmp(left, "*") == 0)
lefti = 0;
if (strcmp(right, "*") == 0)
righti = 0;
if (lefti == -1 || righti == -1)
/* we don't know about one or both remailers */
continue;
badchains[lefti][righti] = 1;
}
fclose(list);
/* If some broken chain includes all remailers (*) mark it broken for
* every single remailer - this simplifies handling in other places */
for (i=1; i < maxrem; i++ ) {
if (badchains[0][i])
for (j=1; j < maxrem; j++ )
badchains[j][i] = 1;
if (badchains[i][0])
for (j=1; j < maxrem; j++ )
badchains[i][j] = 1;
}
}
}
int mix_regular(int force)
{
FILE *f;
long now, tpool = 0, tpop3 = 0, tdaily = 0, tmailin = 0, tstats = 0;
int ret = 0;
mix_init(NULL);
now = time(NULL);
f = mix_openfile(REGULAR, "r+");
if (f != NULL) {
lock(f);
fscanf(f, "%ld %ld %ld %ld %ld", &tpool, &tpop3, &tdaily, &tmailin, &tstats);
if (now - tpool >= SENDPOOLTIME)
force |= FORCE_POOL | FORCE_MAILIN;
#ifdef USE_SOCK
if (now - tpop3 >= POP3TIME)
force |= FORCE_POP3 | FORCE_MAILIN;
#endif /* USE_SOCK */
if (now - tdaily >= SECONDSPERDAY)
force |= FORCE_DAILY;
if (now - tmailin >= MAILINTIME)
force |= FORCE_MAILIN;
if (now - tstats >= STATSINTERVAL)
force |= FORCE_STATS;
if (force & FORCE_POOL)
tpool = now;
if (force & FORCE_POP3)
tpop3 = now;
if (force & FORCE_DAILY)
tdaily = now;
if (force & FORCE_MAILIN)
tmailin = now;
if (force & FORCE_STATS)
tstats = now;
rewind(f);
fprintf(f, "%ld %ld %ld %ld %ld\n", tpool, tpop3, tdaily, tmailin, tstats);
unlock(f);
fclose(f);
} else {
force = FORCE_POOL | FORCE_POP3 | FORCE_DAILY | FORCE_MAILIN | FORCE_STATS;
f = mix_openfile(REGULAR, "w+");
if (f != NULL) {
lock(f);
fprintf(f, "%ld %ld %ld %ld %ld\n", now, now, now, now, now);
unlock(f);
fclose(f);
} else
errlog(ERRORMSG, "Can't create %s!\n", REGULAR);
}
if (force & FORCE_DAILY)
mix_daily(), ret = 1;
#ifdef USE_SOCK
if (force & FORCE_POP3)
pop3get();
#endif /* USE_SOCK */
if (force & FORCE_MAILIN)
ret = process_mailin();
if (force & FORCE_POOL)
ret = pool_send();
if ((force & FORCE_STATS) && (STATSAUTOUPDATE != 0))
mix_upd_stats();
return (ret);
}
int mix_config(void)
{
char *d;
FILE *f;
char line[PATHMAX];
int err = -1;
#ifdef POSIX
struct passwd *pw;
#endif /* POSIX */
struct stat buf;
#ifdef HAVE_UNAME
struct utsname uts;
#endif /* HAVE_UNAME */
#ifdef WIN32
HKEY regsw, reg, regpgp;
DWORD type, len;
int rkey = 0;
#endif /* WIN32 */
mix_setdefaults();
#ifdef POSIX
pw = getpwuid(getuid());
#endif /* POSIX */
/* find our base directory
*
* first match wins.
*
* - what the MIXPATH environment variable points to, if it is set.
* - On WIN32, HKEY_CURRENT_USER\Software\Mixmaster\MixDir, if it exists
* - whatever is compiled in with -DSPOOL
* - On Win32 %APPDATA%\Mixmaster
* - on POSIX, ~/Mix (or ~/<HOMEMIXDIR>)
* - the current working directory
*/
if (err == -1 && (d = getenv("MIXPATH")) != NULL)
err = mixdir(d, 1);
#ifdef WIN32
RegOpenKeyEx(HKEY_CURRENT_USER, "Software", 0, KEY_ALL_ACCESS, ®sw);
len=sizeof(line);
if (err == -1 &&
RegOpenKeyEx(regsw, "Mixmaster", 0, KEY_QUERY_VALUE, ®) == 0) {
if (RegQueryValueEx(reg, "MixDir", 0, &type, line, &len) == 0)
err = mixdir(line, 1);
RegCloseKey(reg);
}
#endif /* WIN32 */
#ifdef SPOOL
if (err == -1 && strlen(SPOOL) > 0)
err = mixdir(SPOOL, 0);
#endif /* SPOOL */
#ifdef WIN32
if (err == -1) {
LPMALLOC lpmalloc;
ITEMIDLIST *itemidlist;
if (SUCCEEDED(SHGetMalloc(&lpmalloc)))
{
SHGetSpecialFolderLocation(0,CSIDL_APPDATA,&itemidlist);
SHGetPathFromIDList(itemidlist,line);
lpmalloc->lpVtbl->Free(lpmalloc,&itemidlist);
lpmalloc->lpVtbl->Release(lpmalloc);
strcatn(line, "\\Mixmaster", PATHMAX);
err = mixdir(line, 1);
}
}
#endif /* WIN32 */
#ifdef POSIX
if (err == -1 && pw != NULL) {
strncpy(line, pw->pw_dir, PATHMAX);
line[PATHMAX-1] = '\0';
if (line[strlen(line) - 1] != DIRSEP)
strcatn(line, DIRSEPSTR, PATHMAX);
strcatn(line, HOMEMIXDIR, PATHMAX);
err = mixdir(line, 1);
}
#endif /* POSIX */
if (err == -1) {
getcwd(MIXDIR, PATHMAX);
mixdir(MIXDIR, 0);
}
#ifdef GLOBALMIXCONF
f = mix_openfile(GLOBALMIXCONF, "r");
if (f != NULL) {
while (fgets(line, LINELEN, f) != NULL)
if (line[0] > ' ' && line[0] != '#')
mix_configline(line);
fclose(f);
}
#endif /* GLOBALMIXCONF */
f = mix_openfile(MIXCONF, "r");
if (f != NULL) {
while (fgets(line, LINELEN, f) != NULL)
if (line[0] > ' ' && line[0] != '#')
mix_configline(line);
fclose(f);
}
mixfile(POOLDIR, POOL); /* set POOLDIR after reading POOL from cfg file */
if (POOLDIR[strlen(POOLDIR) - 1] == DIRSEP)
POOLDIR[strlen(POOLDIR) - 1] = '\0';
if (stat(POOLDIR, &buf) != 0)
if
#ifndef POSIX
(mkdir(POOLDIR) != 0)
#else /* end of not POSIX */
(mkdir(POOLDIR, S_IRWXU) == -1)
#endif /* else if POSIX */
strncpy(POOLDIR, MIXDIR, PATHMAX);
if (IDEXP > 0 && IDEXP < 5 * SECONDSPERDAY)
IDEXP = 5 * SECONDSPERDAY;
if (MAXRANDHOPS > 20)
MAXRANDHOPS = 20;
if (INDUMMYP > INDUMMYMAXP)
INDUMMYP = INDUMMYMAXP;
if (OUTDUMMYP > OUTDUMMYMAXP)
OUTDUMMYP = OUTDUMMYMAXP;
if (strchr(SHORTNAME, '.'))
*strchr(SHORTNAME, '.') = '\0';
if (strchr(SHORTNAME, ' '))
*strchr(SHORTNAME, ' ') = '\0';
#ifdef HAVE_UNAME
if (SHORTNAME[0] == '\0' && uname(&uts) != -1)
strncpy(SHORTNAME, uts.nodename, LINELEN);
#elif defined(HAVE_GETHOSTNAME) /* end of HAVE_UNAME */
if (SHORTNAME[0] == '\0')
gethostname(SHORTNAME, LINELEN);
#endif /* defined(HAVE_GETHOSTNAME) */
if (SHORTNAME[0] == '\0')
strcpy(SHORTNAME, "unknown");
if (ADDRESS[0] == '\0')
whoami(ADDRESS, "user");
#ifdef HAVE_GECOS
if (NAME[0] == '\0' && pw != NULL)
strcatn(NAME, pw->pw_gecos, sizeof(NAME));
#endif /* HAVE_GECOS */
if (REMAILERADDR[0] == '\0')
strncpy(REMAILERADDR, ADDRESS, LINELEN);
if (COMPLAINTS[0] == '\0')
strncpy(COMPLAINTS, REMAILERADDR, LINELEN);
if (strchr(REMAILERNAME, '@') == NULL) {
strcatn(REMAILERNAME, " <", LINELEN);
strcatn(REMAILERNAME, REMAILERADDR, LINELEN);
strcatn(REMAILERNAME, ">", LINELEN);
}
if (strchr(ANONNAME, '@') == NULL && ANONADDR[0] != '\0') {
strcatn(ANONNAME, " <", LINELEN);
strcatn(ANONNAME, ANONADDR, LINELEN);
strcatn(ANONNAME, ">", LINELEN);
}
if (strchr(ANONNAME, '@') == NULL) {
strcatn(ANONNAME, " <", LINELEN);
strcatn(ANONNAME, REMAILERADDR, LINELEN);
strcatn(ANONNAME, ">", LINELEN);
}
#ifndef USE_PGP
if (TYPE1[0] == '\0')
PGP = 0;
#endif /* not USE_PGP */
#ifdef WIN32
if (RegOpenKeyEx(regsw, "PGP", 0, KEY_ALL_ACCESS, ®pgp) == 0)
rkey++;
if (rkey && RegOpenKeyEx(regpgp, "PGPlib", 0, KEY_QUERY_VALUE, ®) == 0)
rkey++;
if (PGPPUBRING[0] == '\0' && rkey == 2) {
len = PATHMAX;
RegQueryValueEx(reg, "PubRing", 0, &type, PGPPUBRING, &len);
}
if (PGPSECRING[0] == '\0' && rkey == 2) {
len = PATHMAX;
RegQueryValueEx(reg, "SecRing", 0, &type, PGPSECRING, &len);
}
if (rkey == 2)
RegCloseKey(reg);
if (rkey)
RegCloseKey(regpgp);
RegCloseKey(regsw);
#endif /* WIN32 */
if (PGPPUBRING[0] == '\0') {
char *d;
if ((d = getenv("HOME")) != NULL) {
strcpy(PGPPUBRING, d);
strcatn(PGPPUBRING, "/.pgp/", PATHMAX);
}
strcatn(PGPPUBRING, "pubring.pkr", PATHMAX);
if (stat(PGPPUBRING, &buf) == -1)
strcpy(strrchr(PGPPUBRING, '.'), ".pgp");
}
if (PGPSECRING[0] == '\0') {
char *d;
if ((d = getenv("HOME")) != NULL) {
strcpy(PGPSECRING, d);
strcatn(PGPSECRING, "/.pgp/", PATHMAX);
}
strcatn(PGPSECRING, "secring.skr", PATHMAX);
if (stat(PGPSECRING, &buf) == -1)
strcpy(strrchr(PGPSECRING, '.'), ".pgp");
}
if (streq(NEWS, "mail-to-news"))
strncpy(NEWS, MAILtoNEWS, sizeof(NEWS));
if (f == NULL) {
#ifndef GLOBALMIXCONF
/* Only write the config file in non systemwide installation */
f = mix_openfile(MIXCONF, "w");
if (f == NULL)
errlog(WARNING, "Can't open %s%s!\n", MIXDIR, MIXCONF);
else {
fprintf(f, "# mix.cfg - mixmaster configuration file\n");
fprintf(f, "NAME %s\n", NAME);
fprintf(f, "ADDRESS %s\n", ADDRESS);
fprintf(f, "\n# edit to set up a remailer:\n");
fprintf(f, "REMAIL n\n");
fprintf(f, "SHORTNAME %s\n", SHORTNAME);
fprintf(f, "REMAILERADDR %s\n", REMAILERADDR);
fprintf(f, "COMPLAINTS %s\n", COMPLAINTS);
fclose(f);
}
#endif /* not GLOBALMIXCONF */
REMAIL = 0;
}
if (ENTEREDPASSPHRASE[0] != '\0') {
strncpy(PASSPHRASE, ENTEREDPASSPHRASE, LINELEN);
PASSPHRASE[LINELEN-1] = 0;
};
return (0);
}
static int isnewid(BUFFER *id, char rsa1234, long timestamp)
/* return values:
* 0: ignore message, no error
* 1: ok, process message
* -1: bad message, send reply
*/
{
FILE *f=NULL, *rf=NULL, *tf;
int ret = 1;
long now, old = 0;
int old_day, now_day, ri, rj, flag;
char queue[30][LINELEN];
struct tm *gt;
time_t od;
LOCK *i = NULL;
LOCK *j = NULL;
idlog_t idbuf;
struct {
long time;
int r[5];
} rs;
if (REMAIL == 0)
return (1); /* don't keep statistics for the client */
now = time(NULL);
if ((f = mix_openfile(IDLOG, "rb+")) != NULL) {
fread(&idbuf,1,sizeof(idlog_t),f);
old = idbuf.time;
} else {
if (IDEXP == 0) {
if (timestamp > 0 && timestamp <= now - 7 * SECONDSPERDAY) {
errlog(LOG, "Ignoring old message.\n");
return (0);
}
} else {
if ((f = mix_openfile(IDLOG, "wb")) != NULL) {
memset(idbuf.id,0,sizeof(idbuf.id));
idbuf.time = now;
fwrite(&idbuf,1,sizeof(idlog_t),f);
memcpy(idbuf.id,id->data,sizeof(idbuf.id));
idbuf.time = now;
fwrite(&idbuf,1,sizeof(idlog_t),f);
fclose(f);
f=NULL;
errlog(NOTICE, "Creating %s\n", IDLOG);
} else {
errlog(ERRORMSG, "Can't create %s\n", IDLOG);
}
return (1);
}
}
if (now - old < 5 * SECONDSPERDAY) /* never reject messages less than */
old = now - 5 * SECONDSPERDAY; /* 5 days old (== minimum IDEXP) */
if (timestamp > 0 && timestamp <= old) {
errlog(LOG, "Ignoring old message.\n");
ret = 0;
goto end;
}
i = lockfile(IDLOG);
while (fread(&idbuf, 1, sizeof(idlog_t), f) == sizeof(idlog_t)) {
if (!memcmp(idbuf.id, id->data, sizeof(idbuf.id))) {
char idstr[33];
id_encode(id->data, idstr);
errlog(LOG, "Ignoring redundant message: %s.\n", idstr);
ret = 0;
goto end;
}
}
if (timestamp > now) {
errlog(LOG, "Ignoring message with future timestamp.\n");
ret = -1;
goto end;
}
if (ftell(f)%sizeof(idlog_t)) fseek(f,0-(ftell(f)%sizeof(idlog_t)),SEEK_CUR); /* make sure that we're on sizeof(idlog_t) byte boundary */
memcpy(idbuf.id,id->data,sizeof(idbuf.id));
idbuf.time = now;
fwrite(&idbuf,1,sizeof(idlog_t),f);
/* What key lengths are being used? */
/* XXXXX TODO: The rest of this function is new code
* that uses line endings and has not been tested on Windows.
*/
if ((rf = mix_openfile(RSASTATSFILE, "rb+")) == NULL) {
/* create it */
if ((rf = mix_openfile(RSASTATSFILE, "wb+")) == NULL) {
ret=-1;
goto end;
}
memset(&rs, 0, sizeof(rs));
fwrite(&rs,1,sizeof(rs),rf);
} else {
j = lockfile(RSASTATSFILE);
fread(&rs,1,sizeof(rs),rf);
fseek(rf,0,0);
old = rs.time;
old_day = old/SECONDSPERDAY;
if (old_day<15706) old_day=15706;
now_day = now/SECONDSPERDAY;
if (old_day == now_day) {
/* add current item to stats */
rs.r[rsa1234]++;
fwrite(&rs,1,sizeof(rs),rf);
} else {
/* write text and restart the daily file */
if ((tf = mix_openfile(RSATEXTFILE, "a")) != NULL) {
od=old_day * (SECONDSPERDAY);
gt = gmtime(&od);
fprintf(tf, "%04d-%02d-%02d %6d %6d %6d %6d\n",
1900+gt->tm_year, 1+gt->tm_mon, gt->tm_mday,
rs.r[1], rs.r[2], rs.r[3], rs.r[4]);
fclose(tf);
ri=0,rj=0,flag=0;
if ((tf = mix_openfile(RSATEXTFILE, "r")) != NULL) {
while ( fgets (queue[ri], LINELEN, tf) ) {
queue[ri][LINELEN-1]='\0';
ri++; ri %= 30;
if (!ri) flag=1;
}
fclose(tf);
}
rj=ri;
if (flag) {
errlog(NOTICE, "rotating file %s from line %d\n", RSATEXTFILE, ri);
if ((tf = mix_openfile(RSATEXTFILE, "w")) != NULL) {
do {
fprintf(tf, "%s", queue[ri]);
ri++; ri %= 30;
} while (ri != rj);
fclose(tf);
}
}
}
memset(&rs, 0, sizeof(rs));
rs.time = now_day * SECONDSPERDAY;
rs.r[rsa1234]++;
fwrite(&rs,1,sizeof(rs),rf);
}
}
end:
if (i) unlockfile(i);
if (j) unlockfile(j);
if (f) fclose(f);
if (rf) fclose(rf);
return (ret);
}
int pgp_keymgt(int force)
{
FILE *f = NULL;
BUFFER *key, *keybak, *userid, *out, *outkey, *outtxt, *pass, *secout;
KEYRING *keys;
int err = 0, res, recreate_pubring = 0, dsa_ok = 0;
#ifdef USE_IDEA
int rsa_ok = 0;
#endif /* USE_IDEA */
long expires;
LOCK *seclock;
key = buf_new();
out = buf_new();
keybak = buf_new();
secout = buf_new();
userid = buf_new();
buf_sets(userid, REMAILERNAME);
pass = buf_new();
buf_sets(pass, PASSPHRASE);
outtxt = buf_new();
outkey = buf_new();
/* We only want to build RSA keys if we also can do IDEA
* This is to not lose any mail should users try our RSA key
* with IDEA.
*/
#ifdef USE_IDEA
/* FIXME: pgpdb_getky returns the expiration date from the last key in the keyring
* which probably works most of the time if the keys are in the correct order
* it doesn't return the latest expiration date (or 0) if the key in question
* is before another matching key in the keyring tho
*/
res = pgpdb_getkey(PK_DECRYPT, PGP_ES_RSA, NULL, NULL, &expires, NULL, NULL,
NULL, NULL, NULL, pass);
if (force == 2 || res < 0 || (expires > 0 && expires - KEYOVERLAPPERIOD < time(NULL))) {
rsa_ok = -1;
pgp_keygen(PGP_ES_RSA, 0, userid, pass, PGPKEY, PGPREMSECRING, 0);
};
if (force == 0 && (pgpdb_getkey(PK_ENCRYPT, PGP_ES_RSA, NULL, NULL, NULL, NULL, NULL,
NULL, NULL, PGPKEY, NULL) < 0) && rsa_ok == 0)
rsa_ok = 1;
#endif /* USE_IDEA */
/* FIXME: pgpdb_getky returns the expiration date from the last key in the keyring
* which probably works most of the time if the keys are in the correct order
* it doesn't return the latest expiration date (or 0) if the key in question
* is before another matching key in the keyring tho
*/
res = pgpdb_getkey(PK_DECRYPT, PGP_E_ELG, NULL, NULL, &expires, NULL, NULL,
NULL, NULL, NULL, pass);
if (force == 2 || res < 0 || (expires > 0 && expires - KEYOVERLAPPERIOD < time(NULL))) {
dsa_ok = -1;
pgp_keygen(PGP_E_ELG, 0, userid, pass, PGPKEY, PGPREMSECRING, 0);
}
if (force == 0 && (pgpdb_getkey(PK_ENCRYPT, PGP_E_ELG, NULL, NULL, NULL, NULL, NULL,
NULL, NULL, PGPKEY, NULL) > 0) && dsa_ok == 0)
dsa_ok = 1;
/* No need to rewrite the files - we didn't change a thing */
if (
#ifdef USE_IDEA
rsa_ok == 1 &&
#endif /* USE_IDEA */
dsa_ok == 1)
goto end;
/* write keys one key per armor to make hand editing easy and old PGP
* versions happy */
err = -1;
keys = pgpdb_open(PGPKEY, NULL, 0, PGP_TYPE_PUBLIC);
if (keys == NULL)
recreate_pubring = 1;
else {
while (pgpdb_getnext(keys, key, NULL, userid) != -1) {
buf_clear(outtxt);
if (pgp_makekeyheader(PGP_PUBKEY, key, outtxt, NULL, PGP_ANY) == 0) {
err = 0;
buf_appends(out, "Type Bits/KeyID Date User ID\n");
buf_cat(out, outtxt);
buf_nl(out);
pgp_armor(key, PGP_ARMOR_KEY);
buf_cat(out, key);
buf_nl(out);
}
}
pgpdb_close(keys);
}
if (err != 0)
recreate_pubring = 1;
err = -1;
keys = pgpdb_open(PGPREMSECRING, NULL, 0, PGP_TYPE_PRIVATE);
if (keys == NULL)
goto end;
while (pgpdb_getnext(keys, key, NULL, userid) != -1) {
buf_clear(outtxt);
buf_clear(outkey);
buf_clear(keybak);
buf_cat(keybak, key);
if (pgp_makekeyheader(PGP_SECKEY, key, outtxt, pass, PGP_ANY) == 0) {
err = 0;
buf_appends(secout, "Type Bits/KeyID Date User ID\n");
buf_cat(secout, outtxt);
buf_nl(secout);
pgp_armor(key, PGP_ARMOR_SECKEY);
buf_cat(secout, key);
buf_nl(secout);
}
buf_clear(outtxt);
if (recreate_pubring &&
pgp_makepubkey(keybak, outtxt, outkey, pass, PGP_ANY) == 0) {
buf_appends(out, "Type Bits/KeyID Date User ID\n");
buf_cat(out, outtxt);
buf_nl(out);
pgp_armor(outkey, PGP_ARMOR_KEY);
buf_cat(out, outkey);
buf_nl(out);
}
}
pgpdb_close(keys);
seclock = lockfile(PGPREMSECRING);
if (err == 0 && (f = mix_openfile(PGPREMSECRING, "w")) != NULL) {
buf_write(secout, f);
fclose(f);
} else
err = -1;
unlockfile(seclock);
if (err == 0 && (f = mix_openfile(PGPKEY, "w")) != NULL) {
buf_write(out, f);
fclose(f);
} else
err = -1;
end:
buf_free(key);
buf_free(keybak);
buf_free(out);
buf_free(userid);
buf_free(pass);
buf_free(outtxt);
buf_free(outkey);
buf_free(secout);
return (err);
}
int t1_rlist(REMAILER remailer[], int badchains[MAXREM][MAXREM])
{
FILE *list, *excl;
int i, listed = 0;
int n = 0;
char line[2 * LINELEN], l2[LINELEN], name[LINELEN], *flags;
BUFFER *starex;
starex = buf_new();
excl = mix_openfile(STAREX, "r");
if (excl != NULL) {
buf_read(starex, excl);
fclose(excl);
}
list = mix_openfile(TYPE1LIST, "r");
if (list == NULL) {
buf_free(starex);
return (-1);
}
while (fgets(line, sizeof(line), list) != NULL && n < MAXREM) {
if (strleft(line, "$remailer") &&
strchr(line, '<') && strchr(line, '>') &&
strchr(line, '{') && strchr(line, '{') + 4 < strchr(line, '}')) {
if (line[strlen(line) - 1] == '\n')
line[strlen(line) - 1] = '\0';
if (line[strlen(line) - 1] == '\r')
line[strlen(line) - 1] = '\0';
while (line[strlen(line) - 1] == ' ')
line[strlen(line) - 1] = '\0';
if (line[strlen(line) - 1] != ';'
&& fgets(l2, sizeof(l2), list) != NULL)
strcatn(line, l2, LINELEN);
flags = strchr(line, '>');
strncpy(name, strchr(line, '{') + 2,
strchr(line, '}') - strchr(line, '{') - 3);
name[strchr(line, '}') - strchr(line, '{') - 3] = '\0';
name[20] = '\0';
for (i = 1; i <= n; i++)
if (streq(name, remailer[i].name))
break;
if (i > n) {
/* not in mix list */
n++;
strcpy(remailer[i].name, name);
strncpy(remailer[i].addr, strchr(line, '<') + 1,
strchr(line, '>') - strchr(line, '<'));
remailer[i].addr[strchr(line, '>') - strchr(line, '<') - 1]
= '\0';
remailer[i].flags.mix = 0;
remailer[i].flags.post = strifind(flags, " post");
}
remailer[i].flags.cpunk = strfind(flags, " cpunk");
remailer[i].flags.pgp = strfind(flags, " pgp");
remailer[i].flags.pgponly = strfind(flags, " pgponly");
remailer[i].flags.latent = strfind(flags, " latent");
remailer[i].flags.middle = strfind(flags, " middle");
remailer[i].flags.ek = strfind(flags, " ek");
remailer[i].flags.esub = strfind(flags, " esub");
remailer[i].flags.hsub = strfind(flags, " hsub");
remailer[i].flags.newnym = strfind(flags, " newnym");
remailer[i].flags.nym = strfind(flags, " nym");
remailer[i].info[1].reliability = 0;
remailer[i].info[1].latency = 0;
remailer[i].info[1].history[0] = '\0';
remailer[i].flags.star_ex = bufifind(starex, name);
}
if (strleft(line,
"-----------------------------------------------------------------------"))
break;
}
n++; /* ?? */
while (fgets(line, sizeof(line), list) != NULL) {
if (strlen(line) >= 72 && strlen(line) <= 73)
for (i = 1; i < n; i++)
if (strleft(line, remailer[i].name) &&
line[strlen(remailer[i].name)] == ' ') {
strncpy(remailer[i].info[1].history, line + 42, 12);
remailer[i].info[1].history[12] = '\0';
remailer[i].info[1].reliability = 10000 * N(line[64])
+ 1000 * N(line[65]) + 100 * N(line[66])
+ 10 * N(line[68]) + N(line[69]);
remailer[i].info[1].latency = 36000 * N(line[55])
+ 3600 * N(line[56]) + 600 * N(line[58])
+ 60 * N(line[59]) + 10 * N(line[61])
+ N(line[62]);
listed++;
}
}
fclose(list);
parse_badchains(badchains, TYPE1LIST, "Broken type-I remailer chains", remailer, n);
if (listed < 4) /* we have no valid reliability info */
for (i = 1; i < n; i++)
remailer[i].info[1].reliability = 10000;
#ifdef USE_PGP
pgp_rlist(remailer, n);
#endif /* USE_PGP */
buf_free(starex);
return (n);
}