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/ssh/cipherblowfish.b | 43 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 43 insertions(+) create mode 100644 appl/cmd/ssh/cipherblowfish.b (limited to 'appl/cmd/ssh/cipherblowfish.b') diff --git a/appl/cmd/ssh/cipherblowfish.b b/appl/cmd/ssh/cipherblowfish.b new file mode 100644 index 00000000..8d3b0c31 --- /dev/null +++ b/appl/cmd/ssh/cipherblowfish.b @@ -0,0 +1,43 @@ +implement Cipher; + +include "sys.m"; + +include "ipints.m"; + ipints: IPints; + IPint: import ipints; + +include "crypt.m"; + crypt: Crypt; + BFstate: import crypt; + +include "sshio.m"; + +Cipherstate: adt +{ + enc: ref BFstate; + dec: ref BFstate; +}; + +cs: ref Cipherstate; + +id(): int +{ + return SSH_CIPHER_BLOWFISH; +} + +init(key: array of byte, nil: int) +{ + ipints = load IPints IPints->PATH; + crypt = load Crypt Crypt->PATH; + cs = ref Cipherstate(crypt->blowfishsetup(key, nil), crypt->blowfishsetup(key, nil)); +} + +encrypt(buf: array of byte, nbuf: int) +{ + crypt->blowfishcbc(cs.enc, buf, nbuf, Crypt->Encrypt); +} + +decrypt(buf: array of byte, nbuf: int) +{ + crypt->blowfishcbc(cs.dec, buf, nbuf, Crypt->Decrypt); +} -- cgit v1.2.3