ref: 248c637d25154f762a7d675662c405a169594ca0
dir: /module/security.m/
#
# security routines implemented in limbo
#
Virgil: module
{
PATH: con "/dis/lib/virgil.dis";
virgil: fn(args: list of string): string;
};
Random: module
{
PATH: con "/dis/lib/random.dis";
ReallyRandom: con 0;
NotQuiteRandom: con 1;
randomint: fn(which: int): int;
randombuf: fn(which, n: int): array of byte;
};
#
# secure socket layer emulator
#
SSL: module
{
PATH: con "/dis/lib/ssl.dis";
connect: fn(fd: ref Sys->FD): (string, ref Sys->Connection);
secret: fn(c: ref Sys->Connection, secretin, secretout: array of byte): string;
};
#
# Encrypted Key Exchange protocol
#
Login: module
{
PATH: con "/dis/lib/login.dis";
login: fn(id, password, dest: string): (string, ref Keyring->Authinfo);
};
#
# Station To Station protocol
#
Auth: module
{
PATH: con "/dis/lib/auth.dis";
init: fn(): string;
server: fn(algs: list of string, ai: ref Keyring->Authinfo, fd: ref Sys->FD, setid: int): (ref Sys->FD, string);
client: fn(alg: string, ai: ref Keyring->Authinfo, fd: ref Sys->FD): (ref Sys->FD, string);
auth: fn(ai: ref Keyring->Authinfo, keyspec: string, alg: string, dfd: ref Sys->FD): (ref Sys->FD, ref Keyring->Authinfo, string);
keyfile: fn(keyspec: string): string;
key: fn(keyspec: string): ref Keyring->Authinfo;
};