chiark / gitweb /
1866a6578504be8232074ecdd19d6f47322b6953
[chiark-tcl.git] / crypto / crypto.c
1 /*
2  */
3
4 #include <endian.h>
5
6 #include "hbytes.h"
7 #include "tables.h"
8 #include "serpent.h"
9
10 void memxor(Byte *dest, const Byte *src, int l) {
11   while (l--) *dest++ ^= *src++;
12 }
13
14 int do_hbytes_pkcs5(ClientData cd, Tcl_Interp *ip,
15                     const PadMethod *meth, int objc, Tcl_Obj *const *objv) {
16   return meth->func((void*)meth, ip, objc, objv);
17 }