Помогите переписать функцию с ASM на Pascal или C

← →
CRLF (2011-11-08 17:05) [3]

procedure GOST_EncryptBlock(var GBlock: TGOSTBlock);
var
i, J: LongInt;
eax, edx, edi: Cardinal;
eaxbyte: array [0..3] of Byte absolute eax;
esi: PCardinal;

begin
eax := GBlock[0];
edx := GBlock[1];

for I := 0 to 3 do
for J := 0 to 7 do begin
esi := @GostKey[J];
edi := eax;
eax := eax + esi^;
eaxbyte[0] := GostTable[0][eaxbyte[0]];
eaxbyte[1] := GostTable[0][eaxbyte[1]];
eaxbyte[2] := GostTable[0][eaxbyte[2]];
eaxbyte[3] := GostTable[0][eaxbyte[3]];
eax := (eax shr 3) or ((eax and 7) shl 29); //не уверен, надо в дебагере смотреть
eax := eax xor edx;
edx := edi;
end;

for J := 7 downto 0 do begin
esi := @GostKey[J];
edi := eax;
eax := eax + esi^;
eaxbyte[0] := GostTable[0][eaxbyte[0]];
eaxbyte[1] := GostTable[0][eaxbyte[1]];
eaxbyte[2] := GostTable[0][eaxbyte[2]];
eaxbyte[3] := GostTable[0][eaxbyte[3]];
eax := (eax shr 3) or ((eax and 7) shl 29); //не уверен, надо в дебагере смотреть
eax := eax xor edx;
edx := edi;
end;

GBlock[0] := edx;
GBlock[1] := eax;
end;

Помогите переписать функцию с ASM на Pascal или C Найти похожие ветки