Операция циклического сдвига

[Ghost of Night]

Здравствуйте. в описании алгоритма шифрования Camellia, есть функция типа:

var
 R,L: LongWord;
begin
 R := R xor ((L and key)<<< 1)

<<< - операция циклического сдвига влево.

Как выполнить эту операцию? Когда стоит << то выполняется shl. А здесь как я понимаю нужно циклически выполнить shl?

[Stilet]

Не знаю есть ли в ЯВУ такая фича, потому я бы под асм переписал:

__asm{
 mov eax,[l]
 and eax,[key]
 rol eax,1
 xor eax,[r]
 mov [r],eax
}

[Serge_Bliznykov]

ну, либо воспользоваться ASM вставкой,
либо банально в выражении сделать логическое ИЛИ в выталкиваемым старшим разрядом.
это можно записать так:
циклический двоичный сдвиг переменной P:

 P := (P shl 1 ) or (P shr (sizeof(P)*8-1));

для вашего примера я бы записал так:

.....
var TempL : LongWord;
begin
  TempL := (L and key);
  R := R xor ( (TempL shl 1) or (TempL shr (sizeof(TempL)*8-1)));

p.s. разумеется, можно обойтись и без введения дополнительной переменной - просто так выражение наглядней...
ну и, конечно, для LongWord вместо TempL shr (sizeof(TempL)*8-1) можно написать сразу TempL shr 31


ДОБАВЛЕНО

АААА! Stilet меня опередил!
согласен. на ассемблере это выглядит красиво и наверняка будет эффективно!

только в Delphi обрамление чуток другое:

asm
 mov eax,[l]
 and eax,[key]
 rol eax,1
 xor eax,[r]
 mov [r],eax
end;

[Stilet]

Вупс... Это не си?
Мне простительно, я с будуна

[Serge_Bliznykov]

Вупс... Это не си?

не-а!
Но, тем не менее, Ваш код в Delphi работает отлично!


[OFFTOP]

Мне простительно, я с будуна

сочувствую... лечитесь и выздоравливайте!

[Ghost of Night]

Serge_Bliznykov Спасибо за ответ, меня ещё интересует вот, что. Тот код который на делфи и тот который на асме, выдают разныё результат при одинаковых условиях.

var
TempL,R,L,Key : LongWord;
begin
 Key := 34567893;
 L := 23465648;
 TempL := (L and key);
 R := R xor ( (TempL shl 1) or (TempL shr (sizeof(TempL)*8-1)));
//R = 10031888
...
var
TempL,R,L,Key : LongWord;
begin
 Key := 34567893;
 L := 23465648;
 asm
  mov eax,[l]
  and eax,[key]
  rol eax,1
  xor eax,[r]
  mov [r],eax
 end;
//R = 5037388

[Serge_Bliznykov]

Ghost of Night, шутить изволите?!

R := R xor ( (TempL shl 1) or (TempL shr (sizeof(TempL)*8-1)));

а кто значение переменной R будет задавать?!!


при R:=0;
получаем 789792
и в первом и во втором случае...

[Ghost of Night]

Искренне извиняюсь, не обратил внимание. Спасибо.