CREATE OR REPLACE FUNCTION Murmurhash3(input_data VARCHAR2, seed NUMBER) RETURN NUMBER IS h NUMBER := seed; c1 NUMBER := 3458204593; -- 0xcc9e2d51 c2 NUMBER := 1735298763; -- 0x1b873593 r1 NUMBER := 15; r2 NUMBER := 13; m NUMBER := 5; n NUMBER := 364292196; -- 0xe6546b64 blkNums NUMBER := LENGTH(input_data) / 4; remaining_bytes VARCHAR2(4); k NUMBER := 0; res NUMBER := 0; BEGIN FOR i IN 0..blkNums-1 LOOP res := 0; FOR j IN 0..3 LOOP res := res + ASCII(SUBSTR(input_data, i*4+j+1, 1)) * POWER(2, (3-j)*8); END LOOP; res := res * c1; res := MOD(res, POWER(2, 32)); res := BITAND(res, POWER(2, 32)-1); res := res || 0; res := BITAND(res, POWER(2, 32)-1); res := BITAND(res * POWER(2, r1), POWER(2, 32)-1); res := res || 0; res := BITAND(res, POWER(2, 32)-1); res := BITAND(res * c2, POWER(2, 32)-1); res := res || 0; res := BITAND(res, POWER(2, 32)-1); h := BITAND(h*m + n, POWER(2, 32)-1); h := BITAND(h+res, POWER(2, 32)-1); END LOOP; remaining_bytes := SUBSTR(input_data, blkNums*4+1); FOR i IN 1..LENGTH(remaining_bytes) LOOP k := k + ASCII(SUBSTR(remaining_bytes, i, 1)) * POWER(2, (4-i)*8); END LOOP; k := k * c1; k := MOD(k, POWER(2, 32)); k := BITAND(k, POWER(2, 32)-1); k := BITAND(k * POWER(2, r1), POWER(2, 32)-1); k := BITAND(k * c2, POWER(2, 32)-1); k := BITAND(k || 0, POWER(2, 32)-1); h := BITXOR(h, k); h := BITXOR(h, LENGTH(input_data)); h := BITAND(h, POWER(2, 32)-1); h := BITAND(h XOR (h SHR 16), POWER(2, 32)-1); h := BITAND(h * 2246822507, POWER(2, 32)-1); h := BITAND(h XOR (h SHR 13), POWER(2, 32)-1); h := BITAND(h * 3226489909, POWER(2, 32)-1); h := BITAND(h XOR (h SHR 16), POWER(2, 32)-1); RETURN h; END; /
最新发布
2万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
