summaryrefslogtreecommitdiff
path: root/appl/cmd/ssh/cipherrc4.b
diff options
context:
space:
mode:
Diffstat (limited to 'appl/cmd/ssh/cipherrc4.b')
-rw-r--r--appl/cmd/ssh/cipherrc4.b46
1 files changed, 0 insertions, 46 deletions
diff --git a/appl/cmd/ssh/cipherrc4.b b/appl/cmd/ssh/cipherrc4.b
deleted file mode 100644
index f43f9c8d..00000000
--- a/appl/cmd/ssh/cipherrc4.b
+++ /dev/null
@@ -1,46 +0,0 @@
-implement Cipher;
-
-include "sys.m";
-
-include "ipints.m";
- ipints: IPints;
- IPint: import ipints;
-
-include "crypt.m";
- crypt: Crypt;
- RC4state: import crypt;
-
-include "sshio.m";
-
-Cipherstate: adt
-{
- enc: ref RC4state;
- dec: ref RC4state;
-};
-
-cs: ref Cipherstate;
-
-id(): int
-{
- return SSH_CIPHER_RC4;
-}
-
-init(key: array of byte, isserver: int)
-{
- ipints = load IPints IPints->PATH;
- crypt = load Crypt Crypt->PATH;
- if(isserver)
- cs = ref Cipherstate(crypt->rc4setup(key[0:16]), crypt->rc4setup(key[16:32]));
- else
- cs = ref Cipherstate(crypt->rc4setup(key[16:32]), crypt->rc4setup(key[0:16]));
-}
-
-encrypt(buf: array of byte, nbuf: int)
-{
- crypt->rc4(cs.enc, buf, nbuf);
-}
-
-decrypt(buf: array of byte, nbuf: int)
-{
- crypt->rc4(cs.dec, buf, nbuf);
-}