+/**
+ * Packs an HID ID from component parts.
+ *
+ * This only works with 26, 34, 35, 37, and 48 bit card IDs.
+ *
+ * Returns false on invalid inputs.
+ */
+bool pack_hid(/* out */ uint32_t *hi2, /* out */ uint32_t *hi, /* out */ uint32_t *lo, /* in */ const hid_info *info) {
+ uint32_t higher = 0, high = 0, low = 0;
+
+ switch (info->fmtLen) {
+ case 26: // HID H10301
+ low |= (info->cardnum & 0xffff) << 1;
+ low |= (info->fc & 0xff) << 17;
+
+ if (info->parityValid) {
+ // Calculate parity
+ low |= oddparity32((low >> 1) & 0xfff) & 1;
+ low |= (evenparity32((low >> 13) & 0xfff) & 1) << 25;
+ }
+ break;
+
+ case 34: // H10306
+ low |= (info->cardnum & 0xffff) << 1;
+ low |= (info->fc & 0x7fff) << 17;
+ high |= (info->fc & 0x8000) >> 15;
+
+ if (info->parityValid) {
+ // Calculate parity
+ high |= (evenparity32((high & 0x00000001) ^ (low & 0xFFFE0000)) & 1) << 1;
+ low |= (oddparity32(low & 0x0001FFFE) & 1);
+ }
+ break;
+
+ case 35: // (Corporate 1000 35-bit)
+ low |= (info->cardnum & 0xfffff) << 1;
+ low |= (info->fc & 0x7ff) << 21;
+ high |= (info->fc & 0x800) >> 11;
+
+ if (info->parityValid) {
+ // Calculate parity
+ high |= (evenparity32((high & 0x00000001) ^ (low & 0xB6DB6DB6)) & 1) << 1;
+ low |= (oddparity32( (high & 0x00000003) ^ (low & 0x6DB6DB6C)) & 1);
+ high |= (oddparity32( (high & 0x00000003) ^ (low & 0xFFFFFFFF)) & 1) << 2;
+ }
+ break;
+
+ case 37: //H10304
+ low |= (info->cardnum & 0x7ffff) << 1;
+ low |= (info->fc & 0xfff) << 20;
+ high |= (info->fc & 0xf000) >> 12;
+
+ if (info->parityValid) {
+ // Calculate parity
+ high |= (evenparity32((high & 0x0000000F) ^ (low & 0xFFFC0000)) & 1) << 4;
+ low |= (oddparity32(low & 0x0007FFFE) & 1);
+ }
+ break;
+
+ case 48: // Corporate 1000 48-bit
+ low |= (info->cardnum & 0x7FFFFF) << 1;
+ low |= (info->fc & 0xff) << 24;
+ high |= (info->fc & 0x3FFF00) >> 8;
+
+ if (info->parityValid) {
+ // Calculate parity
+ high |= (evenparity32((high & 0x00001B6D) ^ (low & 0xB6DB6DB6)) & 1) << 14;
+ low |= (oddparity32( (high & 0x000036DB) ^ (low & 0x6DB6DB6C)) & 1);
+ high |= (oddparity32( (high & 0x00007FFF) ^ (low & 0xFFFFFFFF)) & 1) << 15;
+ }
+ break;
+
+ default:
+ // Invalid / unsupported length
+ return false;
+ }
+
+ // Set the format length bits
+ if (info->fmtLen < 37) {
+ // Bit 37 is always set
+ high |= 0x20;
+
+ // Set the bit corresponding to the length.
+ if (info->fmtLen < 32)
+ low |= 1 << info->fmtLen;
+ else
+ high |= 1 << (info->fmtLen - 32);
+
+ } else if (info->fmtLen > 37){
+ if (info->fmtLen < 64)
+ high |= 1 << (info->fmtLen - 32);
+ else
+ higher |= 1 << (info->fmtLen - 64);
+ }
+ // Return result only if successful.
+ *hi2 = higher;
+ *hi = high;
+ *lo = low;
+ return true;
+}
+
+/**
+ * Unpacks an HID ID into its component parts.
+ *
+ * This only works with 26, 34, 35, 37, and 48 bit card IDs.
+ *
+ * Returns false on invalid inputs.
+ */
+bool unpack_hid(hid_info *out, uint32_t hi2, uint32_t hi, uint32_t lo) {
+ memset(out, 0, sizeof(hid_info));
+ uint8_t fmtLen = 0;
+
+ uint32_t hFmt; // for calculating card length
+ if ((hi2 & 0x000FFFFF) > 0) { // > 64 bits
+ hFmt = hi2 & 0x000FFFFF;
+ fmtLen = 64;
+ } else if ((hi & 0xFFFFFFC0) > 0) { // < 63-38 bits
+ hFmt = hi & 0xFFFFFFC0;
+ fmtLen = 32;
+ } else if ((hi & 0x00000020) == 0) { // 37 bits
+ hFmt = 0;
+ fmtLen = 37;
+ } else if ((hi & 0x0000001F) > 0){ // 36-32 bits
+ hFmt = hi & 0x0000001F;
+ fmtLen = 32;
+ } else { // <32 bits
+ hFmt = lo;
+ fmtLen = 0;
+ }
+
+ while (hFmt > 1) {
+ hFmt >>= 1;
+ fmtLen++;
+ }
+ out->fmtLen = fmtLen;
+ switch (out->fmtLen) {
+ case 26: // HID H10301
+ out->cardnum = (lo >> 1) & 0xFFFF;
+ out->fc = (lo >> 17) & 0xFF;
+
+ if (g_debugMode) {
+ PrintAndLog("oddparity : input=%x, calculated=%d, provided=%d",
+ (lo >> 1) & 0xFFF, oddparity32((lo >> 1) & 0xFFF), lo & 1);
+ PrintAndLog("evenparity: input=%x, calculated=%d, provided=%d",
+ (lo >> 13) & 0xFFF, evenparity32((lo >> 13) & 0xFFF) & 1, (lo >> 25) & 1);
+ }
+
+ out->parityValid =
+ (oddparity32((lo >> 1) & 0xFFF) == (lo & 1)) &&
+ ((evenparity32((lo >> 13) & 0xFFF) & 1) == ((lo >> 25) & 1));
+ break;
+
+ case 34: // HID H10306
+ out->cardnum = (lo >> 1) & 0xFFFF;
+ out->fc = ((hi & 1) << 15) | (lo >> 17);
+ out->parityValid =
+ ((evenparity32((hi & 0x00000001) ^ (lo & 0xFFFE0000)) & 1) == ((hi >> 1) & 1)) &&
+ ((oddparity32(lo & 0x0001FFFE) & 1) == ((lo & 1)));
+ break;
+
+ case 35: // HID Corporate 1000-35
+ out->cardnum = (lo >> 1) & 0xFFFFF;
+ out->fc = ((hi & 1) << 11) | (lo >> 21);
+ out->parityValid =
+ (evenparity32((hi & 0x00000001) ^ (lo & 0xB6DB6DB6)) == ((hi >> 1) & 1)) &&
+ (oddparity32( (hi & 0x00000003) ^ (lo & 0x6DB6DB6C)) == ((lo >> 0) & 1)) &&
+ (oddparity32( (hi & 0x00000003) ^ (lo & 0xFFFFFFFF)) == ((hi >> 2) & 1));
+ if (g_debugMode) {
+ PrintAndLog("Parity check: calculated {%d, %d, %d}, provided {%d, %d, %d}",
+ evenparity32((hi & 0x00000001) ^ (lo & 0xB6DB6DB6)),
+ oddparity32( (hi & 0x00000003) ^ (lo & 0x6DB6DB6C)),
+ oddparity32( (hi & 0x00000003) ^ (lo & 0xFFFFFFFF)),
+ ((hi >> 1) & 1),
+ ((lo >> 0) & 1),
+ ((hi >> 2) & 1)
+ );
+ }
+ break;
+
+ case 37: // HID H10304
+ out->fmtLen = 37;
+ out->cardnum = (lo >> 1) & 0x7FFFF;
+ out->fc = ((hi & 0xF) << 12) | (lo >> 20);
+ out->parityValid =
+ (evenparity32((hi & 0x0000000F) ^ (lo & 0xFFFC0000)) == ((hi >> 4) & 1)) &&
+ (oddparity32( lo & 0x0007FFFE) == (lo & 1));
+ break;
+
+ case 48: // HID Corporate 1000-48
+ out->cardnum = (lo >> 1) & 0x7FFFFF; //Start 24, 23 length
+ out->fc = ((hi & 0x3FFF) << 8 ) | (lo >> 24); //Start 2, 22 length
+ out->parityValid =
+ (evenparity32((hi & 0x00001B6D) ^ (lo & 0xB6DB6DB6)) == ((hi >> 14) & 1)) &&
+ (oddparity32( (hi & 0x000036DB) ^ (lo & 0x6DB6DB6C)) == ((lo >> 0) & 1)) &&
+ (oddparity32( (hi & 0x00007FFF) ^ (lo & 0xFFFFFFFF)) == ((hi >> 15) & 1));
+ if (g_debugMode) {
+ PrintAndLog("Parity check: calculated {%d, %d, %d}, provided {%d, %d, %d}",
+ evenparity32((hi & 0x00001B6D) ^ (lo & 0xB6DB6DB6)),
+ oddparity32( (hi & 0x000036DB) ^ (lo & 0x6DB6DB6C)),
+ oddparity32( (hi & 0x00007FFF) ^ (lo & 0xFFFFFFFF)),
+ ((hi >> 14) & 1),
+ ((lo >> 0) & 1),
+ ((hi >> 15) & 1)
+ );
+ }
+ break;
+
+ default:
+ return false;
+ }
+ return true;
+}
+
+/**
+ * Converts a hex string to component "hi2", "hi" and "lo" 32-bit integers, one nibble
+ * at a time.
+ *
+ * Returns the number of nibbles (4 bits) entered.
+ */
+int hexstring_to_int96(/* out */ uint32_t* hi2,/* out */ uint32_t* hi, /* out */ uint32_t* lo, const char* str) {
+ // TODO: Replace this with param_gethex when it supports arbitrary length
+ // inputs.
+ int n = 0, i = 0;
+
+ while (sscanf(&str[i++], "%1x", &n ) == 1) {
+ *hi2 = (*hi2 << 4) | (*hi >> 28);
+ *hi = (*hi << 4) | (*lo >> 28);
+ *lo = (*lo << 4) | (n & 0xf);
+ }
+
+ return i - 1;
+}
+