5 use RFID::Libnfc::Reader;
6 use RFID::Libnfc::Constants;
8 use Digest::MD5 qw(md5_hex);
10 use Data::Dump qw(dump);
12 my $debug = $ENV{DEBUG} || 0;
13 my $keyfile = shift @ARGV;
15 my $r = RFID::Libnfc::Reader->new(debug => $debug);
17 warn "reader: %s\n", $r->name;
18 my $tag = $r->connect(IM_ISO14443A_106);
27 my $uid = sprintf "%02x%02x%02x%02x", @{ $tag->uid };
29 my $card_key_file = "cards/$uid.key";
30 $keyfile ||= $card_key_file;
33 warn "# loading keys from $keyfile";
34 $tag->load_keys($keyfile);
35 warn "## _keys = ", dump($tag->{_keys}) if $debug;
38 $tag->select if ($tag->can("select"));
42 print STDERR "$uid reading blocks ";
43 for (my $i = 0; $i < $tag->blocks; $i++) {
44 if (my $data = $tag->read_block($i)) {
45 # if we are dumping an ultralight token,
46 # we receive 16 bytes (while a block is 4bytes long)
47 # so we can skip next 3 blocks
48 $i += 3 if ($tag->type eq "ULTRA");
51 } elsif ( $tag->error =~ m/auth/ ) {
52 warn $tag->error,"\n";
54 # disconnect from reader so we can run mfoc
55 RFID::Libnfc::nfc_disconnect($r->{_pdi});
57 print "Dump this card with mfoc? [y] ";
58 my $yes = <STDIN>; chomp $yes;
59 exit unless $yes =~ m/y/i || $yes eq '';
61 my $file = "cards/$uid.keys";
63 warn "# finding keys for card $uid with: mfoc -O $file\n";
64 exec "mfoc -O $file" || die $!;
69 print STDERR "done\n";
71 # re-insert keys into dump
72 my $keys = $tag->{_keys} || die "can't find _keys";
73 foreach my $i ( 0 .. $#$keys ) {
74 my $o = $i * 0x40 + 0x30;
75 last if $o > length($card);
77 = substr($card, 0, $o) . $keys->[$i]->[0]
78 . substr($card, $o+6, 4) . $keys->[$i]->[1]
79 . substr($card, $o+16)
81 warn "# sector $i keys re-inserted at $o\n" if $debug;
84 if ( my $padding = 4096 - length($card) ) {
85 warn "# add $padding bytes up to 4k dump (needed for keys loading)\n" if $debug;
86 $card .= "\x00" x $padding;
89 my $md5 = md5_hex($card);
90 my $out_file = "cards/$uid.$md5";
92 warn "$out_file allready exists, not overwriting\n";
94 write_file $out_file, $card;
95 warn "$out_file ", -s $out_file, " bytes key: $card_key_file\n";
96 if ( ! -e $card_key_file ) {
97 $out_file =~ s{^cards/}{} || die "can't strip directory from out_file";
98 symlink $out_file, $card_key_file || die "$card_key_file: $!";
99 warn "$card_key_file symlink created as default key for $uid\n";
104 system "./mifare-mad.pl $out_file > $out_file.txt";
105 $ENV{MAD} && system "vi $out_file.txt";