diff --git a/src/modules/_Crypto/lib/desdata.pike b/src/modules/_Crypto/lib/desdata.pike index 621c33010009ffb555d05bce296dd45acc4fd7ca..df1f863ac657262fb2b1ee9dd5622873758e4ba1 100755 --- a/src/modules/_Crypto/lib/desdata.pike +++ b/src/modules/_Crypto/lib/desdata.pike @@ -13,7 +13,7 @@ * desinfo.h,v 1.3 1997/04/18 20:09:24 nisse * desCode.h,v 1.2 1997/03/15 04:51:31 nisse * - * $Id: desdata.pike,v 1.2 2002/04/30 21:30:57 mast Exp $ + * $Id: desdata.pike,v 1.3 2002/05/01 01:15:05 nilsson Exp $ */ /* @@ -152,6 +152,12 @@ array(int) sorder = ({ 7, 5, 3, 1, 6, 4, 2, 0, }); +#if !constant(has_suffix) +int has_suffix(string a, string b) { + return a[sizeof(a)-sizeof(b)..]==b; +} +#endif + int main(int argc, array(string) argv) { int d, i, j, k, l, m, n, s;