Помоги разобрать кусочек кода ASM

[Teomir]

Всем привет.

Я новичек, изучаю asm, на этапе чайника.

Немного запутался, помогите разобрать кусочек кода, а точнее что он выполняет, хочу повторить этот же код на Delphi.

Это листинг из дизасемблера:

004E0827 pusha
004E0829 pushf
004E082B xor eax,eax
004E082D xor edx,edx
004E082F xor ecx,ecx
004E0831 mov cl,4
004E0833 mov eax,dword ptr [ebp-4]
004E0836 rol edx,8
004E0839 rol eax,8
004E083C mov dl,al
004E083E push ecx
004E083F mov cl,byte ptr [ebp-5]; <-- Здесь всегда 1
004E0842 rol dl,1
004E0844 loop 004E0842
004E0846 pop ecx
004E0847 loop 004E0836
004E0849 mov eax,edx
004E084B mov dword ptr [ebp-4],eax
004E084E popf
004E0850 popa

----------------------------------------------------
Я думаю так, но что то не так)))

{ А тут не пойму что к чему}

var
dwValue: DWORD;
begin
for i:=0 to 3 do
begin
dwValue:=dwValue shl i or 1+i; { А тут не пойму что к чему}
end;
end;

Заранее огромное спасибо!

[zvygin1964]

Вижу знакомые операторы: "push , xor , mov , loop".

[AbakBarama]

В 4-хбайтовом числе каждый байт вращается независимо от остальных.

[Teomir]

Сообщение от AbakBarama

В 4-хбайтовом числе каждый байт вращается независимо от остальных.

Вы хотите сказать так?

var
dwValue: DWORD;
begin
for i:=0 to 3 do
begin
dwValue:=dwValue shl i or dwValue shr -i;
end;
end;

Но как быть с байтом который [ebp-5] не пойму я какую он играет роль

[AbakBarama]

Я не пишу на паскале. Алгоритм на словах: каждый из четырёх байтов вращается влево на [ebp-5] битов. Понятно, что разумные пределы [ebp-5] от 1 до 7.