emu/Nt/ipif.c

1 files changed, 49 insertions, 34 deletions

diff --git a/appl/cmd/auth/signer.b b/appl/cmd/auth/signer.b
index b3f4669d..b27a719c 100644
--- a/appl/cmd/auth/signer.b
+++ b/appl/cmd/auth/signer.b
@@ -5,10 +5,20 @@ include "sys.m";
 
 include "draw.m";
 
-include "keyring.m";
-	kr: Keyring;
-	IPint: import kr;
+include "ipints.m";
+	ipints: IPints;
+	IPint: import ipints;
+
+include "crypt.m";
+	crypt: Crypt;
+
+include "oldauth.m";
+	oldauth: Oldauth;
 
+include "msgio.m";
+	msgio: Msgio;
+
+include "keyring.m";
 include "security.m";
 	random: Random;
 
@@ -29,7 +39,12 @@ init(nil: ref Draw->Context, nil: list of string)
 {
 	sys = load Sys Sys->PATH;
 	random = load Random Random->PATH;
-	kr = load Keyring Keyring->PATH;
+	ipints = load IPints IPints->PATH;
+	crypt = load Crypt Crypt->PATH;
+	oldauth = load Oldauth Oldauth->PATH;
+	oldauth->init();
+	msgio = load Msgio Msgio->PATH;
+	msgio->init();
 
 	stdin = sys->fildes(0);
 	stdout = sys->fildes(1);
@@ -55,75 +70,75 @@ sign(): string
 		return "can't read key";
 
 	# send public part to client
-	mypkbuf := array of byte kr->pktostr(kr->sktopk(info.mysk));
-	kr->sendmsg(stdout, mypkbuf, len mypkbuf);
+	mypkbuf := array of byte oldauth->pktostr(crypt->sktopk(info.mysk), info.owner);
+	msgio->sendmsg(stdout, mypkbuf, len mypkbuf);
 	alphabuf := array of byte info.alpha.iptob64();
-	kr->sendmsg(stdout, alphabuf, len alphabuf);
+	msgio->sendmsg(stdout, alphabuf, len alphabuf);
 	pbuf := array of byte info.p.iptob64();
-	kr->sendmsg(stdout, pbuf, len pbuf);
+	msgio->sendmsg(stdout, pbuf, len pbuf);
 
 	# get client's public key
-	hisPKbuf := kr->getmsg(stdin);
+	hisPKbuf := msgio->getmsg(stdin);
 	if(hisPKbuf == nil)
 		return "caller hung up";
-	hisPK := kr->strtopk(string hisPKbuf);
+	(hisPK, hisname) := oldauth->strtopk(string hisPKbuf);
 	if(hisPK == nil)
 		return "illegal caller PK";
 
 	# hash, sign, and blind
-	state := kr->sha1(hisPKbuf, len hisPKbuf, nil, nil);
-	cert := kr->sign(info.mysk, 0, state, "sha1");
+	state := crypt->sha1(hisPKbuf, len hisPKbuf, nil, nil);
+	cert := oldauth->sign(info.mysk, info.owner, 0, state, "sha1");
 
 	# sanity clause
-	state = kr->sha1(hisPKbuf, len hisPKbuf, nil, nil);
-	if(kr->verify(info.mypk, cert, state) == 0)
+	state = crypt->sha1(hisPKbuf, len hisPKbuf, nil, nil);
+	if(oldauth->verify(info.mypk, cert, state) == 0)
 		return "bad signer certificate";
 
-	certbuf := array of byte kr->certtostr(cert);
+	certbuf := array of byte oldauth->certtostr(cert);
 	blind := random->randombuf(random->ReallyRandom, len certbuf);
 	for(i := 0; i < len blind; i++)
 		certbuf[i] = certbuf[i] ^ blind[i];
 
 	# sum PKs and blinded certificate
-	state = kr->md5(mypkbuf, len mypkbuf, nil, nil);
-	kr->md5(hisPKbuf, len hisPKbuf, nil, state);
+	state = crypt->md5(mypkbuf, len mypkbuf, nil, nil);
+	crypt->md5(hisPKbuf, len hisPKbuf, nil, state);
 	digest := array[Keyring->MD5dlen] of byte;
-	kr->md5(certbuf, len certbuf, digest, state);
+	crypt->md5(certbuf, len certbuf, digest, state);
 
 	# save sum and blinded cert in a file
-	file := "signed/"+hisPK.owner;
+	file := "signed/"+hisname;
 	fd := sys->create(file, Sys->OWRITE, 8r600);
 	if(fd == nil)
 		return "can't create "+file+sys->sprint(": %r");
-	if(kr->sendmsg(fd, blind, len blind) < 0 ||
-	   kr->sendmsg(fd, digest, len digest) < 0){
+	if(msgio->sendmsg(fd, blind, len blind) < 0 ||
+	   msgio->sendmsg(fd, digest, len digest) < 0){
 		sys->remove(file);
 		return "can't write "+file+sys->sprint(": %r");
 	}
 
 	# send blinded cert to client
-	kr->sendmsg(stdout, certbuf, len certbuf);
+	msgio->sendmsg(stdout, certbuf, len certbuf);
 
 	return nil;
 }
 
-signerkey(filename: string): ref Keyring->Authinfo
+signerkey(filename: string): ref Oldauth->Authinfo
 {
-	info := kr->readauthinfo(filename);
+	info := oldauth->readauthinfo(filename);
 	if(info != nil)
 		return info;
 
 	# generate a local key
-	info = ref Keyring->Authinfo;
-	info.mysk = kr->genSK("elgamal", "*", PKmodlen);
-	info.mypk = kr->sktopk(info.mysk);
-	info.spk = kr->sktopk(info.mysk);
-	myPKbuf := array of byte kr->pktostr(info.mypk);
-	state := kr->sha1(myPKbuf, len myPKbuf, nil, nil);
-	info.cert = kr->sign(info.mysk, 0, state, "sha1");
-	(info.alpha, info.p) = kr->dhparams(DHmodlen);
-
-	if(kr->writeauthinfo(filename, info) < 0){
+	info = ref Oldauth->Authinfo;
+	info.mysk = crypt->genSK("elgamal", PKmodlen);
+	info.mypk = crypt->sktopk(info.mysk);
+	info.spk = crypt->sktopk(info.mysk);
+	myPKbuf := array of byte oldauth->pktostr(info.mypk, "*");
+	state := crypt->sha1(myPKbuf, len myPKbuf, nil, nil);
+	info.cert = oldauth->sign(info.mysk, "*", 0, state, "sha1");
+	(info.alpha, info.p) = crypt->dhparams(DHmodlen);
+
+	if(oldauth->writeauthinfo(filename, info) < 0){
 		sys->fprint(stderr, "can't write signerkey file: %r\n");
 		return nil;
 	}