{ **** 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));
Опубликовал Kest
November 29 2008 07:04:30 ·
0 Комментариев ·
7606 Прочтений ·
• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •
Комментарии
Нет комментариев.
Добавить комментарий
Рейтинги
Рейтинг доступен только для пользователей.
Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.
Нет данных для оценки.
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.
Главная
Каталог файлов
