Delphi：两个高效的哈希函数

最新推荐文章于 2025-09-13 15:11:26 发布

原创最新推荐文章于 2025-09-13 15:11:26 发布 · 3.8k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #pascal #integer #function #算法

Delphi 专栏收录该内容

39 篇文章

订阅专栏

本文介绍并提供了两种哈希函数的汇编语言实现：BKDRHash与DJBHash。BKDRHash通过循环将缓冲区中的每个字节与当前哈希值相乘再相加来计算哈希值；而DJBHash则使用了一种不同的计算方法，它通过左移和加法操作更新哈希值。这些函数常用于快速查找和数据完整性验证。

function BKDRHash(buf: Pointer; count: Integer) : Cardinal; assembler; asm PUSH EBX; XOR EBX, EBX MOV ECX, EAX XOR EAX, EAX @LOOP: TEST EDX, EDX JZ @EXIT MOV BL, [ECX] IMUL EAX, 131 ADD EAX, EBX INC ECX DEC EDX JMP @LOOP @EXIT: POP EBX //---------------------------- // Pascal: // // Result := 0; // while count > 0 do // begin // Result := (Result * 131) + PByte(buf)^; // Inc(PByte(buf)); // Dec(count); // end; end; function DJBHash(buf: Pointer; count: Integer) : Cardinal; assembler; asm PUSH EDI PUSH EBX XOR EBX, EBX MOV ECX, EAX MOV EAX, 5381 @LOOP: TEST EDX, EDX JZ @EXIT MOV EDI, EAX SHL EDI, 5 ADD EAX, EDI MOV BL, [ECX] ADD EAX, EBX INC ECX DEC EDX JMP @LOOP @EXIT: POP EBX POP EDI //---------------------------- // Pascal: // // Result := 5381; // while count > 0 do // begin // Result := ((Result shl 5) + Result) + PByte(buf)^; // Inc(PByte(buf)); // Dec(count); // end; end;

各种哈希函数算法请参考：

http://www.partow.net/programming/hashfunctions/