Вычисление простого хеш-кода для блока данных

Материал из DRKB



{ **** UBPFD *********** by kladovka.net.ru ****
>> Вычисление простого хеш-кода для блока данных

Вычисляет значение простой хеш-функции (xor + циклический сдвиг) для блока
данных.

Описание параметров:
Data - указатель на блок данных

DataSize - размер блока

Возвращаемое значение - значение хеш-функции

Зависимости: нет
Автор:       vuk, vuk@fcenter.ru
Copyright:   Алексей Вуколов
Дата:        18 апреля 2002 г.
********************************************** }

function CalcHash(Data: Pointer; DataSize: Integer): Integer; register;
asm
  push ebx
  push esi
  push edi
  mov esi, Data
  xor ebx, ebx
  or esi, esi
  jz @@Exit
  mov edx, DataSize
  or edx,edx
  jz @@Exit
  xor ecx,ecx

@@Cycle:
  xor eax,eax
  mov al,[esi]
  inc esi
  rol eax,cl
  xor ebx,eax
  inc ecx
  dec edx
  jnz @@Cycle

@@Exit:
  mov eax,ebx
  pop edi
  pop esi
  pop ebx
end;


Пример использования:

// вычисление хеш-кода для строки

var
  i: Integer;
  s: string;
begin
  s := 'test';
  i := CalcHash(PChar(S), Length(S));
end;


Author: vuk
ID: 04020