From 9e85ae9b75acdbe245243784d8d5b1b4de1b24f9 Mon Sep 17 00:00:00 2001
From: "Charles.Forsyth" <devnull@localhost>
Date: Mon, 30 Mar 2009 08:58:09 +0000
Subject: x20090330-0957

---
 appl/cmd/ssh/cipherdes.b | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 appl/cmd/ssh/cipherdes.b

(limited to 'appl/cmd/ssh/cipherdes.b')

diff --git a/appl/cmd/ssh/cipherdes.b b/appl/cmd/ssh/cipherdes.b
new file mode 100644
index 00000000..17456848
--- /dev/null
+++ b/appl/cmd/ssh/cipherdes.b
@@ -0,0 +1,38 @@
+implement Cipher;
+
+include "sys.m";
+
+include "keyring.m";
+	kr: Keyring;
+	DESstate: import kr;
+
+include "sshio.m";
+
+Cipherstate: adt
+{
+	enc: ref DESstate;
+	dec: ref DESstate;
+};
+
+cs: ref Cipherstate;
+
+id(): int
+{
+	return SSH_CIPHER_DES;
+}
+
+init(key: array of byte, nil: int)
+{
+	kr = load Keyring Keyring->PATH;
+	cs = ref Cipherstate(kr->dessetup(key, nil), kr->dessetup(key, nil));
+}
+
+encrypt(buf: array of byte, nbuf: int)
+{
+	kr->descbc(cs.enc, buf, nbuf, Keyring->Encrypt);
+}
+
+decrypt(buf: array of byte, nbuf: int)
+{
+	kr->descbc(cs.dec, buf, nbuf, Keyring->Decrypt);
+}
-- 
cgit v1.2.3