Delphi 计算字符串Hash值

  • 函数类型: 自定义函数

  • 函数说明:

计算字符串Hash值


  • 代码如下:



 
function GetCrc32(s: string; Seed: LongInt): Integer;
var
  Count: Integer;
  CrcVal: longword;
begin
  CrcVal := Seed;
  for Count := 1 to Length(s) do
    CrcVal := Table[Byte(CrcVal xor longword(Ord(s[Count])))
      ] xor ((CrcVal shr 8) and $00FFFFFF);
  Result := not CrcVal;
end;



  • 用法示例:

无 



《学习大师原创文档,请勿转载,侵权必究》





联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678