Head

GCC Code Coverage Report

Directory:	./		Exec	Total	Coverage
File:	usr.bin/x99token/x99token.c	Lines:	0	100	0.0 %
Date:	2017-11-07	Branches:	0	81	0.0 %


/*	$OpenBSD: x99token.c,v 1.13 2017/05/03 09:51:39 mestre Exp $	*/

/*
 * X9.9 calculator
 * This software is provided AS IS with no express or implied warranty
 * October 1995, Paul Borman <prb@krystal.com>
 *
 * Donated to the Public Domain by Paul Borman
 */

#include <sys/stat.h>

#include <ctype.h>
#include <err.h>
#include <pwd.h>
#include <readpassphrase.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <limits.h>
#include <openssl/des.h>

#define	KEYFILE		".keyfile.des"
#define	HEXDIGITS	"0123456789abcdef"
#define	DECDIGITS	"0123456789012345"

void predict(DES_key_schedule, const char *, int);

char *digits = HEXDIGITS;
extern char *__progname;

int
main(int argc, char **argv)
{
	int i;
	char buf[256];
	DES_key_schedule ks;
	DES_cblock key;
	char _keyfile[PATH_MAX];
	char *keyfile = 0;
	FILE *fp;
	int init = 0;
	int hex = 1;
	int cnt = 1;
	unsigned int pin;
	struct passwd *pwd;

	if (pledge("stdio rpath wpath cpath getpw tty flock", NULL) == -1)
		err(1, "pledge");

	while ((i = getopt(argc, argv, "dk:in:")) != -1) {
		switch (i) {
		case 'k':
			keyfile = optarg;
			break;
		case 'i':
			init = 1;
			break;
		case 'd':
			hex = 0;
			break;
		case 'n':
			cnt = atoi(optarg);
			if (cnt <= 0)
				err(1, "invalid count: %s", optarg);
			break;
		default:
			fprintf(stderr,
			    "usage: %s [-d] [-k keyfile] [-n count]\n"
			    "       %s -i [-k keyfile]\n",
			    __progname, __progname);
			exit(1);
		}
	}

	if (!keyfile) {
		if ((pwd = getpwuid(getuid())) == NULL) {
			fprintf(stderr, "Say, just who are you, anyhow?\n");
			exit(1);
		}
		snprintf(_keyfile, sizeof(_keyfile), "%s/%s", pwd->pw_dir,
		    KEYFILE);
		keyfile = _keyfile;
	}

	if (init)
		readpassphrase("Enter Key: ", buf, sizeof(buf), 0);
	else if ((fp = fopen(keyfile, "r")) == NULL)
		err(1, "unable to open %s", keyfile);
	else {
		if (fgets(buf, sizeof(buf), fp) == NULL) {
			fprintf(stderr, "No key in %s\n", keyfile);
			exit(1);
		}
		fclose(fp);
	}

	memset(key, 0, sizeof(key));
	if (init && buf[3] == ' ') {
		char *b = buf;
		/* Assume octal input */
		for (i = 0; i < 8; ++i) {
			if (!*b)
				fprintf(stderr, "%s: invalid key\n", buf);
			while (isdigit((unsigned char)*b))
				key[i] = key[i] << 3 | (*b++ - '0');
			while (*b && !isdigit((unsigned char)*b))
				++b;
		}
	} else {
		for (i = 0; i < 16; ++i) {
			int d;

			if (islower((unsigned char)buf[i]))
				buf[i] = toupper((unsigned char)buf[i]);
			if (buf[i] >= '0' && buf[i] <= '9')
				d = buf[i] - '0';
			else if (buf[i] >= 'A' && buf[i] <= 'F')
				d = buf[i] - 'A' + 10;
			else {
				fprintf(stderr, "invalid key: %s\n", buf);
				exit(1);
			}
			key[i>>1] |= d << ((i & 1) ? 0 : 4);
		}
	}

	/* XXX - should warn on non-space or non-digit */
	readpassphrase("Enter Pin: ", buf, sizeof(buf), 0);
	for (i = 0, pin = 0; buf[i] && buf[i] != '\n'; ++i)
		if (isdigit((unsigned char)buf[i]))
			pin = pin * 16 + buf[i] - '0' + 1;

	if ((pin & 0xffff0000) == 0)
		pin |= pin << 16;

	for (i = 0; i < 8; ++i)
		key[0] ^= (pin >> ((i * 7) % 26)) & 0x7f;

	if (init) {
		umask(S_IRWXG | S_IRWXO);
		unlink(keyfile);
		if ((fp = fopen(keyfile, "w")) == NULL)
			err(1, "could not open %s for writing", keyfile);
		for (i = 0; i < 8; ++i) {
			fprintf(fp, "%c", digits[(key[i]>>4)&0xf]);
			fprintf(fp, "%c", digits[(key[i]>>0)&0xf]);
		}
		fputc('\n', fp);
		fclose(fp);
		exit(0);
	}

	DES_fixup_key_parity(&key);
	DES_key_sched(&key, &ks);

	buf[0] = '\0';
	readpassphrase("Enter challenge: ", buf, sizeof(buf), RPP_ECHO_ON);
	if (buf[0] == '\0')
		exit(0);

	for (i = 0; i < 8; ++i)
		if (buf[i] == '\n')
			buf[i] = '\0';

	if (!hex)
		digits = DECDIGITS;

	predict(ks, buf, cnt);

	explicit_bzero(&ks, sizeof(ks));
	explicit_bzero(buf, sizeof(buf));

	exit(0);
}

void
predict(DES_key_schedule ks, const char *chal, int cnt)
{
	int i;
	DES_cblock cb;

	memcpy(&cb, chal, sizeof(cb));
	while (cnt-- > 0) {
		printf("%.8s: ", (char *)cb);
		DES_ecb_encrypt(&cb, &cb, &ks, DES_ENCRYPT);
		for (i = 0; i < 4; ++i) {
			printf("%c", digits[(cb[i]>>4) & 0xf]);
			printf("%c", digits[(cb[i]>>0) & 0xf]);
		}
		putchar('\n');
		for (i = 0; i < 8; ++i) {
			if ((cb[i] &= 0xf) > 9)
				cb[i] -= 10;
			cb[i] |= 0x30;
		}
	}
	memset(&cb, 0, sizeof(cb));
}


Generated by: GCOVR (Version 3.3)

Line	Branch	Exec	Source
1			/* $OpenBSD: x99token.c,v 1.13 2017/05/03 09:51:39 mestre Exp $ */
2
3			/*
4			* X9.9 calculator
5			* This software is provided AS IS with no express or implied warranty
6			* October 1995, Paul Borman <prb@krystal.com>
7			*
8			* Donated to the Public Domain by Paul Borman
9			*/
10
11			#include <sys/stat.h>
12
13			#include <ctype.h>
14			#include <err.h>
15			#include <pwd.h>
16			#include <readpassphrase.h>
17			#include <stdio.h>
18			#include <stdlib.h>
19			#include <string.h>
20			#include <unistd.h>
21			#include <limits.h>
22			#include <openssl/des.h>
23
24			#define KEYFILE ".keyfile.des"
25			#define HEXDIGITS "0123456789abcdef"
26			#define DECDIGITS "0123456789012345"
27
28			void predict(DES_key_schedule, const char *, int);
29
30			char *digits = HEXDIGITS;
31			extern char *__progname;
32
33			int
34			main(int argc, char **argv)
35			{
36			int i;
37			char buf[256];
38			DES_key_schedule ks;
39			DES_cblock key;
40			char _keyfile[PATH_MAX];
41			char *keyfile = 0;
42			FILE *fp;
43			int init = 0;
44			int hex = 1;
45			int cnt = 1;
46			unsigned int pin;
47			struct passwd *pwd;
48
49			if (pledge("stdio rpath wpath cpath getpw tty flock", NULL) == -1)
50			err(1, "pledge");
51
52			while ((i = getopt(argc, argv, "dk:in:")) != -1) {
53			switch (i) {
54			case 'k':
55			keyfile = optarg;
56			break;
57			case 'i':
58			init = 1;
59			break;
60			case 'd':
61			hex = 0;
62			break;
63			case 'n':
64			cnt = atoi(optarg);
65			if (cnt <= 0)
66			err(1, "invalid count: %s", optarg);
67			break;
68			default:
69			fprintf(stderr,
70			"usage: %s [-d] [-k keyfile] [-n count]\n"
71			" %s -i [-k keyfile]\n",
72			__progname, __progname);
73			exit(1);
74			}
75			}
76
77			if (!keyfile) {
78			if ((pwd = getpwuid(getuid())) == NULL) {
79			fprintf(stderr, "Say, just who are you, anyhow?\n");
80			exit(1);
81			}
82			snprintf(_keyfile, sizeof(_keyfile), "%s/%s", pwd->pw_dir,
83			KEYFILE);
84			keyfile = _keyfile;
85			}
86
87			if (init)
88			readpassphrase("Enter Key: ", buf, sizeof(buf), 0);
89			else if ((fp = fopen(keyfile, "r")) == NULL)
90			err(1, "unable to open %s", keyfile);
91			else {
92			if (fgets(buf, sizeof(buf), fp) == NULL) {
93			fprintf(stderr, "No key in %s\n", keyfile);
94			exit(1);
95			}
96			fclose(fp);
97			}
98
99			memset(key, 0, sizeof(key));
100			if (init && buf[3] == ' ') {
101			char *b = buf;
102			/* Assume octal input */
103			for (i = 0; i < 8; ++i) {
104			if (!*b)
105			fprintf(stderr, "%s: invalid key\n", buf);
106			while (isdigit((unsigned char)*b))
107			key[i] = key[i] << 3 \| (*b++ - '0');
108			while (b && !isdigit((unsigned char)b))
109			++b;
110			}
111			} else {
112			for (i = 0; i < 16; ++i) {
113			int d;
114
115			if (islower((unsigned char)buf[i]))
116			buf[i] = toupper((unsigned char)buf[i]);
117			if (buf[i] >= '0' && buf[i] <= '9')
118			d = buf[i] - '0';
119			else if (buf[i] >= 'A' && buf[i] <= 'F')
120			d = buf[i] - 'A' + 10;
121			else {
122			fprintf(stderr, "invalid key: %s\n", buf);
123			exit(1);
124			}
125			key[i>>1] \|= d << ((i & 1) ? 0 : 4);
126			}
127			}
128
129			/* XXX - should warn on non-space or non-digit */
130			readpassphrase("Enter Pin: ", buf, sizeof(buf), 0);
131			for (i = 0, pin = 0; buf[i] && buf[i] != '\n'; ++i)
132			if (isdigit((unsigned char)buf[i]))
133			pin = pin * 16 + buf[i] - '0' + 1;
134
135			if ((pin & 0xffff0000) == 0)
136			pin \|= pin << 16;
137
138			for (i = 0; i < 8; ++i)
139			key[0] ^= (pin >> ((i * 7) % 26)) & 0x7f;
140
141			if (init) {
142			umask(S_IRWXG \| S_IRWXO);
143			unlink(keyfile);
144			if ((fp = fopen(keyfile, "w")) == NULL)
145			err(1, "could not open %s for writing", keyfile);
146			for (i = 0; i < 8; ++i) {
147			fprintf(fp, "%c", digits[(key[i]>>4)&0xf]);
148			fprintf(fp, "%c", digits[(key[i]>>0)&0xf]);
149			}
150			fputc('\n', fp);
151			fclose(fp);
152			exit(0);
153			}
154
155			DES_fixup_key_parity(&key);
156			DES_key_sched(&key, &ks);
157
158			buf[0] = '\0';
159			readpassphrase("Enter challenge: ", buf, sizeof(buf), RPP_ECHO_ON);
160			if (buf[0] == '\0')
161			exit(0);
162
163			for (i = 0; i < 8; ++i)
164			if (buf[i] == '\n')
165			buf[i] = '\0';
166
167			if (!hex)
168			digits = DECDIGITS;
169
170			predict(ks, buf, cnt);
171
172			explicit_bzero(&ks, sizeof(ks));
173			explicit_bzero(buf, sizeof(buf));
174
175			exit(0);
176			}
177
178			void
179			predict(DES_key_schedule ks, const char *chal, int cnt)
180			{
181			int i;
182			DES_cblock cb;
183
184			memcpy(&cb, chal, sizeof(cb));
185			while (cnt-- > 0) {
186			printf("%.8s: ", (char *)cb);
187			DES_ecb_encrypt(&cb, &cb, &ks, DES_ENCRYPT);
188			for (i = 0; i < 4; ++i) {
189			printf("%c", digits[(cb[i]>>4) & 0xf]);
190			printf("%c", digits[(cb[i]>>0) & 0xf]);
191			}
192			putchar('\n');
193			for (i = 0; i < 8; ++i) {
194			if ((cb[i] &= 0xf) > 9)
195			cb[i] -= 10;
196			cb[i] \|= 0x30;
197			}
198			}
199			memset(&cb, 0, sizeof(cb));
200			}