diff options
Diffstat (limited to 'appl')
| -rw-r--r-- | appl/cmd/mk/mksubdirs | 4 | ||||
| -rw-r--r-- | appl/lib/auth9.b | 27 |
2 files changed, 13 insertions, 18 deletions
diff --git a/appl/cmd/mk/mksubdirs b/appl/cmd/mk/mksubdirs index 3fe01c81..57e8ac4f 100644 --- a/appl/cmd/mk/mksubdirs +++ b/appl/cmd/mk/mksubdirs @@ -10,7 +10,7 @@ clean:V: clean-$SHELLTYPE if { ftest -d $j } { echo 'cd' $j '; mk' $MKFLAGS $stem cd $j; mk $MKFLAGS $stem; cd .. - } else { - ! { ftest -e $j } + } { + ! ftest -e $j || raise $j^' not a directory' } } diff --git a/appl/lib/auth9.b b/appl/lib/auth9.b index d9f38c71..15fc5a19 100644 --- a/appl/lib/auth9.b +++ b/appl/lib/auth9.b @@ -9,22 +9,17 @@ implement Auth9; include "sys.m"; sys: Sys; -include "keyring.m"; +include "ipints.m"; -include "auth9.m"; +include "crypt.m"; -debug := 0; +include "auth9.m"; init() { sys = load Sys Sys->PATH; } -setdebug(i: int) -{ - debug = i; -} - put2(a: array of byte, v: int) { a[0] = byte v; @@ -253,35 +248,35 @@ encrypt(key: array of byte, data: array of byte, n: int) { if(n < 8) return; - kr := load Keyring Keyring->PATH; - ds := kr->dessetup(des56to64(key), nil); + crypt := load Crypt Crypt->PATH; + ds := crypt->dessetup(des56to64(key), nil); n--; r := n % 7; n /= 7; j := 0; for(i := 0; i < n; i++){ - kr->desecb(ds, data[j:], 8, Keyring->Encrypt); + crypt->desecb(ds, data[j:], 8, Crypt->Encrypt); j += 7; } if(r) - kr->desecb(ds, data[j-7+r:], 8, Keyring->Encrypt); + crypt->desecb(ds, data[j-7+r:], 8, Crypt->Encrypt); } decrypt(key: array of byte, data: array of byte, n: int) { if(n < 8) return; - kr := load Keyring Keyring->PATH; - ds := kr->dessetup(des56to64(key), nil); + crypt := load Crypt Crypt->PATH; + ds := crypt->dessetup(des56to64(key), nil); n--; r := n % 7; n /= 7; j := n*7; if(r) - kr->desecb(ds, data[j-7+r:], 8, Keyring->Decrypt); + crypt->desecb(ds, data[j-7+r:], 8, Crypt->Decrypt); for(i := 0; i < n; i++){ j -= 7; - kr->desecb(ds, data[j:], 8, Keyring->Decrypt); + crypt->desecb(ds, data[j:], 8, Crypt->Decrypt); } } |