Shl и Shr смешении

[AET]

var
before, after : Word;
begin
помагите разобрать
$F3DCB230; из этого в $DCB230F3

$95C429F8 в $95C4

[phomm]

Первое:

a := $F3DCB230;
b := a shr 24; // сдвинем "вправо" на 3 "байтоместа", будет $000000F3
a := a shl 8; // сдвинем а на 1 "байтоместо" "влево", получится $DCB23000
a := a or b; // сложим а и б поразрядно, получим искомое

Второе:

a := $95C429F8;
b := a shr 16; // сдвинем а на 2 "байтоместа" "вправо", получим искомое

Вроде нигде не ошибся, прямо тут писал, не проверял.

Да, кстати, вордами они не могут быть, надо что-то 4байтное - integer cardinal

[AET]

подскажите как E24F0F67 перевернуть 670F4FE2

[BDA]

a := $E24F0F67;
a := (a shr 24) or (a shl 24) or (a shl 8 and $00FF0000) or (a shr 8 and $0000FF00);

[ДралсяСошибками]

возможно htonl из winsock перевернёт)))