как рассчитать fcs - frame check sequence

[_Night_Scream_]

Доброе время суток.
Есть устройсво (rfid считыватель), нужно написать на Delphi программу для обмена данными с этим устройсвом. Протокол известен, но возникли трудности с расчетом FCS, я так понимаю это и есть CRC16?
Сталкивался ли кто может подскажите что к чему или ссылочек киньте.
Спасибо.

[_Night_Scream_]

Бесконтактный считыватель PROX 13мгц-Reader.
http://prox.ru/index.php?item=13mhz-rw-232
FCS в данном протоколе реализована согласно стандартам CCITT X.25 или ISO/IEC 3309 или RFC1331 (PPP).
Полином 0х8408.
А кто нить сам реализовывал?
Вот из сниффера - запрос FD C7 02 02 F1 50 FE
ответ FD C7 02 03 78 41 FE
FD,FE - начало, конец.
C7 - идентификатор кадра
02 - команда
02 - данные команды
F1,50 - FCS который нифига не могу понять
Хотелось бы написать ручками. Но за бибку спасибо!

В ГОСТе ИСО/МЭК 3309-98
на 9ой страничке есть описание. Но не пойму даже что такое X ???

[_Night_Scream_]

Всем лень? или никто правда не знает?

[Slym]

свои наработки давай

[_Night_Scream_]

Да в общем вот что получилось, помогли чуть. Пока разбираюсь, думаю вопросы еще возникнут.
var
FCS: Word;

procedure X_FCS(_D: Byte);
var
_i: Integer;
_w: Word;
begin
_w := _D xor (FCS and $FF);
_i := 8;
repeat
if Boolean(_w and 1) then
begin
_w := _w shr 1;
_w := _w xor $8408;
end
else
_w := _w shr 1;
Dec(_i);
until _i = 0;
FCS := _w xor (FCS shr 8);
end;


var
Request: array[0..6] of Byte = ($FD, $C7, $02, $02, $F1, $50, $FE);

procedure TfrmMain.Button2Click(Sender: TObject);
var
i: Integer;

begin
FCS := $FFFF;
for i := 1 to SizeOf(Request) - SizeOf(FCS) - 2 do
X_FCS(Request[i]);
ShowMessage(IntToHex(not FCS, 4));
end;

[_Night_Scream_]

Много гуглил и не нашел как Word в 2 байта разделить.
Не подскажет ли кто?
Собственно в случае FCS можно воспользоваться конечно hi и lo, но хотелось бы и такой вариант узнать.

[Аватар]

div и mod на 256 не устраивает?

[_Night_Scream_]

Конечно устраивает. А если будет 4х байтовое? В CRC32 например, надо отправлять 4х байтовое число ведь.
Нет ли какой нить функции разложения х-байтового числа в масив из х байт?

[Аватар]

С DWORD можно так поиграться

procedure TForm1.Button1Click(Sender: TObject);
var b: array [0..3] of Byte;
    p: ^Cardinal;
    c: Cardinal;
begin
  p:=@b[0];
  c:=$FF0F0901;
  p^:=c;
  Label1.Caption:=IntToStr(b[3]);
  Label2.Caption:=IntToStr(b[2]);
  Label3.Caption:=IntToStr(b[1]);
  Label4.Caption:=IntToStr(b[0]);
end;

[phomm]

Такая функция пишется вручную за минуту.

function GetByteOfInt(val: Integer; place: Byte): Byte;
begin
  Result := val shr (place * 8) and $FF;
end;

от 0го до 3го байта (параметр place) позволяет таскать из инта (можно сделать перегрузку для ворда и инт64 или даже для указателя)