anchor.diff:    LBlock := FBuffer.GetBytesZeroPadded();
   
     LBlock[LBufferPosition] := Int32(FHashMode);
  -  LBlock[FBlockSize - 1] := LBlock[FBlockSize - 1] xor $80;
  +  LBlock[BlockSize - 1] := LBlock[BlockSize - 1] xor $80;
   
     TransformBlock(PByte(LBlock), System.Length(LBlock), 0);
   end;
  
positive.code: 
    if FInitBlock <> Nil then
    begin
      TransformBytes(BytePad(FInitBlock, FBlockSize));
    end;
  end;
  
  
negative.code: constructor TSHA3.Create(AHashSize: THashSize);
  begin
    Inherited Create(Int32(AHashSize), 200 - (Int32(AHashSize) * 2));
    System.SetLength(FState, 25);
  end;
  
  