Compiles but does not link. Before undo silly pad indirection.

[chiark-tcl.git] / crypto / crypto.c

diff --git a/crypto/crypto.c b/crypto/crypto.c
new file mode 100644 (file)
index 0000000..1866a65
--- /dev/null
+++ b/crypto/crypto.c
@@ -0,0 +1,17 @@
+/*
+ */
+
+#include <endian.h>
+
+#include "hbytes.h"
+#include "tables.h"
+#include "serpent.h"
+
+void memxor(Byte *dest, const Byte *src, int l) {
+  while (l--) *dest++ ^= *src++;
+}
+
+int do_hbytes_pkcs5(ClientData cd, Tcl_Interp *ip,
+                   const PadMethod *meth, int objc, Tcl_Obj *const *objv) {
+  return meth->func((void*)meth, ip, objc, objv);
+}