FNV1A_56.pas

unit FNV1A_56;
//FNV1A_56
//Author: domasz
//Last Update: 2022-11-20
//Licence: MIT

interface

uses SysUtils, HasherBase;

type THasherFNV1A_56 = class(THasherbase)
  private
    FHash: QWord;
  public
    constructor Create; override;
    procedure Update(Msg: PByte; Length: Integer); override;
    function Final: String; override;
end;

implementation

constructor THasherFNV1A_56.Create;
begin
  inherited Create;
  Check := 'D5573923C6CDFA';
  FHash := $CBF29CE484222325;
end;

procedure THasherFNV1A_56.Update(Msg: PByte; Length: Integer);
var i: Integer;
begin
  for i:=0 to Length-1 do begin
	FHash := FHash xor Msg^;
	FHash := FHash * $0100000001B3;

    Inc(Msg);
  end;   
end;

function THasherFNV1A_56.Final: String;
begin
  FHash := (FHash shr 56) xor (FHash and $ffffffffffffff);
  Result := IntToHex(FHash, 14);
end;

initialization
  HasherList.RegisterHasher('FNV1a-56', THasherFNV1A_56);

end.