ref: c11957a7915d355d80ff7e6a21721ba05441ca29
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; };