]>
Commit | Line | Data |
---|---|---|
1 | //----------------------------------------------------------------------------- | |
2 | // Copyright (C) 2010 iZsh <izsh at fail0verflow.com> | |
3 | // | |
4 | // This code is licensed to you under the terms of the GNU GPL, version 2 or, | |
5 | // at your option, any later version. See the LICENSE.txt file for the text of | |
6 | // the license. | |
7 | //----------------------------------------------------------------------------- | |
8 | // utilities | |
9 | //----------------------------------------------------------------------------- | |
10 | ||
11 | #include <ctype.h> | |
12 | #include "util.h" | |
13 | #define MAX_BIN_BREAK_LENGTH (3072+384+1) | |
14 | ||
15 | #ifndef _WIN32 | |
16 | #include <termios.h> | |
17 | #include <sys/ioctl.h> | |
18 | ||
19 | ||
20 | int ukbhit(void) | |
21 | { | |
22 | int cnt = 0; | |
23 | int error; | |
24 | static struct termios Otty, Ntty; | |
25 | ||
26 | ||
27 | if ( tcgetattr( 0, &Otty) == -1 ) return -1; | |
28 | Ntty = Otty; | |
29 | ||
30 | Ntty.c_iflag = 0; /* input mode */ | |
31 | Ntty.c_oflag = 0; /* output mode */ | |
32 | Ntty.c_lflag &= ~ICANON; /* raw mode */ | |
33 | Ntty.c_cc[VMIN] = CMIN; /* minimum time to wait */ | |
34 | Ntty.c_cc[VTIME] = CTIME; /* minimum characters to wait for */ | |
35 | ||
36 | if (0 == (error = tcsetattr(0, TCSANOW, &Ntty))) { | |
37 | error += ioctl(0, FIONREAD, &cnt); | |
38 | error += tcsetattr(0, TCSANOW, &Otty); | |
39 | } | |
40 | ||
41 | return ( error == 0 ? cnt : -1 ); | |
42 | } | |
43 | ||
44 | #else | |
45 | #include <conio.h> | |
46 | int ukbhit(void) { | |
47 | return kbhit(); | |
48 | } | |
49 | #endif | |
50 | ||
51 | // log files functions | |
52 | void AddLogLine(char *file, char *extData, char *c) { | |
53 | FILE *fLog = NULL; | |
54 | char filename[FILE_PATH_SIZE] = {0x00}; | |
55 | int len = 0; | |
56 | ||
57 | len = strlen(file); | |
58 | if (len > FILE_PATH_SIZE) len = FILE_PATH_SIZE; | |
59 | memcpy(filename, file, len); | |
60 | ||
61 | fLog = fopen(filename, "a"); | |
62 | if (!fLog) { | |
63 | printf("Could not append log file %s", filename); | |
64 | return; | |
65 | } | |
66 | ||
67 | fprintf(fLog, "%s", extData); | |
68 | fprintf(fLog, "%s\n", c); | |
69 | fclose(fLog); | |
70 | } | |
71 | ||
72 | void AddLogHex(char *fileName, char *extData, const uint8_t * data, const size_t len){ | |
73 | AddLogLine(fileName, extData, sprint_hex(data, len)); | |
74 | } | |
75 | ||
76 | void AddLogUint64(char *fileName, char *extData, const uint64_t data) { | |
77 | char buf[100] = {0}; | |
78 | sprintf(buf, "%x%x", (unsigned int)((data & 0xFFFFFFFF00000000) >> 32), (unsigned int)(data & 0xFFFFFFFF)); | |
79 | AddLogLine(fileName, extData, buf); | |
80 | } | |
81 | ||
82 | void AddLogCurrentDT(char *fileName) { | |
83 | char buff[20]; | |
84 | struct tm *curTime; | |
85 | ||
86 | time_t now = time(0); | |
87 | curTime = gmtime(&now); | |
88 | ||
89 | strftime (buff, sizeof(buff), "%Y-%m-%d %H:%M:%S", curTime); | |
90 | AddLogLine(fileName, "\nanticollision: ", buff); | |
91 | } | |
92 | ||
93 | void FillFileNameByUID(char *fileName, uint8_t * uid, char *ext, int byteCount) { | |
94 | char * fnameptr = fileName; | |
95 | memset(fileName, 0x00, 200); | |
96 | ||
97 | for (int j = 0; j < byteCount; j++, fnameptr += 2) | |
98 | sprintf(fnameptr, "%02x", (unsigned int) uid[j]); | |
99 | sprintf(fnameptr, "%s", ext); | |
100 | } | |
101 | ||
102 | // printing and converting functions | |
103 | ||
104 | void print_hex(const uint8_t * data, const size_t len) | |
105 | { | |
106 | size_t i; | |
107 | ||
108 | for (i=0; i < len; i++) | |
109 | printf("%02x ", data[i]); | |
110 | ||
111 | printf("\n"); | |
112 | } | |
113 | ||
114 | void print_hex_break(const uint8_t *data, const size_t len, uint8_t breaks) { | |
115 | ||
116 | int rownum = 0; | |
117 | printf("[%02d] | ", rownum); | |
118 | for (int i = 0; i < len; ++i) { | |
119 | ||
120 | printf("%02X ", data[i]); | |
121 | ||
122 | // check if a line break is needed | |
123 | if ( breaks > 0 && !((i+1) % breaks) && (i+1 < len) ) { | |
124 | ++rownum; | |
125 | printf("\n[%02d] | ", rownum); | |
126 | } | |
127 | } | |
128 | printf("\n"); | |
129 | } | |
130 | ||
131 | char *sprint_hex(const uint8_t *data, const size_t len) { | |
132 | ||
133 | int maxLen = ( len > 1024/3) ? 1024/3 : len; | |
134 | static char buf[1024]; | |
135 | memset(buf, 0x00, 1024); | |
136 | char *tmp = buf; | |
137 | size_t i; | |
138 | ||
139 | for (i=0; i < maxLen; ++i, tmp += 3) | |
140 | sprintf(tmp, "%02x ", (unsigned int) data[i]); | |
141 | ||
142 | return buf; | |
143 | } | |
144 | ||
145 | char *sprint_bin_break(const uint8_t *data, const size_t len, const uint8_t breaks) { | |
146 | // make sure we don't go beyond our char array memory | |
147 | int max_len; | |
148 | if (breaks==0) | |
149 | max_len = ( len > MAX_BIN_BREAK_LENGTH ) ? MAX_BIN_BREAK_LENGTH : len; | |
150 | else | |
151 | max_len = ( len+(len/breaks) > MAX_BIN_BREAK_LENGTH ) ? MAX_BIN_BREAK_LENGTH : len+(len/breaks); | |
152 | ||
153 | static char buf[MAX_BIN_BREAK_LENGTH]; // 3072 + end of line characters if broken at 8 bits | |
154 | //clear memory | |
155 | memset(buf, 0x00, sizeof(buf)); | |
156 | char *tmp = buf; | |
157 | ||
158 | size_t in_index = 0; | |
159 | // loop through the out_index to make sure we don't go too far | |
160 | for (size_t out_index=0; out_index < max_len-1; out_index++) { | |
161 | // set character - (should be binary but verify it isn't more than 1 digit) | |
162 | if (data[in_index]<10) | |
163 | sprintf(tmp++, "%u", (unsigned int) data[in_index]); | |
164 | // check if a line break is needed and we have room to print it in our array | |
165 | if ( (breaks > 0) && !((in_index+1) % breaks) && (out_index+1 != max_len) ) { | |
166 | // increment and print line break | |
167 | out_index++; | |
168 | sprintf(tmp++, "%s","\n"); | |
169 | } | |
170 | in_index++; | |
171 | } | |
172 | ||
173 | return buf; | |
174 | } | |
175 | ||
176 | char *sprint_bin(const uint8_t *data, const size_t len) { | |
177 | return sprint_bin_break(data, len, 0); | |
178 | } | |
179 | ||
180 | char *sprint_hex_ascii(const uint8_t *data, const size_t len) { | |
181 | static char buf[1024]; | |
182 | char *tmp = buf; | |
183 | memset(buf, 0x00, 1024); | |
184 | size_t max_len = (len > 1010) ? 1010 : len; | |
185 | ||
186 | sprintf(tmp, "%s| ", sprint_hex(data, max_len) ); | |
187 | ||
188 | size_t i = 0; | |
189 | size_t pos = (max_len * 3)+2; | |
190 | while(i < max_len){ | |
191 | char c = data[i]; | |
192 | if ( (c < 32) || (c == 127)) | |
193 | c = '.'; | |
194 | sprintf(tmp+pos+i, "%c", c); | |
195 | ++i; | |
196 | } | |
197 | return buf; | |
198 | } | |
199 | ||
200 | char *sprint_ascii(const uint8_t *data, const size_t len) { | |
201 | static char buf[1024]; | |
202 | char *tmp = buf; | |
203 | memset(buf, 0x00, 1024); | |
204 | size_t max_len = (len > 1010) ? 1010 : len; | |
205 | size_t i = 0; | |
206 | while(i < max_len){ | |
207 | char c = data[i]; | |
208 | tmp[i] = ((c < 32) || (c == 127)) ? '.' : c; | |
209 | ++i; | |
210 | } | |
211 | return buf; | |
212 | } | |
213 | ||
214 | void num_to_bytes(uint64_t n, size_t len, uint8_t* dest) | |
215 | { | |
216 | while (len--) { | |
217 | dest[len] = (uint8_t) n; | |
218 | n >>= 8; | |
219 | } | |
220 | } | |
221 | ||
222 | uint64_t bytes_to_num(uint8_t* src, size_t len) | |
223 | { | |
224 | uint64_t num = 0; | |
225 | while (len--) | |
226 | { | |
227 | num = (num << 8) | (*src); | |
228 | src++; | |
229 | } | |
230 | return num; | |
231 | } | |
232 | ||
233 | void num_to_bytebits(uint64_t n, size_t len, uint8_t *dest) { | |
234 | while (len--) { | |
235 | dest[len] = n & 1; | |
236 | n >>= 1; | |
237 | } | |
238 | } | |
239 | ||
240 | //least significant bit first | |
241 | void num_to_bytebitsLSBF(uint64_t n, size_t len, uint8_t *dest) { | |
242 | for(int i = 0 ; i < len ; ++i) { | |
243 | dest[i] = n & 1; | |
244 | n >>= 1; | |
245 | } | |
246 | } | |
247 | ||
248 | // Swap bit order on a uint32_t value. Can be limited by nrbits just use say 8bits reversal | |
249 | // And clears the rest of the bits. | |
250 | uint32_t SwapBits(uint32_t value, int nrbits) { | |
251 | uint32_t newvalue = 0; | |
252 | for(int i = 0; i < nrbits; i++) { | |
253 | newvalue ^= ((value >> i) & 1) << (nrbits - 1 - i); | |
254 | } | |
255 | return newvalue; | |
256 | } | |
257 | ||
258 | // aa,bb,cc,dd,ee,ff,gg,hh, ii,jj,kk,ll,mm,nn,oo,pp | |
259 | // to | |
260 | // hh,gg,ff,ee,dd,cc,bb,aa, pp,oo,nn,mm,ll,kk,jj,ii | |
261 | // up to 64 bytes or 512 bits | |
262 | uint8_t *SwapEndian64(const uint8_t *src, const size_t len, const uint8_t blockSize){ | |
263 | static uint8_t buf[64]; | |
264 | memset(buf, 0x00, 64); | |
265 | uint8_t *tmp = buf; | |
266 | for (uint8_t block=0; block < (uint8_t)(len/blockSize); block++){ | |
267 | for (size_t i = 0; i < blockSize; i++){ | |
268 | tmp[i+(blockSize*block)] = src[(blockSize-1-i)+(blockSize*block)]; | |
269 | } | |
270 | } | |
271 | return tmp; | |
272 | } | |
273 | ||
274 | // takes a uint8_t src array, for len items and reverses the byte order in blocksizes (8,16,32,64), | |
275 | // returns: the dest array contains the reordered src array. | |
276 | void SwapEndian64ex(const uint8_t *src, const size_t len, const uint8_t blockSize, uint8_t *dest){ | |
277 | for (uint8_t block=0; block < (uint8_t)(len/blockSize); block++){ | |
278 | for (size_t i = 0; i < blockSize; i++){ | |
279 | dest[i+(blockSize*block)] = src[(blockSize-1-i)+(blockSize*block)]; | |
280 | } | |
281 | } | |
282 | } | |
283 | ||
284 | //assumes little endian | |
285 | char * printBits(size_t const size, void const * const ptr) | |
286 | { | |
287 | unsigned char *b = (unsigned char*) ptr; | |
288 | unsigned char byte; | |
289 | static char buf[1024]; | |
290 | char * tmp = buf; | |
291 | int i, j; | |
292 | ||
293 | for (i=size-1;i>=0;i--) | |
294 | { | |
295 | for (j=7;j>=0;j--) | |
296 | { | |
297 | byte = b[i] & (1<<j); | |
298 | byte >>= j; | |
299 | sprintf(tmp, "%u", (unsigned int)byte); | |
300 | tmp++; | |
301 | } | |
302 | } | |
303 | return buf; | |
304 | } | |
305 | ||
306 | // ------------------------------------------------------------------------- | |
307 | // string parameters lib | |
308 | // ------------------------------------------------------------------------- | |
309 | ||
310 | // ------------------------------------------------------------------------- | |
311 | // line - param line | |
312 | // bg, en - symbol numbers in param line of beginning an ending parameter | |
313 | // paramnum - param number (from 0) | |
314 | // ------------------------------------------------------------------------- | |
315 | int param_getptr(const char *line, int *bg, int *en, int paramnum) | |
316 | { | |
317 | int i; | |
318 | int len = strlen(line); | |
319 | ||
320 | *bg = 0; | |
321 | *en = 0; | |
322 | ||
323 | // skip spaces | |
324 | while (line[*bg] ==' ' || line[*bg]=='\t') (*bg)++; | |
325 | if (*bg >= len) { | |
326 | return 1; | |
327 | } | |
328 | ||
329 | for (i = 0; i < paramnum; i++) { | |
330 | while (line[*bg]!=' ' && line[*bg]!='\t' && line[*bg] != '\0') (*bg)++; | |
331 | while (line[*bg]==' ' || line[*bg]=='\t') (*bg)++; | |
332 | ||
333 | if (line[*bg] == '\0') return 1; | |
334 | } | |
335 | ||
336 | *en = *bg; | |
337 | while (line[*en] != ' ' && line[*en] != '\t' && line[*en] != '\0') (*en)++; | |
338 | ||
339 | (*en)--; | |
340 | ||
341 | return 0; | |
342 | } | |
343 | ||
344 | ||
345 | char param_getchar(const char *line, int paramnum) | |
346 | { | |
347 | int bg, en; | |
348 | ||
349 | if (param_getptr(line, &bg, &en, paramnum)) return 0x00; | |
350 | ||
351 | return line[bg]; | |
352 | } | |
353 | ||
354 | uint8_t param_get8(const char *line, int paramnum) | |
355 | { | |
356 | return param_get8ex(line, paramnum, 0, 10); | |
357 | } | |
358 | ||
359 | /** | |
360 | * @brief Reads a decimal integer (actually, 0-254, not 255) | |
361 | * @param line | |
362 | * @param paramnum | |
363 | * @return -1 if error | |
364 | */ | |
365 | uint8_t param_getdec(const char *line, int paramnum, uint8_t *destination) | |
366 | { | |
367 | uint8_t val = param_get8ex(line, paramnum, 255, 10); | |
368 | if( (int8_t) val == -1) return 1; | |
369 | (*destination) = val; | |
370 | return 0; | |
371 | } | |
372 | /** | |
373 | * @brief Checks if param is decimal | |
374 | * @param line | |
375 | * @param paramnum | |
376 | * @return | |
377 | */ | |
378 | uint8_t param_isdec(const char *line, int paramnum) | |
379 | { | |
380 | int bg, en; | |
381 | //TODO, check more thorougly | |
382 | if (!param_getptr(line, &bg, &en, paramnum)) return 1; | |
383 | // return strtoul(&line[bg], NULL, 10) & 0xff; | |
384 | ||
385 | return 0; | |
386 | } | |
387 | ||
388 | uint8_t param_get8ex(const char *line, int paramnum, int deflt, int base) | |
389 | { | |
390 | int bg, en; | |
391 | ||
392 | if (!param_getptr(line, &bg, &en, paramnum)) | |
393 | return strtoul(&line[bg], NULL, base) & 0xff; | |
394 | else | |
395 | return deflt; | |
396 | } | |
397 | ||
398 | uint32_t param_get32ex(const char *line, int paramnum, int deflt, int base) | |
399 | { | |
400 | int bg, en; | |
401 | ||
402 | if (!param_getptr(line, &bg, &en, paramnum)) | |
403 | return strtoul(&line[bg], NULL, base); | |
404 | else | |
405 | return deflt; | |
406 | } | |
407 | ||
408 | uint64_t param_get64ex(const char *line, int paramnum, int deflt, int base) | |
409 | { | |
410 | int bg, en; | |
411 | ||
412 | if (!param_getptr(line, &bg, &en, paramnum)) | |
413 | return strtoull(&line[bg], NULL, base); | |
414 | else | |
415 | return deflt; | |
416 | } | |
417 | ||
418 | int param_gethex(const char *line, int paramnum, uint8_t * data, int hexcnt) | |
419 | { | |
420 | int bg, en, temp, i; | |
421 | ||
422 | if (hexcnt % 2) | |
423 | return 1; | |
424 | ||
425 | if (param_getptr(line, &bg, &en, paramnum)) return 1; | |
426 | ||
427 | if (en - bg + 1 != hexcnt) | |
428 | return 1; | |
429 | ||
430 | for(i = 0; i < hexcnt; i += 2) { | |
431 | if (!(isxdigit(line[bg + i]) && isxdigit(line[bg + i + 1])) ) return 1; | |
432 | ||
433 | sscanf((char[]){line[bg + i], line[bg + i + 1], 0}, "%X", &temp); | |
434 | data[i / 2] = temp & 0xff; | |
435 | } | |
436 | ||
437 | return 0; | |
438 | } | |
439 | int param_gethex_ex(const char *line, int paramnum, uint8_t * data, int *hexcnt) | |
440 | { | |
441 | int bg, en, temp, i; | |
442 | ||
443 | //if (hexcnt % 2) | |
444 | // return 1; | |
445 | ||
446 | if (param_getptr(line, &bg, &en, paramnum)) return 1; | |
447 | ||
448 | *hexcnt = en - bg + 1; | |
449 | if (*hexcnt % 2) //error if not complete hex bytes | |
450 | return 1; | |
451 | ||
452 | for(i = 0; i < *hexcnt; i += 2) { | |
453 | if (!(isxdigit(line[bg + i]) && isxdigit(line[bg + i + 1])) ) return 1; | |
454 | ||
455 | sscanf((char[]){line[bg + i], line[bg + i + 1], 0}, "%X", &temp); | |
456 | data[i / 2] = temp & 0xff; | |
457 | } | |
458 | ||
459 | return 0; | |
460 | } | |
461 | int param_getstr(const char *line, int paramnum, char * str) | |
462 | { | |
463 | int bg, en; | |
464 | ||
465 | if (param_getptr(line, &bg, &en, paramnum)) return 0; | |
466 | ||
467 | memcpy(str, line + bg, en - bg + 1); | |
468 | str[en - bg + 1] = 0; | |
469 | ||
470 | return en - bg + 1; | |
471 | } | |
472 | ||
473 | /* | |
474 | The following methods comes from Rfidler sourcecode. | |
475 | https://github.com/ApertureLabsLtd/RFIDler/blob/master/firmware/Pic32/RFIDler.X/src/ | |
476 | */ | |
477 | ||
478 | // convert hex to sequence of 0/1 bit values | |
479 | // returns number of bits converted | |
480 | int hextobinarray(char *target, char *source) | |
481 | { | |
482 | int length, i, count= 0; | |
483 | char x; | |
484 | ||
485 | length = strlen(source); | |
486 | // process 4 bits (1 hex digit) at a time | |
487 | while(length--) | |
488 | { | |
489 | x= *(source++); | |
490 | // capitalize | |
491 | if (x >= 'a' && x <= 'f') | |
492 | x -= 32; | |
493 | // convert to numeric value | |
494 | if (x >= '0' && x <= '9') | |
495 | x -= '0'; | |
496 | else if (x >= 'A' && x <= 'F') | |
497 | x -= 'A' - 10; | |
498 | else | |
499 | return 0; | |
500 | // output | |
501 | for(i= 0 ; i < 4 ; ++i, ++count) | |
502 | *(target++)= (x >> (3 - i)) & 1; | |
503 | } | |
504 | ||
505 | return count; | |
506 | } | |
507 | ||
508 | // convert hex to human readable binary string | |
509 | int hextobinstring(char *target, char *source) | |
510 | { | |
511 | int length; | |
512 | ||
513 | if(!(length= hextobinarray(target, source))) | |
514 | return 0; | |
515 | binarraytobinstring(target, target, length); | |
516 | return length; | |
517 | } | |
518 | ||
519 | // convert binary array of 0x00/0x01 values to hex (safe to do in place as target will always be shorter than source) | |
520 | // return number of bits converted | |
521 | int binarraytohex(char *target,char *source, int length) | |
522 | { | |
523 | unsigned char i, x; | |
524 | int j = length; | |
525 | ||
526 | if(j % 4) | |
527 | return 0; | |
528 | ||
529 | while(j) | |
530 | { | |
531 | for(i= x= 0 ; i < 4 ; ++i) | |
532 | x += ( source[i] << (3 - i)); | |
533 | sprintf(target,"%X", (unsigned int)x); | |
534 | ++target; | |
535 | source += 4; | |
536 | j -= 4; | |
537 | } | |
538 | return length; | |
539 | } | |
540 | ||
541 | // convert binary array to human readable binary | |
542 | void binarraytobinstring(char *target, char *source, int length) | |
543 | { | |
544 | int i; | |
545 | ||
546 | for(i= 0 ; i < length ; ++i) | |
547 | *(target++)= *(source++) + '0'; | |
548 | *target= '\0'; | |
549 | } | |
550 | ||
551 | // return parity bit required to match type | |
552 | uint8_t GetParity( uint8_t *bits, uint8_t type, int length) | |
553 | { | |
554 | int x; | |
555 | ||
556 | for(x= 0 ; length > 0 ; --length) | |
557 | x += bits[length - 1]; | |
558 | x %= 2; | |
559 | ||
560 | return x ^ type; | |
561 | } | |
562 | ||
563 | // add HID parity to binary array: EVEN prefix for 1st half of ID, ODD suffix for 2nd half | |
564 | void wiegand_add_parity(uint8_t *target, uint8_t *source, uint8_t length) | |
565 | { | |
566 | *(target++)= GetParity(source, EVEN, length / 2); | |
567 | memcpy(target, source, length); | |
568 | target += length; | |
569 | *(target)= GetParity(source + length / 2, ODD, length / 2); | |
570 | } | |
571 | ||
572 | // xor two arrays together for len items. The dst array contains the new xored values. | |
573 | void xor(unsigned char *dst, unsigned char *src, size_t len) { | |
574 | for( ; len > 0; len--,dst++,src++) | |
575 | *dst ^= *src; | |
576 | } | |
577 | ||
578 | int32_t le24toh (uint8_t data[3]) { | |
579 | return (data[2] << 16) | (data[1] << 8) | data[0]; | |
580 | } | |
581 | uint32_t le32toh (uint8_t *data) { | |
582 | return (uint32_t)( (data[3]<<24) | (data[2]<<16) | (data[1]<<8) | data[0]); | |
583 | } | |
584 | ||
585 | // RotateLeft - Ultralight, Desfire, works on byte level | |
586 | // 00-01-02 >> 01-02-00 | |
587 | void rol(uint8_t *data, const size_t len){ | |
588 | uint8_t first = data[0]; | |
589 | for (size_t i = 0; i < len-1; i++) { | |
590 | data[i] = data[i+1]; | |
591 | } | |
592 | data[len-1] = first; | |
593 | } | |
594 | ||
595 | ||
596 | // Replace unprintable characters with a dot in char buffer | |
597 | void clean_ascii(unsigned char *buf, size_t len) { | |
598 | for (size_t i = 0; i < len; i++) { | |
599 | if (!isprint(buf[i])) | |
600 | buf[i] = '.'; | |
601 | } | |
602 | } |