Ich finde "den" richtig nice...:
Delphi-Quellcode:
procedure MirrorByte(A : byte) : byte;
var
B,C,D,F : Uint64;
begin
B := $0080200802;
C := $0884422110;
D := $0101010101;
F := A;
F := F * B;
F := F and C;
F := F * D;
F := F shr 32;
Result := F and $FF;
end;
Kann man natürlich in eine Zeile schreiben aber so sieht man die Bits wandern...
Mavarik