Delphi World - Вычисление простого хеш-кода для блока данных
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Вычисление простого хеш-кода для блока данных

Автор: Алексей Вуколов
WEB-сайт: http://delphibase.endimus.com

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

Вычисляет значение простой хеш-функции (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(pointer(S), length(S));
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования