nfc-card-dumper.pl

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4
   5 use RFID::Libnfc::Reader;
   6 use RFID::Libnfc::Constants;
   7 use File::Slurp;
   8 use Digest::MD5 qw(md5_hex);
   9
  10 use Data::Dump qw(dump);
  11
  12 my $debug = $ENV{DEBUG} || 0;
  13 my $keyfile = shift @ARGV;
  14
  15 my $r = RFID::Libnfc::Reader->new(debug => $debug);
  16 if ($r->init()) {
  17     warn "reader: %s\n", $r->name;
  18     my $tag = $r->connect(IM_ISO14443A_106);
  19
  20     if ($tag) {
  21         $tag->dump_info;
  22     } else {
  23         warn "No TAG";
  24         exit -1;
  25     }
  26
  27         my $uid = sprintf "%02x%02x%02x%02x", @{ $tag->uid };
  28
  29         my $card_key_file = "cards/$uid.key";
  30         $keyfile ||= $card_key_file;
  31
  32         if ( -e $keyfile ) {
  33                 warn "# loading keys from $keyfile";
  34             $tag->load_keys($keyfile);
  35                 warn "## _keys = ", dump($tag->{_keys}) if $debug;
  36         }
  37
  38     $tag->select if ($tag->can("select"));
  39
  40         my $card;
  41
  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");
  49                         $card .= $data;
  50                         print STDERR "$i ";
  51                 } elsif ( $tag->error =~ m/auth/ ) {
  52                         warn $tag->error,"\n";
  53
  54                         # disconnect from reader so we can run mfoc
  55                         RFID::Libnfc::nfc_disconnect($r->{_pdi});
  56
  57                         my $file = "cards/$uid.keys";
  58                         unlink $file;
  59                         warn "# finding keys for card $uid with: mfoc -O $file\n";
  60                         exec "mfoc -O $file" || die $!;
  61         } else {
  62             die $tag->error."\n";
  63         }
  64     }
  65         print STDERR "done\n";
  66
  67         # re-insert keys into dump
  68         my $keys = $tag->{_keys} || die "can't find _keys";
  69         foreach my $i ( 0 .. $#$keys ) {
  70                 my $o = $i * 0x40 + 0x30;
  71                 last if $o > length($card);
  72                 $card
  73                         = substr($card, 0,   $o) . $keys->[$i]->[0]
  74                         . substr($card, $o+6, 4) . $keys->[$i]->[1]
  75                         . substr($card, $o+16)
  76                         ;
  77                 warn "# sector $i keys re-inserted at $o\n" if $debug;
  78         }
  79
  80         if ( my $padding = 4096 - length($card) ) {
  81                 warn "# add $padding bytes up to 4k dump (needed for keys loading)\n" if $debug;
  82                 $card .= "\x00" x $padding;
  83         }
  84
  85         my $md5 = md5_hex($card);
  86         my $out_file = "cards/$uid.$md5";
  87         if ( -e $out_file ) {
  88                 warn "$out_file allready exists, not overwriting\n";
  89         } else {
  90                 write_file $out_file, $card;
  91                 warn "$out_file ", -s $out_file, " bytes key: $card_key_file\n";
  92                 if ( ! -e $card_key_file ) {
  93                         $out_file =~ s{^cards/}{} || die "can't strip directory from out_file";
  94                         symlink $out_file, $card_key_file || die "$card_key_file: $!";
  95                         warn "$card_key_file symlink created as default key for $uid\n";
  96                 }
  97         }
  98
  99         # view dump
 100         system "./mifare-mad.pl $out_file > $out_file.txt";
 101         $ENV{MAD} && system "vi $out_file.txt";
 102 }
 103