From 9e6910dc0c747c8f30b87f6482f4eadb48ad6654 Mon Sep 17 00:00:00 2001 From: forsyth Date: Mon, 17 Jan 2011 10:45:22 +0000 Subject: emu/Nt/ipif.c --- appl/cmd/auth/dsagen.b | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) (limited to 'appl/cmd/auth/dsagen.b') diff --git a/appl/cmd/auth/dsagen.b b/appl/cmd/auth/dsagen.b index 3e24df2f..51b50a12 100644 --- a/appl/cmd/auth/dsagen.b +++ b/appl/cmd/auth/dsagen.b @@ -5,9 +5,12 @@ include "sys.m"; include "draw.m"; -include "keyring.m"; - kr: Keyring; - IPint, DSAsk, DSApk, DSAsig: import kr; +include "ipints.m"; + ipints: IPints; + IPint: import ipints; + +include "crypt.m"; + crypt: Crypt; include "arg.m"; @@ -19,7 +22,8 @@ Dsagen: module init(nil: ref Draw->Context, args: list of string) { sys = load Sys Sys->PATH; - kr = load Keyring Keyring->PATH; + ipints = load IPints IPints->PATH; + crypt = load Crypt Crypt->PATH; arg := load Arg Arg->PATH; arg->init(args); @@ -37,7 +41,7 @@ init(nil: ref Draw->Context, args: list of string) arg->usage(); arg = nil; - sk := DSAsk.gen(nil); + sk := crypt->dsagen(nil); if(tag != nil) tag = " "+tag; s := add("p", sk.pk.p); -- cgit v1.2.3