Вычисление простого хеш-кода для блока данных
Материал из 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