some checksums are hard to calculate, but there is a way to do it
here is one example how I arranged the checksum for the TRW posted
when you enter the value , message box will display an expalnation how I do this
Here is the loop command that I use on this script
procedure checksum;
begin
For Loop := 0 to 15 do Begin
CRC:= (inttohex(Z,6)[5]+inttohex(Z,6)[6]) + CRC;
Z := z + 1;
end;
Z := Z - 31;
For Loop := 0 to 15 do Begin
CRC:= (inttohex(Z,6)[5]+inttohex(Z,6)[6]) + CRC;
Z := z + 1;
end;
end;
|