Особенности Hash() / Firebird, InterBase

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Firebird, InterBase [игнор отключен] [закрыт для гостей] / Особенности Hash()

4 сообщений из 4, страница 1 из 1

Особенности Hash()

#39885106

SHS_SHS

Гость

Доброго времени суток.
Понадобилось повторить на Delphi функцию hash() из FB. Поиск по форуму выдал это 14398246 . В интернете нашел такую реализацию для HashELF64:

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.

function HashELF64(const aBuf; aBufSize: Integer): Int64;
type
  TByteArray = array[0..MaxInt - 1] of Byte;
var
  i: Integer;
  x: Int64;
begin
  Result := 0;
  for i := 0 to aBufSize - 1 do
  begin
    Result := (Result shl 4) + TByteArray(aBuf)[i];
    x := Result and $F000000000000000;
    if (x <> 0) then
      Result := Result xor (x shr 56);
    Result := Result and (not x);
  end;
end;

если строка на входе до 20 символов, то все нормально, но после 20 результат hash() FB3.0 и Delphi отличаются.
Так например hash строки "12345678901234567890":

Код: pascal

1.
2.

8526506766684599104 - FB
 696865270170176576 - Delphi

Если изменить код так:

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.

function HashELF64(const aBuf; aBufSize: Integer): Int64;
type
  TByteArray = array[0..MaxInt - 1] of Byte;
var
  i: Integer;
  x: Int64;
begin
  Result := 0;
  for i := 0 to aBufSize - 1 do
  begin
    Result := (Result shl 4) + TByteArray(aBuf)[i];
    if Result < 0 then // <========================= дописать это
    begin
      Result := Abs(Result);
      Continue;
    end;
    x := Result and $F000000000000000;
    if (x <> 0) then
      Result := Result xor (x shr 56);
    Result := Result and (not x);
  end;
end;

то для строки "12345678901234567890" hash становится одинаковым. Но это не решает проблему. Для более длинных строк hash разный. Я понимаю, что дело в переполнении Int64, но как подправить не догоняю.

...

Рейтинг:

0 / 0

05.11.2019, 00:06

| Ответить | Цитировать | Написать

Особенности Hash()

#39885118

Dimitry Sibiryakov

Участник

Сообщения: 54 521

Рейтинг: 0 / 0

SHS_SHSЯ понимаю, что дело в переполнении Int64

Нет, дело в том, что в Дельфи shr это логический сдвиг, а не арифметический. Знак не
расширяется в отличии от Си. А арифметического у неё нет. Используй деление.
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

05.11.2019, 01:30

| Ответить | Цитировать | Написать

Особенности Hash()

#39885153

SHS_SHS

Гость

Спасибо. Сейчас работает.
Может кому пригодится:

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.

function HashELF64(const aBuf; aBufSize: Integer): Int64;
type
  TByteArray = array[0..MaxInt - 1] of Byte;
var
  i: Integer;
  x: Int64;
begin
  Result := 0;
  for i := 0 to aBufSize - 1 do
  begin
    Result := (Result shl 4) + TByteArray(aBuf)[i];
    x := Result and $F000000000000000;
    if (x <> 0) then
      Result := Result xor (x div $100000000000000); // Result := Result xor (x shr 56);
    Result := Result and (not x);
  end;
end;

...

Рейтинг:

0 / 0

05.11.2019, 09:31

| Ответить | Цитировать | Написать

Особенности Hash()

#39968011

sysdba22

Гость

Кому надо, функция на TypeScript для Node или браузера:

Код: javascript

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

const hashELF64 = (s: string) => {
  let res = 0n;
  for (const c of [...s]) {
    res = (res << 4n) + BigInt(c.charCodeAt(0));
    const x = res & 0xF000000000000000n;
    if (x !== 0n) {
      res = res ^ (x >> 56n);
    }
    res = res & (~x);
  }
  return res;
};

Работает только с первыми 128 символами ASCII и та же проблема с переполнением, которую на не смог победить. Но, так как у меня строки до 14 символов, от которых вычисляется, то меня устраивает.

...

Рейтинг:

0 / 0

10.06.2020, 18:56

| Ответить | Цитировать | Написать

4 сообщений из 4, страница 1 из 1

Форумы / Firebird, InterBase [игнор отключен] [закрыт для гостей] / Особенности Hash()

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=40&fpage=14&tid=1560332]:	0ms
get settings:	9ms
get forum list:	16ms
check forum access:	4ms
check topic access:	4ms
track hit:	68ms
get topic data:	12ms
get forum data:	2ms
get page messages:	45ms
get tp. blocked users:	2ms
others:	252ms

total:	414ms