for i:=0 to $ff do begin
bStr[0]:= i xor $FE;
bStr[1]:= i xor $84;
bStr[2]:= i xor $EC;
bStr[3]:= i xor $EC;
bStr[4]:= i xor $F4;
bStr[5]:= i xor $EB;
bStr[6]:= i xor $EE;
bStr[7]:= i xor $EC;
bStr[8]:= 0;
end;
i:= 1;
while (i<>0) do begin
Byte0:= Byte(i shr 0);
if ((Byte0 xor (Byte0 shr 4)) and $0F) <> $0A then begin i:=i+1; Continue; end;
Byte1:= Byte(i shr 4);
if ((Byte1 xor (Byte1 shr 4)) and $0F) <> $08 then begin i:=i+1; Continue; end;
Byte2:= Byte(i shr 8);
if ((Byte2 xor (Byte2 shr 4)) and $0F) <> $06 then begin i:=i+1; Continue; end;
Byte3:= Byte(i shr 12);
if ((Byte3 xor (Byte3 shr 4)) and $0F) <> $0C then begin i:=i+1; Continue; end;
Byte4:= Byte(i shr 16);
if ((Byte4 xor (Byte4 shr 4)) and $0F) <> $03 then begin i:=i+1; Continue; end;
Byte5:= Byte(i shr 20);
if ((Byte5 xor (Byte5 shr 4)) and $0F) <> $04 then begin i:=i+1; Continue; end;
Byte6:= Byte(i shr 24);
if ((Byte6 xor (Byte6 shr 4)) and $0F) <> $09 then begin i:=i+1; Continue; end;
Byte7:= Byte(i shr 28);
if ((Byte7 xor (Byte7 shr 4)) and $0F) <> $0F then begin i:=i+1; Continue; end;
ShowMessage(IntToHex(i, 8));
Break;
end;