OFF: Операция циклического сдвига в делфи #276179

Нужно зашифровать строку по алгоритму RC5. Эта строка разбивается на слова и делается вот так: A = ((A (+) B) <<< B) + K2*r mod 2w, B = ((A (+) B) <<< A) + K2*r+1 mod 2w, где r - номер текущего раунда, начиная с 1; Kn - фрагмент расширенного ключа; <<< n - операция циклического сдвига на x бит влево, где x - значение младших log2 w бит n. А и В - это два слова. Как к ним применить операцию <<<??? их в числа чтоли нужно перевести или как?

ау

function RolX(I, C : DWord) : DWord; register; asm  mov  ecx, edx         {get count to cl}  rol  eax, cl          {rotate eax by cl} end; Если я правильно понял проблему.

что такое I и C

желательно бы перевести в массив байтов, если А, В - это Стринг.

A,B - это стринг

и как перевести в массив байтов?

чего эта функция делает-то?

дай бог памяти...

спрочи у

Это что сдвигать и насколько сдвигать. А и В - "слова", но на самом деле строка разбивается на не на филологические слова а на машинные слова - 8, 16, 32...-битные наборы - точное число бит указано в описании алгоритма шифровки.

2 Сдвигает. Там же есть комментарии.

читай встроенную справку. Поиск <<

a - string a[i] - char byte(a[i]) - byte

и как строку разбить на машинные слова, например, 16 битные? как они вообще выглядят эти маш-ын слова набор битов чтоли?

0011010101001101 - это 16битное слово?

для RC6:

+16 lgw       = 5; function ROL(a, s: LongWord): LongWord; asm  mov    ecx, s  rol    eax, cl end;

плагиат! см

да, то же, просто без этого непонятен код выше

там есть стандартный битовый сдвиг, но я забыл. Може ф-ия, може оператор.ю...

в С++ есть кусок справки ОбъектПаскаль SHL    Logical shift left. Both expressions must be absolute immediate values, and the result is an absolute immediate value. SHR    Logical shift right. Both expressions must be absolute immediate values, and the result is an absolute immediate value.

почему lgw = 5?

EncipherBlock(var Block)  Block это что такое

давай вышлю весь pas, чтоб сюда не постить, поразбираешься