Поиск подстроки битов в 1024-битовой строке

[R71MT]

Сообщение от Smitt&Wesson

Ещё раз, подробнее.

..да вроде подробнее некуда.

[f.hump]

..сори, но для чего может понадобится поиск 6-битного значения?!

да вообщем-то бит-стрим называтся битстримом, потому что информация в нем упакована последовательностями битов различной длины. бит стрим может быть разбит на байты (справа-налево или слева-направо), да, но из этого не следует, что он содержит байты.

единственная причина для быстого поиска 6-бит, которая приходит в голову, относится к садо-мазо попытке взлома DES.

[Мордохвост]

Строка в смысле символы, а не в бинарном? Есть поиск последовательности символов инструкция, на скорую руку результат кажется валидный.

function Find(const S:PAnsiChar;const L:Integer):Integer;
const
BITS : UInt64 = $0000313130303130; //'010011'
asm
  mov       r8,rcx
  mov       r9d,edx 
  mov       eax,6
  movq      xmm2,[BITS]
  xor       ecx,ecx

.loop:
  sub       edx,ecx
  jl        .over     //jle ? cmp edx, 6 ?
  pcmpestri xmm2,[r8],0Ch
  lea       r8,[r8+rcx]
  test      ecx,ecx
  jnz       .loop
  mov       eax,r9d
  sub       eax,edx
  ret

.over:
  xor       eax,eax
end;

const
  S : AnsiString = '011001010110111000101000100110010010010010110111100100100';  

begin
  try
    Find(PAnsiChar(S), Length(S));
  except

  end;
end.