diff options
| author | forsyth <forsyth@vitanuova.com> | 2012-10-14 09:55:59 +0100 |
|---|---|---|
| committer | forsyth <forsyth@vitanuova.com> | 2012-10-14 09:55:59 +0100 |
| commit | 1c7490b243a975be5eb65a45f402cc7f93e6a28d (patch) | |
| tree | 7c2893556fdebd7ce1430f2330e61437f81c2662 /appl/lib/auth9.b | |
| parent | ec1969577fc04566d68ec6257fd3451f84c4de2f (diff) | |
20121014-0955
Diffstat (limited to 'appl/lib/auth9.b')
| -rw-r--r-- | appl/lib/auth9.b | 27 |
1 files changed, 11 insertions, 16 deletions
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); } } |