Форум по программированию Delphi Sources

 



Вернуться   Форум по программированию Delphi Sources > Разное > Исходники и статьи
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 13.10.2008, 11:21
darksoftware darksoftware вне форума
Прохожий
 
Регистрация: 03.09.2008
Сообщения: 20
Репутация: 10
Лампочка Ror / Rol в Delphi

Видел где-то код функций lrotr и lrotl, но тот код был довольно нестабилен, что я заметил, использовав его при портировании EnRUPT и написании VigerePlus 3.1.

Вот их простая замена. Для rol просто меняем инструкцию ror -> rol


function ROR_u32 (X: LongWord; N: byte): LongWord;
asm
MOV EAX, X
MOV CL, N
ROR EAX, CL
end;

function ROR_u8 (X, N: byte): byte;
asm
MOV AL, X
MOV CL, N
ROR AL, CL
end;

function lrotr8 (X: LongWord): LongWord;
asm
MOV EAX, X
ROR EAX, 8
end;

Последний раз редактировалось darksoftware, 13.10.2008 в 11:25.
Ответить с цитированием
 



Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 01:00.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources", 2004-2019

ВКонтакте   Facebook   Twitter