Delphi：两个高效的哈希函数

iteye_15968

于 2010-11-30 21:33:00 发布

阅读量138

点赞数

文章标签： Delphi Pascal 算法 .net

本文提供了BKDRHash和DJBHash两种哈希函数的汇编语言实现，并附带了对应的Pascal语言版本代码。BKDRHash通过循环累加字符值并乘以131来计算哈希值；而DJBHash则采用位移和加法操作逐步更新哈希值。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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/