LINUX.ORG.RU
решено Форум — Admin  

Преобразования кода пропуска

 bolid, , орион про


0

1

Дано:
1) Карта с нанесенным на нее кодом: 064.29428
2) Контроллер Bolid С2002 передает код в АБД как: 6D0066004072F401 (262578 Wiegrand16)
3) Считыватель ST-CE011EMUSB считыватель проксимити карт https://smartec-security.com/products/Proximity_Readers/ST_CE011EM/ (c0f4:04e0 SZH usb keyboard) считывает код карты (возможные варианты выходных форматов) как: 

10 разрядов, DEC, (4 и 3 байты в BIN + 2 и 1 байты в BIN), 0006429428
8 разрядов, HEX, (последние 4 байты в BIN с реверсом), F4724000
13 разрядов, DEC, (последние 5 байт в BIN), 0438090887924
18 разрядов, DEC, (последние 4 бата в BIN + 3 байт в BIN + 2 и 1 байты в BIN), 000422373206429428
10 разрядов, HEX, (последние 5 байт в BIN), 66004072F4
5 разрядов, DEC, (последние 2 байта в BIN), 29428
8 разрядов, DEC, (последние 8 разрядов в DEC), 04223732
10 разрядов, DEC, (последник 4 бата в BIN с реверсом), 4101128192
8 разрядов, DEC, (последние 3 байта в BIN), 04223732
8 разрядов, HEX, (Последние 4 байта в BIN), 004072F4
10 разрядов, DEC, (00 + последние 3 байта в BIN), 0004223732
8 разрядов, DEC, (3 байт в BIN + 2 и 1 байты в BIN), 06429428
10 разрядов, DEC, (последние 4 байта в BIN), 0004223732

Требуется в Excel выполнить преобразование из любого формата ST-CE011EMUSB в фортмат Bolid (6D0066004072F401)

★★★★★
← UFW блокировка большого количества IP
Active Directory - Astra Linux Воронеж →

Прекрасно, ты поделился с сообществом ТЗ, которое собрался реализовать. Ты молодец, как сделаешь - делись результатом.

anonymous
()
  • В приборе «ST-CE011EMUSB» использовать вариант выходного формата «10 разрядов, HEX, (последние 5 байт в BIN)»
  • Занести код в файл «Dallas.xlsm», скачать partners.bolid.ru/forum/forum_8951.html#comment65473
  • Запустить макрос.

Результат: 66004072F4 -> 6D0066004072F401

petav ★★★★★
() автор топика

Требуется в Excel выполнить преобразование из любого формата ST-CE011EMUSB в фортмат Bolid (6D0066004072F401)

Bolid получает код от считывателя, разные считыватели передают код по разному так что тебе надо преобразовывать в формат считывателя, а не bolid

Если по изначальному запросу

6D0066004072F401

6D - чек сумма crc-8 от оставшегося поля (только почему-то в перевернутом виде)
0066004072F4 - sn ключа в hex, совпадает с

10 разрядов, HEX, (последние 5 байт в BIN), 66004072F4

01 - некий «код семейства»
думаю тут проще будет python+csv

Kolins ★★★★★
()

SPecialiST RePack

:)

Function WiegandToDallas(UID As String) As String
Dim CRCTable()
CRCTable = Array(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)
  Dim i, c As Integer
  Dim code(7) As Integer
  For i = 0 To 6
   code(i) = WorksheetFunction.Hex2Dec(Mid(UID, 13 - i * 2, 2))
  Next i
  For i = 0 To 6
    c = CRCTable(c Xor code(i))
  Next i
  WiegandToDallas = Hex(c)
End Function

Sub Макрос1()
Attribute Макрос1.VB_ProcData.VB_Invoke_Func = "t\n14"
'
' Макрос1 Макрос
'
' Сочетание клавиш: Ctrl+t
'
Dim i As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
  Cells(i, 2) = Cells(i, 1) + "01"
  Do While Len(Cells(i, 2)) < 14
    Cells(i, 2) = "0" + Cells(i, 2)
  Loop
  Cells(i, 2) = WiegandToDallas(Cells(i, 2)) + Cells(i, 2)
Next i

End Sub

капча - то, что слушает. сова.

УУГУ!

anonymous
()
← UFW блокировка большого количества IP
Admin
Active Directory - Astra Linux Воронеж →