Потребовалось конвертировать коды со считывателей Bolid в формат Dallas (его выдаёт считыватель IronLogic Matrix-V), готового решения не нашёл.
Для примера, BC00360062818C01 -> 590000005B148801.
Но помогла информация данного форума, и вот готов результат, слепленный на коленке.
Для пакетной обработки можно использовать CMD-файлы в виде
Код: Выделить всё
bolid2dallas F8001C005B148801 >> out.txt
bolid2dallas 40001A00A6F93201 >> out.txt
bolid2dallas FE004200BEBBF001 >> out.txt
или переписать программу под себя.
Программа написана на PascalABC.NET.
Исходный код карты можно ввести в качестве параметра программы (для пакетной обработки), если не вводить - программа запросит в подсказке (в консоли). Регистр вводимых символов значения не имеет.
Обработка вводимых данных не производится, поэтому при неправильном формате ввода (длина ключа, символы, и т.п.) происходит либо неправильный вывод, либо вылет программы.
- Спойлер
Код: Выделить всё
VAR
CRCTable : array [0..255] of byte = (
0,94,188,226,97,63,221,131,194,156,126,32,163,253,31,65,
157,195,33,127,252,162,64,30,95,1,227,189,62,96,130,220,
35,125,159,193,66,28,254,160,225,191,93,3,128,222,60,98,
190,224,2,92,223,129,99,61,124,34,192,158,29,67,161,255,
70,24,250,164,39,121,155,197,132,218,56,102,229,187,89,7,
219,133,103,57,186,228,6,88,25,71,165,251,120,38,196,154,
101,59,217,135,4,90,184,230,167,249,27,69,198,152,122,36,
248,166,68,26,153,199,37,123,58,100,134,216,91,5,231,185,
140,210,48,110,237,179,81,15,78,16,242,172,47,113,147,205,
17,79,173,243,112,46,204,146,211,141,111,49,178,236,14,80,
175,241,19,77,206,144,114,44,109,51,209,143,12,82,176,238,
50,108,142,208,83,13,239,177,240,174,76,18,145,207,45,115,
202,148,118,40,171,245,23,73,8,86,180,234,105,55,213,139,
87,9,235,181,54,104,138,212,149,203,41,119,244,170,72,22,
233,183,85,11,136,214,52,106,43,117,151,201,74,20,246,168,
116,42,200,150,21,75,169,247,182,232,10,84,215,137,107,53);
KeyCode: array[1..8] of byte = ($01,$00,$00,$00,$00,$00,$00,$00);
InputCode : string;
Function Hex2Byte(s: string): byte;
const c: string[16]='0123456789ABCDEF';
Begin
s := s.ToUpper;
if length(s) < 2
then Result := pos(s, c) - 1
else Result := (pos(s[1], c) - 1) * 16 + pos(s[2], c) - 1;
End;
Function Byte2Hex(b: byte): string;
const c: string[16]='0123456789ABCDEF';
Begin
Result := c[b div 16 + 1] + c[b mod 16 + 1];
End;
BEGIN
if ParamCount <> 0
then InputCode := ParamStr(1)
else
begin
Write('Введите код карты: ');
Readln(InputCode)
end;
for j:byte :=1 to 3 do
KeyCode[j+1] := Hex2Byte(InputCode.Substring(14 - j*2, 2));
for j:byte := 1 to 7
do KeyCode[8] := CRCTable[KeyCode[8] xor KeyCode[j]];
for j:byte := 8 downto 1 do
Write(Byte2Hex(KeyCode[j]));
Writeln;
END.