Расчет кода авторизации и CRC

@zurprog · Регистрация: 02.03.2012

Author24 — интернет-сервис помощи студентам

Доброго времени суток уважаемые форумчане. Прошу помощи. Для расчета кода авторизации используется следующий алгоритм описанный в документации :

C++

C= ADR+1;
for ( I= 1; I<=8; I++ )
{
  C= C*S[I];
  low(C)= low(C) & 0x7F;
  if( low(C)<0x20 ) C+= 0x20;
  R[I]= low(C);
  C= (C>>8) + ADR;
}

Но мне нужно тоже самое но на Delphi. Делаю вот так :

Delphi

var
c: Byte;
i: Integer;
s: array [1..8] of Byte;
R: array [1..8] of Byte;
ADR: Integer;
  j: Integer;
begin
 ADR:= 1;
 C:= ADR+1;
 
 s[1]:=$3E; s[2]:=$3E; s[3]:=$40; s[4]:=$22; s[5]:=$21; s[6]:=$21;
 s[7]:=$21; s[8]:=$21; // исходные данные
 
for i := 1 to 8 do
  begin
   c:= c*[i];
    C:= low(C) and $7F;
    if low(C)<$20 then C:=C+ $20;
    R[I]:= Low(C);
    C:= (C shr  8) + ADR;
   end;

но в результате получаю 00 00 00 00 00 00 00 00 (правильный результат 3C 6E 20 36 66 45 45 45).

@Puporev · 29.03.2018, 14:50

Сообщение от zurprog

c:= c*[i];

Это что? Наверное нужно

Delphi

1	C:=C*S[i];

@zurprog · 29.03.2018, 16:33 **[ТС]**

Действительно. c:= c*S[i];

Добавлено через 1 час 40 минут
И еще вопрос про расчет контрольной суммы. В описании так (перевод):

Длина CRC 2" байтов. CRC вычисляется как двоичная сумма данных сообщения, начиная с символа STX и заканчивая ETX. Сумма вычисляется по модулю 2^16 (это означает. на 2 байта), в случае передачи используется от каждого байта 7 младших бит, а затем добавляется бит 8 (бит четности). Сначала передается верхний CRC байт и после нижнего CRC байт.

Помогите с расчетом

@zurprog · 02.04.2018, 10:06 **[ТС]**

С первым вопросом разобрался сам:

Delphi

var
c,m: Word;
i: Integer;
s: array [1..8] of Byte;
R: array [1..8] of Byte;
ADR: Integer;
  j: Integer;
begin
 ADR:= $21;
 C:= ADR+1;
 for i := 1 to 8 do
  begin
   c:= c*s[i];
   M:=  Lo(C) and $7F;
   if lo(M)<$20 then M:=M+ $20;
   R[I]:= lo(M);
   C:= (C shr  8) + ADR;
   end;

Но с расчетом CRC совсем беда...

@zurprog 2 / 2 / 0 Регистрация: 02.03.2012 Сообщений: 66
	29.03.2018, 16:33 [ТС]	3
	Действительно. c:= cS[i]; Добавлено через 1 час 40 минут* И еще вопрос про расчет контрольной суммы. В описании так (перевод): Длина CRC 2" байтов. CRC вычисляется как двоичная сумма данных сообщения, начиная с символа STX и заканчивая ETX. Сумма вычисляется по модулю 2^16 (это означает. на 2 байта), в случае передачи используется от каждого байта 7 младших бит, а затем добавляется бит 8 (бит четности). Сначала передается верхний CRC байт и после нижнего CRC байт. Помогите с расчетом 0

	02.04.2018, 10:06