.版本 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) .如果真结束 .计次循环尾 () 返回 (Hash)