генерация всех возможных значений по xor'у двух байт

[maloun]

Доброго всем времени суток.
Заинтересовался возможностью брута сксоренных значений(с:=a xor b), хочу написать алгоритм который по значению байта, выдаст массив всех наборов байт, ксор которых дает тот самый входной байт но чета я жезка туплю, единственное что точно понял это что комбинаций строго 256 и что сетить биты нужно учитывая два варианта:
для нуля 0 xor 0 и 1 xor 1, а для однерки 0 xor 1 и 1 xor 0
помогите составить порядок действий, не прибегаюя к бруту всех значений плз

[Serge_Bliznykov]

мне кажется, что Вы заблуждаетесь.
только ПОЛНЫЙ перебор, только хардкор!

допустим, есть трёхбитное (для простоты) значение:
101

попробуйте отобразить варианты входных значений данных и ключа, которые дают подобный результат. Подсчитайте, убедитесть, что входных данных, которые дают подобный результать ровно 8 штук (2 в степени 3). Следовательно, для байта таких вариантов будет ровно 256 (от 00000000b до 11111111b )


для закрепления темы рекомендую ознакомится с шифром с абсолютной криптографической стойкостью: Шифр Вернама

[Аватар]

for a:=0 to 255 do b:=c xor a;

вот они и все 256 пар a и b. Проще нет способа

[maloun]

Сообщение от Аватар

for a:=0 to 255 do b:=c xor a;

вот они и все 256 пар a и b. Проще нет способа

да, извиняюсь, я забыл указать главное условие, чисел a и b у алгоритма не будет, только результат xor'а

[Аватар]

Дык и не предполагал что они есть. а - переменная цикла, b - вычисляется, c - задается

[maloun]

Сообщение от Аватар

Дык и не предполагал что они есть. а - переменная цикла, b - вычисляется, c - задается

и правда... спасибо!!!!!

type
  ByteLenArray = Array[Byte] of Word;

function GetXORArray(x:Byte):ByteLenArray;
var
  i:integer;
begin
  for i:=0 to 255 do
    Result[i]:=(i xor x) shl 8 or i;
end;

[Аватар]

А зачем массив of Word? Индекс в массиве и есть один из двух байтов. Так по-моему симпатичней

type ByteLenArray = Array[Byte] of Byte;

procedure GetXORArray(x: Byte; var b: ByteLenArray);
var i: Byte;
begin
  for i:=0 to 255 do b[i]:=i xor x;
end;

...

var b: ByteLenArray;

...

  GetXORArray(11,b);

[maloun]

нет ничего практичнее ассемблера =)

type
  ByteLenArray = Array[Byte] of Byte;

procedure GetXORArray(x:Byte; out res:ByteLenArray); register;
asm
        xor     ecx, ecx
@@loop:
        mov     ah, cl
        xor     ah, al
        mov     [edx+ecx], ah
        inc     cl
        jnz     @@loop
        retn
end;

[Аватар]

нет ничего практичнее ассемблера

Ну да, практичнее. Забодаешься на нем практично писать все. А экономии в данном случае ноль

[maloun]

Сообщение от Аватар

Ну да, практичнее. Забодаешься на нем практично писать все. А экономии в данном случае ноль

так вот она экономия, посмотрите как делфи компилит ассемблер

.text:004D27CC                 public GetXORArray
.text:004D27CC GetXORArray     proc near
.text:004D27CC                 push    ebx
.text:004D27CD                 push    esi
.text:004D27CE                 mov     esi, edx
.text:004D27D0                 xor     edx, edx
.text:004D27D2                 mov     ecx, esi
.text:004D27D4
.text:004D27D4 loc_4D27D4:                             ; CODE XREF: GetXORArray+12 j
.text:004D27D4                 mov     ebx, edx
.text:004D27D6                 xor     bl, al
.text:004D27D8                 mov     [ecx], bl
.text:004D27DA                 inc     edx
.text:004D27DB                 inc     ecx
.text:004D27DC                 test    dl, dl
.text:004D27DE                 jnz     short loc_4D27D4
.text:004D27E0                 pop     esi
.text:004D27E1                 pop     ebx
.text:004D27E2                 retn
.text:004D27E2 GetXORArray    endp