2 /***************************************************************************
3 * Copyright (C) 2003-2009 Polytechnique.org *
4 * http://opensource.polytechnique.org/ *
6 * This program is free software; you can redistribute it and/or modify *
7 * it under the terms of the GNU General Public License as published by *
8 * the Free Software Foundation; either version 2 of the License, or *
9 * (at your option) any later version. *
11 * This program is distributed in the hope that it will be useful, *
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
14 * GNU General Public License for more details. *
16 * You should have received a copy of the GNU General Public License *
17 * along with this program; if not, write to the Free Software *
19 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
20 ***************************************************************************/
22 function hash_encrypt($s) {
26 function hash_xor($a, $b) {
31 $d = $a; $a = $b; $b = $d;
32 $k = $i; $i = $j; $j = $k;
34 for ($k = 0; $k < $j; $k++
)
35 $c .= dechex(hexdec($a{$k}) ^
hexdec($b{$k}));
40 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: