e语言 PHP哈希函数易语言源码

PHP哈希函数易语言源码.版本 2 .子程序 HashPJW, 长整数型, 公开, 由帝皇法老翻译。 .参数 Key, 字节集 .局部变量 X, 整数型 .局部变量 Len, 整数型 .局部变量 Hash, 整数型 .局部变量 G, 整数型 Len ＝ 取字节集长度 (Key) .计次循环首 (Len, X)     Hash ＝ 左移 (Hash, 4) ＋ Key [X]     G ＝ 位与 (Hash, -268435456)     .如果真 (G ≠ 0)         Hash ＝ 位异或 (Hash, 右移 (G, 24), G)     .