1 files changed, 68 insertions, 0 deletions
diff --git a/kerberosIV/des/pcbc_enc.c b/kerberosIV/des/pcbc_enc.c
new file mode 100644
index 00000000000..0000fc0c305
--- /dev/null
+++ b/kerberosIV/des/pcbc_enc.c
@@ -0,0 +1,68 @@
+/*	$Id: pcbc_enc.c,v 1.1 1995/12/14 06:52:44 tholo Exp $	*/
+
+/* Copyright (C) 1993 Eric Young - see README for more details */
+#include "des_locl.h"
+
+int des_pcbc_encrypt(des_cblock (*input), des_cblock (*output), long int length, struct des_ks_struct *schedule, des_cblock (*ivec), int encrypt)
+{
+  register u_int32_t sin0,sin1,xor0,xor1,tout0,tout1;
+  u_int32_t tin[2],tout[2];
+  unsigned char *in,*out,*iv;
+
+  in=(unsigned char *)input;
+  out=(unsigned char *)output;
+  iv=(unsigned char *)ivec;
+
+  if (encrypt)
+    {
+      c2l(iv,xor0);
+      c2l(iv,xor1);
+      for (; length>0; length-=8)
+	{
+	  if (length >= 8)
+	    {
+	      c2l(in,sin0);
+	      c2l(in,sin1);
+	    }
+	  else
+	    c2ln(in,sin0,sin1,length);
+	  tin[0]=sin0^xor0;
+	  tin[1]=sin1^xor1;
+	  des_encrypt(tin,tout,
+		      schedule,encrypt);
+	  tout0=tout[0];
+	  tout1=tout[1];
+	  xor0=sin0^tout[0];
+	  xor1=sin1^tout[1];
+	  l2c(tout0,out);
+	  l2c(tout1,out);
+	}
+    }
+  else
+    {
+      c2l(iv,xor0); c2l(iv,xor1);
+      for (; length>0; length-=8)
+	{
+	  c2l(in,sin0);
+	  c2l(in,sin1);
+	  tin[0]=sin0;
+	  tin[1]=sin1;
+	  des_encrypt(tin,tout,
+		      schedule,encrypt);
+	  tout0=tout[0]^xor0;
+	  tout1=tout[1]^xor1;
+	  if (length >= 8)
+	    {
+	      l2c(tout0,out);
+	      l2c(tout1,out);
+	    }
+	  else
+	    l2cn(tout0,tout1,out,length);
+	  xor0=tout0^sin0;
+	  xor1=tout1^sin1;
+	}
+    }
+  tin[0]=tin[1]=tout[0]=tout[1]=0;
+  sin0=sin1=xor0=xor1=tout0=tout1=0;
+  return(0);
+}