كيف يتم خوارزمية التشفير

[محمد عبد العزيز]

1-أوامر التجميع

كود :

function ROR(x: LongWord; y: Byte): LongWord; assembler; asm  mov  cl, dl  ror  eax, cl end;

2- يدويا بمجموعة عمليات حسابية

كود :

function ROR(x: LongWord; y: Byte): LongWord; begin   Result := (x shr y) or (x shl (32 - y)) ; end;