Исследование неизвестного клона

[marinovsoft]

Переставлены 3 и 4 бит шины данных (считаем от нуля) и 3 и 4 бит шины адреса.
fregat.7z
От стандартной отличается, смотреть диапазон в файле от 386Eh до 3972h.

Скрытый текст

Код, позволяющий сделать из нормальной прошивки "фрегатовскую" и наоборот.

Var f,f1:file;
ba:Array[0..16384-1] of byte;
bb:Array[0..16384-1] of byte;
w:Word;
w1:Word;
begin
  assign(f,'fregat_in.bin');
  reset(f,1);
  assign(f1,'fregat_out.bin');
  rewrite(f1,1);

  blockread(f,ba, sizeof(ba));

  for w:=0 to 16384-1 do
  begin
    case ((w shr 3) and $3) of
      0:w1:=(w and $3fe7);
      1:w1:=(w and $3fe7) or $10;
      2:w1:=(w and $3fe7) or $8;
      3:w1:=(w and $3fe7) or $18;
    end;
    case ((ba[w] shr 3) and $3) of
      0:bb[w1]:=ba[w] and $e7;
      1:bb[w1]:=(ba[w] and $e7) or $10;
      2:bb[w1]:=(ba[w] and $e7) or $8;
      3:bb[w1]:=(ba[w] and $e7) or $18;
    end;
  end;

  blockwrite(f1,bb, sizeof(bb));

  close(f);
  close(f1);
end.

[свернуть]