delphi помогите понять что написано

[nulledddor]

привет
пишу немного на VB NET
надо перетащить кусок кода с дельфи на VB NET
никак не вкурю что там написано

for i:=1 to urllen
do
begin
key:= key xor (Ord(seed[i mod seedlen]) xor Ord(url));
key:= key shr 23 or key shl 9;
end;
помогите партировать код на VB NET или C#

 

[jik]

Для просмотра скрытого содержимого вы должны войти или зарегистрироваться.

 

[nulledddor]

каков порядок выполнения вот этой операции
key:= key shr 23 or key shl 9;
как ее разить на элементарные функции построчно
просто не знаю какой приоритет у этих операций

 

[jik]

приоритет такой:

key:= (key shr 23) or (key shl 9);

на C это выглядит так:

int key;
int c1, c2;

c1 = (key >> 23) & 0x1FF;
c2 = (key << 9) & 0xFFFFFE00;
key = c1 | c2;

 

[ArtemRu]

а зачем так много лишних переменных? а не проще сразу записать:

key=(key>>23)|(key<<9);

все известные мне компиляторы, пустые разряды заполняют 0.