code: purgatorio

ref: a920c765f2b4130590fb5971a50690b21664957a
dir: /module/auth9.m/

Auth9: module
{
	PATH:	con "/dis/lib/auth9.dis";

	#
	# plan 9 authentication
	#

	ANAMELEN: con 	28; # maximum size of name in previous proto
	AERRLEN: con 	64; # maximum size of errstr in previous proto
	DOMLEN: con 		48; # length of an authentication domain name
	DESKEYLEN: con 	7; # length of a des key for encrypt/decrypt
	CHALLEN: con 	8; # length of a plan9 sk1 challenge
	NETCHLEN: con 	16; # max network challenge length (used in AS protocol)
	SECRETLEN: con 	32; # max length of a secret

	# encryption numberings (anti-replay)
	AuthTreq: con 1; 	# ticket request
	AuthChal: con 2; 	# challenge box request
	AuthPass: con 3; 	# change password
	AuthOK: con 4; 	# fixed length reply follows
	AuthErr: con 5; 	# error follows
	AuthMod: con 6; 	# modify user
	AuthApop: con 7; 	# apop authentication for pop3
	AuthOKvar: con 9; 	# variable length reply follows
	AuthChap: con 10; 	# chap authentication for ppp
	AuthMSchap: con 11; 	# MS chap authentication for ppp
	AuthCram: con 12; 	# CRAM verification for IMAP (RFC2195 & rfc2104)
	AuthHttp: con 13; 	# http domain login
	AuthVNC: con 14; 	# VNC server login (deprecated)


	AuthTs: con 64;	# ticket encrypted with server's key
	AuthTc: con 65;	# ticket encrypted with client's key
	AuthAs: con 66;	# server generated authenticator
	AuthAc: con 67;	# client generated authenticator
	AuthTp: con 68;	# ticket encrypted with client's key for password change
	AuthHr: con 69;	# http reply

	Ticketreq: adt {
		rtype: int;
		authid: string;	# [ANAMELEN]	server's encryption id
		authdom: string;	# [DOMLEN]	server's authentication domain
		chal:	array of byte; # [CHALLEN]	challenge from server
		hostid: string;	# [ANAMELEN]		host's encryption id
		uid: string;	# [ANAMELEN]	uid of requesting user on host

		pack:	fn(t: self ref Ticketreq): array of byte;
		unpack:	fn(a: array of byte): (int, ref Ticketreq);
	};
		TICKREQLEN: con	3*ANAMELEN+CHALLEN+DOMLEN+1;

	Ticket: adt {
		num: int;	# replay protection
		chal:	array of byte;	# [CHALLEN]	server challenge
		cuid: string;	# [ANAMELEN]	uid on client
		suid: string;	# [ANAMELEN]	uid on server
		key:	array of byte;	# [DESKEYLEN]	nonce DES key

		pack:	fn(t: self ref Ticket, key: array of byte): array of byte;
		unpack:	fn(a: array of byte, key: array of byte): (int, ref Ticket);
	};
		TICKETLEN: con CHALLEN+2*ANAMELEN+DESKEYLEN+1;

	Authenticator: adt {
		num: int;			# replay protection
		chal: array of byte;	# [CHALLEN]
		id:	int;			# authenticator id, ++'d with each auth

		pack:	fn(f: self ref Authenticator, key: array of byte): array of byte;
		unpack:	fn(a: array of byte, key: array of byte): (int, ref Authenticator);
	};
		AUTHENTLEN: con CHALLEN+4+1;

	Passwordreq: adt {
		num: int;
		old:	array of byte;	# [ANAMELEN]
		new:	array of byte;	# [ANAMELEN]
		changesecret:	int;
		secret:	array of byte; # [SECRETLEN]	new secret

		pack:	fn(f: self ref Passwordreq, key: array of byte): array of byte;
		unpack:	fn(a: array of byte, key: array of byte): (int, ref Passwordreq);
	};
	PASSREQLEN: con	2*ANAMELEN+1+1+SECRETLEN;

	# secure ID and Plan 9 auth key/request/reply encryption
	netcrypt:	fn(key: array of byte, chal: string): string;
	passtokey:	fn(pw: string): array of byte;
	des56to64:	fn(a: array of byte): array of byte;
	encrypt:	fn(key: array of byte, data: array of byte, n: int);
	decrypt:	fn(key: array of byte, data: array of byte, n: int);

	# dial auth server
#	authdial(netroot: string, authdom: string): ref Sys->FD;

	# exchange messages with auth server
	_asgetticket:	fn(fd: ref Sys->FD, tr: ref Ticketreq, key: array of byte): (ref Ticket, array of byte);
	_asrdresp:	fn(fd: ref Sys->FD, n: int): array of byte;

	init:	fn();
};