verify write_block

[perl-Mifare-MAD.git] / nfc-card-dumper.pl

diff --git a/nfc-card-dumper.pl b/nfc-card-dumper.pl
index 09be742..65943bd 100755 (executable)
--- a/nfc-card-dumper.pl
+++ b/nfc-card-dumper.pl
@@ -87,8 +87,11 @@ if ($r->init()) {
                print STDERR "writing $uid block ";
                foreach my $block ( 0 .. $tag->blocks ) {
                        my $offset = 0x10 * $block;
-                       $tag->write_block( $block, substr($card,$offset,0x10) );
+                       my $data = substr($card,$offset,0x10);
+                       $tag->write_block( $block, $data );
                        print STDERR "$block ";
+                       my $verify = $tag->read_block( $block );
+                       print STDERR $verify eq $data ? "OK " : "ERROR ";
                }
                print STDERR "done\n";
                unlink $card_key_file;