fido fix (#775)
[proxmark3-svn] / tools / rfidtest.pl
1 #!/usr/bin/perl
2 # -samy kamkar, rfid@samy.pl
3
4 use strict;
5
6 die "usage: $0 <file with data> <binary to search for>\n" unless @ARGV == 2;
7
8 my ($file, $search) = @ARGV;
9 $search =~ s/\s//g;
10
11 # sure, these aren't perfect, but simplifies usability if you know what you're doing
12 # if in doubt, use binary
13
14 # binary, cool
15 if ($search =~ /^[01]+$/) { }
16 # decimal
17 elsif ($search =~ /^\d+$/)
18 {
19 $search = unpack("B*", pack("N", $search));
20 $search =~ s/^0*//;
21 }
22 # hex
23 elsif ($search =~ /^[\da-fA-F]+$/)
24 {
25 $search = unpack("B*", pack("H*", $search));
26 $search =~ s/^0*//;
27 }
28 # ascii
29 else
30 {
31 $search = unpack("B*", $search);
32 $search =~ s/^0*//;
33 }
34
35
36 # read file contents
37 open(F, "<$file") || die "Can't read $file: $!";
38 my $data = join("", <F>);
39 close(F);
40
41 # convert to binary
42 $data =~ s/\s//g;
43 # binary, great
44 if ($data =~ /^[01]+$/) { }
45 elsif ($data =~ /^[\da-fA-F]+$/)
46 {
47 $data = unpack("B*", pack("H*", $data));
48 $search =~ s/^0*//;
49 }
50 else
51 {
52 die "Seriously. What sort of data is this file? Binary or hex only please.\n";
53 }
54
55
56 # search every method we know how
57 print "Testing normally...\n";
58 test_all($data, $search);
59
60 print "Testing with flipped bits...\n";
61 test_all($data, $search, 1);
62
63 # now try manchester demodulating
64 my @bits = split(//, $data);
65 my $man;
66 my $last = 0;
67 for (my $i = 1; $i < @bits; $i++)
68 {
69 # if we changed, flip our bit
70 if ($bits[$i-1] == 1)
71 {
72 $last ^= 1;
73 }
74 $man .= $last;
75 }
76
77 print "Testing with manchester demodulation...\n";
78 test_all($man, $search);
79
80 print "Testing with flipped manchester demodulation...\n";
81 test_all($man, $search, 1);
82
83
84 sub test_all
85 {
86 my ($data, $search, $flip) = @_;
87
88 if ($flip)
89 {
90 $data =~ s/(.)/$1 ^ 1/eg;
91 }
92
93 # first just see if our data is in the stream
94 if ($data =~ /$search/)
95 {
96 print "Found $search in our stream ($data)\n";
97 }
98
99 # try removing parity every 4 and 8 bits
100 foreach my $parity (4, 8)
101 {
102 # try removing a parity bit every $parity bits
103 # test by cutting off a bit at a time in case we're in the wrong bit position
104 my $tmp = $data;
105 foreach (1 .. $parity)
106 {
107 my $test = $tmp;
108 $test =~ s/(.{$parity})./$1/g;
109
110 if ($test =~ /$search/)
111 {
112 print "Found $search with parity every " . ($parity + 1) . "th bit, round $_ out of $parity ($test)\n";
113 }
114
115 # chop of a bit to change our bit position next round
116 $tmp =~ s/^.//;
117 }
118 }
119 }
Impressum, Datenschutz